It's not really readable, so here's the second attempt:
(setq anything-sources
`(((name . "Notes")
(candidates ,(list "Add new note"))
(match (lambda (candidate)
t))
(action . (("Add Input to Notes" .
(lambda (dummy)
(with-current-buffer
(find-file-noselect "~/.notes.txt")
(goto-char (point-max))
(insert anything-pattern "\n")
(save-buffer))))))
(requires-pattern))))
_______________________________________________
gnu-emacs-sources mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources
