tmp.lisp

;;; Make multiple binding with a common prefix                                                     
(in-package :next)

(defmacro defhydra (name prefix &body suffixes)
  `(progn
     (defun ,name ()
       (with-result (suffix (read-from-minibuffer
                             (mode *minibuffer*)))
         (cond ,@(map 'list (lambda (arg)
                              (list (list 'equal 'suffix (first arg))
				    (list (second arg))))
                      suffixes))))
     (define-key *global-map* ,prefix #',name)))

(defhydra switch-buffer (kbd "s")
  ("p" switch-buffer-previous)
  ("n" switch-buffer-next))

(defhydra load-url (kbd "c")
  ("l" set-url-current-buffer)
  ("L" set-url-new-buffer))