@@ -63,22 +63,25 @@ ) (defun wassr-mode () - "Mode for post status to Wassr." - (kill-all-local-variables) - (wassr-advertise) - (set-buffer "*wassr*") - (use-local-map wassr-mode-map) - (setq major-mode 'wassr-mode - mode-name "Wassr" - buffer-read-only t) - (set (make-local-variable 'wassr-credential) - (let ((user (read-from-minibuffer "user-id: ")) - (pass (read-passwd "password: "))) - (base64-encode-string (concat user ":" pass)))) - (set (make-local-variable 'unsafe-string) - (remove "" (split-string " ;/?:@&=+$<>#%\"," ""))) - (run-hooks 'wassr-mode-hook)) - + "Major mode for post status to Wassr." + (interactive) + (wassr-advertise) + (with-current-buffer "*wassr*" + (kill-all-local-variables) + (use-local-map wassr-mode-map) + (setq major-mode 'wassr-mode + mode-name "Wassr" + buffer-read-only t) + (set (make-local-variable 'wassr-credential) + (let ((user (read-from-minibuffer "user-id: ")) + (pass (read-passwd "password: "))) + (base64-encode-string (concat user ":" pass)))) + (set (make-local-variable 'unsafe-string) + (remove "" (split-string " ;/?:@&=+$<>#%\"," ""))) + (wassr-friend-timeline)) + (switch-to-buffer "*wassr*") + (run-hooks 'wassr-mode-hook)) + (defun url-encode (unibytes) (let ((fun #'(lambda (c lis) (cond ((null lis) nil) ((equal c (car lis)) c) wassr.el bab1307e52b9ee31225f84babb76d8abdb66df3f arton arton@airax.local http://github.com/arton/wassrel/commit/e83c6e3b09077a93de4387c14eb11b12e23d1897 e83c6e3b09077a93de4387c14eb11b12e23d1897 2008-07-18T22:03:05-07:00 2008-07-18T22:03:05-07:00 set wassr-mode interactive and correct buffer handling 05d7c2c652d38741f9dc90e0ce8afe8d7b1221aa arton arton@airax.local