среда, 28 ноября 2007 г.

read stream in sbcl

(with-open-stream (files
(sb-ext:process-output
(sb-ext:run-program "/usr/bin/cat" '("/path/to/file")
:output :stream)))
(loop :for line = (read-line files nil nil)
:while (and
(my-mega-condition-p line))
line) :do (princ line) (terpri)))

понедельник, 5 ноября 2007 г.

imap, gnus & gmail.com

~/.gnus.el

(setq user-mail-address "asimakov@gmail.com")
(setq user-full-name "Alexey Simakov")
(load-library "smtpmail")
(load-library "nnimap")
(load-library "starttls")
(setq gnus-select-method '(nnimap "imap.gmail.com"
(nnimap-address "imap.gmail.com")
(nnimap-server-port 993)
(nnimap-authinfo-file "~/.imap-authinfo")
(nnimap-stream ssl)))

(setq smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))
smtpmail-smtp-server "smtp.gmail.com"
smtpmail-default-smtp-server "smtp.gmail.com"
send-mail-function 'smtpmail-send-it
message-send-mail-function 'smtpmail-send-it
smtpmail-smtp-service 587
smtpmail-auth-credentials '(("smtp.gmail.com"
587
"asimakov@gmail.com"
nil)))
(add-hook 'gnus-topic-mode-hook 'gnus-topic-mode)

~/.imap-authinfo
machine imap.gmail.com login asimakov@gmail.com password MyPassword port 993


get CA certificates and put them in ~/Mail/certs/

$ cd ~/Mail/
$ wget http://members.cox.net/mynameisdavid/archive/certificates.zip
$ unzip certificates.zip
$ mv cer certs

суббота, 28 июля 2007 г.

remote swank server, emacs & unicode

.emacs:
(add-to-list 'load-path "~/elisp/slime")
(require 'slime)
(setq slime-net-coding-system 'utf-8-unix)
(set-language-environment "utf-8")
(slime-setup)

swank.lisp:
(require 'asdf)
(asdf:oos 'asdf:load-op 'swank)
(setq swank:*use-dedicated-output-stream* nil)
(swank:create-server :coding-system "utf-8-unix")

On remote host:
$ sbcl --load swank.lisp

ssh tunnel for slime using putty:
Putty Configuration Menu->New Session->Connection->SSH->Tunnels:
Source port: 4005
Destination: localhost:4005

Putty Configuration Menu->Session:
Host name or ip: user@host-with-swank

ssh tunnel for slime using ssh:
ssh -2 -N -f -L 4005:localhost:4005 user@host-with-swank

Connect to slime:
M-x slime-connect


Links:
Emacs for Windows
SLIME