Re: ;;; anything.el --- open anything

[Tassilo Horn]

Hi,

this one adds the possibility to describe an emacs command to
`anything-source-emacs-commands'.

--8<---------------cut here---------------start------------->8---
diff -u /home/heimdall/elisp/anything.el.orig /home/heimdall/elisp/anything.el
--- /home/heimdall/elisp/anything.el.orig       2007-07-20 12:00:26.000000000 
+0200
+++ /home/heimdall/elisp/anything.el    2007-07-20 16:26:31.000000000 +0200
@@ -58,8 +58,7 @@
 ;; This is only an example. Customize it to your own taste!
 (defvar anything-sources `(((name . "Buffers")
                             (candidates . anything-buffer-list)
-                            (action . (("Switch to Buffer" . switch-to-buffer)
-                                       ("Kill Buffer" . kill-buffer))))
+                            (type . buffer))
 
                            ((name . "File Name History")
                             (candidates . file-name-history)
@@ -195,7 +194,11 @@
              ("Delete File" . (lambda (file)
                                 (if (y-or-n-p (format "Really delete file %s? "
                                                       file))
-                                    (delete-file file)))))))
+                                    (delete-file file))))))
+    (buffer . (("Switch to Buffer" . switch-to-buffer)
+               ("Pop to Buffer"    . pop-to-buffer)
+               ("Display Buffer"   . display-buffer)
+               ("Kill Buffer"      . kill-buffer))))
   "A list of (TYPE . ACTION) pairs specifying actions for sources
   which have no action defined. See the `action' attribute of
   `anything-sources' for possible action values.")
@@ -291,8 +294,12 @@
                                      (push (symbol-name a) 
                                            commands)))) 
                      (sort commands 'string-lessp))) 
-    (action . (lambda (command-name) 
-                (call-interactively (intern command-name)))))
+    (action . (("Execute Command" . (lambda (command-name) 
+                                      (call-interactively
+                                       (intern command-name))))
+               ("Describe Command" . (lambda (command-name)
+                                       (describe-function
+                                        (intern command-name)))))))
   "Source for completing and invoking Emacs commands.")
 
 

Diff finished.  Fri Jul 20 16:27:22 2007
--8<---------------cut here---------------end--------------->8---

Bye,
Tassilo
-- 
VI VI VI - The Roman Number Of The Beast