@@ -167,6 +167,140 @@ ;; `anything-c-source-use-flags' (Use Flags) ;; `anything-c-source-emacs-process' (Emacs Process) +;;; Commands: +;; +;; Below are complete command list: +;; +;; `anything-for-files' +;; Preconfigured `anything' for opening files. +;; `anything-info-at-point' +;; Preconfigured `anything' for searching info at point. +;; `anything-show-kill-ring' +;; Preconfigured `anything' for `kill-ring'. It is drop-in replacement of `yank-pop'. +;; `anything-minibuffer-history' +;; Preconfigured `anything' for `minibuffer-history'. +;; `anything-gentoo' +;; Preconfigured `anything' for gentoo linux. +;; `anything-surfraw-only' +;; Preconfigured `anything' for surfraw. +;; `anything-imenu' +;; Preconfigured `anything' for `imenu'. +;; `anything-google-suggest' +;; Preconfigured `anything' for google search with google suggest. +;; `anything-for-buffers' +;; Preconfigured `anything' for buffer. +;; `anything-bbdb' +;; Preconfigured `anything' for BBDB. +;; `anything-locate' +;; Preconfigured `anything' for Locate. +;; `anything-w3m-bookmarks' +;; Preconfigured `anything' for w3m bookmark. +;; `anything-colors' +;; Preconfigured `anything' for color. +;; `anything-kill-buffers' +;; You can continuously kill buffer you selected. +;; `anything-query-replace-regexp' +;; Drop-in replacement of `query-replace-regexp' with building regexp visually. +;; `anything-regexp' +;; It is like `re-builder'. It helps buliding regexp and replacement. +;; `anything-insert-buffer-name' +;; Insert buffer name. +;; `anything-insert-symbol' +;; Insert current symbol. +;; `anything-insert-selection' +;; Insert current selection. +;; `anything-show-buffer-only' +;; [OBSOLETE] Only show sources about buffer. +;; `anything-show-bbdb-only' +;; [OBSOLETE] Only show sources about BBDB. +;; `anything-show-locate-only' +;; [OBSOLETE] Only show sources about Locate. +;; `anything-show-info-only' +;; [OBSOLETE] Only show sources about Info. +;; `anything-show-imenu-only' +;; [OBSOLETE] Only show sources about Imenu. +;; `anything-show-files-only' +;; [OBSOLETE] Only show sources about File. +;; `anything-show-w3m-bookmarks-only' +;; [OBSOLETE] Only show source about w3m bookmark. +;; `anything-show-colors-only' +;; [OBSOLETE] Only show source about color. +;; `anything-show-kill-ring-only' +;; [OBSOLETE] Only show source about kill ring. +;; `anything-show-this-source-only' +;; Only show this source. +;; `anything-test-sources' +;; List all anything sources for test. +;; `anything-select-source' +;; Select source. +;; `anything-mark-ring' +;; Preconfigured `anything' for `anything-c-source-mark-ring'. +;; `anything-global-mark-ring' +;; Preconfigured `anything' for `anything-c-source-global-mark-ring'. +;; `anything-yaoddmuse-cache-pages' +;; Fetch the list of files on emacswiki and create cache file. +;; `anything-yaoddmuse-emacswiki-edit-or-view' +;; Edit or View EmacsWiki page. +;; `anything-yaoddmuse-emacswiki-post-library' +;; Post library to EmacsWiki. +;; `anything-emms-stream-edit-bookmark' +;; Change the information of current emms-stream bookmark from anything. +;; `anything-emms-stream-delete-bookmark' +;; Delete an emms-stream bookmark from anything. +;; `anything-call-source' +;; Call anything source. +;; `anything-call-source-from-anything' +;; Call anything source within `anything' session. +;; `anything-create-from-anything' +;; Run `anything-create' from `anything' as a fallback. +;; `anything-create' +;; Do many create actions from STRING. +;; `anything-c-set-variable' +;; Set value to VAR interactively. +;; `anything-c-adaptive-save-history' +;; Save history information to file given by `anything-c-adaptive-history-file'. +;; +;;; Customizable Options: +;; +;; Below are customizable option list: +;; +;; `anything-c-use-standard-keys' +;; Whether use standard keybindings. (no effect) +;; default = nil +;; `anything-c-adaptive-history-file' +;; Path of file where history information is stored. +;; default = "~/.emacs.d/anything-c-adaptive-history" +;; `anything-c-adaptive-history-length' +;; Maximum number of candidates stored for a source. +;; default = 50 +;; `anything-c-google-suggest-url' +;; URL used for looking up suggestions. +;; default = "http://www.google.com/complete/search?hl=en&js=true&qu=" +;; `anything-c-google-suggest-search-url' +;; URL used for searching. +;; default = "http://www.google.com/search?ie=utf-8&oe=utf-8&q=" +;; `anything-c-boring-buffer-regexp' +;; The regexp that match boring buffers. +;; default = (rx (or (group bos " ") "*anything" " *Echo Area" " *Minibuf")) +;; `anything-c-boring-file-regexp' +;; The regexp that match boring files. +;; default = (rx (or (and "/" ... ...) (and line-start ".#") (and ... eol))) +;; `anything-kill-ring-threshold' +;; *Minimum length to be listed by `anything-c-source-kill-ring'. +;; default = 10 +;; `anything-su-or-sudo' +;; What command to use for root access. +;; default = "su" +;; `anything-for-files-prefered-list' +;; Your prefered sources to find files. +;; default = (quote (anything-c-source-ffap-line anything-c-source-ffap-guesser anything-c-source-buffers+ anything-c-source-recentf anything-c-source-bookmarks ...)) +;; `anything-create--actions-private' +;; User defined actions for `anything-create' / `anything-c-source-create'. +;; default = nil +;; `anything-allow-skipping-current-buffer' +;; Show current buffer or not in anything buffer +;; default = t + ;;; Change log: ;; ;; Change log of this file is found at @@ -1457,42 +1591,23 @@ RedOnWhite ==> Directory." (when (require 'bookmark+ nil t) (bookmark-maybe-load-default-file) - (defun anything-bookmarkp-maybe-sort (&optional alist) - "Sort or reverse-sort using `bookmarkp-bmenu-sort-function'. - Sort LIST using `bookmarkp-bmenu-sort-function'. - Reverse the result if `bookmarkp-reverse-sort-p' is non-nil. - Do nothing if `bookmarkp-bmenu-sort-function' is nil." - (let ((bmk-alist (or alist (copy-sequence bookmark-alist)))) - (when bookmarkp-bmenu-sort-function - (sort - bmk-alist - (if bookmarkp-bmenu-reverse-sort-p - (lambda (a b) - (not (funcall bookmarkp-bmenu-sort-function a b))) - bookmarkp-bmenu-sort-function))))) - - (defun anything-c-bookmark+-filter-setup-alist (fn &rest args) - "Return a filtered `bookmark-alist' using one of the bookmark+ filters functions. -If `bookmarkp-visit-flag' is turned on sort by visit frequency else alphabetically." + "Return a filtered `bookmark-alist' sorted alphabetically." (loop with alist = (if args (apply #'(lambda (x) (funcall fn x)) args) (funcall fn)) - with sa = (anything-bookmarkp-maybe-sort alist) - for i in sa + for i in alist for b = (car i) collect b into sa - finally return sa)) + finally return (sort sa 'string-lessp))) - ;; Regions (defvar anything-c-source-bookmark-regions '((name . "Bookmark Regions") (candidates . anything-c-bookmark-region-setup-alist) (candidate-transformer anything-c-highlight-bookmark) (type . bookmark))) - ;; (anything 'anything-c-source-bookmark-regions) (defun anything-c-bookmark-region-setup-alist () @@ -1505,7 +1620,6 @@ If `bookmarkp-visit-flag' is turned on sort by visit frequency else alphabetical (candidates . anything-c-bookmark-w3m-setup-alist) (candidate-transformer anything-c-highlight-bookmark) (type . bookmark))) - ;; (anything 'anything-c-source-bookmark-w3m) (defun anything-c-bookmark-w3m-setup-alist () @@ -1549,7 +1663,6 @@ If `bookmarkp-visit-flag' is turned on sort by visit frequency else alphabetical (anything-c-bookmark+-filter-setup-alist 'bookmarkp-local-file-alist-only)) ;; Su Files&directories - (defun anything-c-highlight-bookmark+-su (bmk) (if (bookmarkp-root-or-sudo-logged-p) (anything-c-highlight-bookmark bmk) @@ -2113,11 +2226,9 @@ with the tracker desktop search.") utility mdfind.") ;; (anything 'anything-c-source-mac-spotlight) - - ;;;; <icicle> ;;; Icicle regions -;; See: http://www.emacswiki.org/emacs-en/Icicles_-_Multiple_Regions +;; See: http://www.emacswiki.org/emacs-en/Icicles_-_Multiple_Regions ;; That is the anything interface. (defvar anything-icicle-region-alist nil) @@ -2158,7 +2269,7 @@ See `icicle-delete-region-from-alist'." (funcall icicle-customize-save-variable-function 'icicle-region-alist icicle-region-alist)) (defun anything-c-icicle-region-goto-region (candidate) - "Get the position of `candidate' and call `anything-icicle-select-region-action'." + "Get the position of `candidate' and call `anything-icicle-select-region-action'." (let ((pos (position candidate anything-icicle-region-alist)) (buf (second (split-string candidate " => ")))) (if (equal buf "*info*") @@ -3566,8 +3677,11 @@ It is added to `extended-command-history'. (setq extended-command-history (cons (anything-c-stringify cmd-or-name) (delete (anything-c-stringify cmd-or-name) extended-command-history))) - (let ((current-prefix-arg anything-current-prefix-arg)) - (call-interactively (anything-c-symbolify cmd-or-name)))) + (let ((current-prefix-arg anything-current-prefix-arg) + (cmd (anything-c-symbolify cmd-or-name))) + (if (stringp (symbol-function cmd)) + (execute-kbd-macro (symbol-function cmd)) + (call-interactively cmd)))) (defun anything-c-set-variable (var) "Set value to VAR interactively." site-lisp/anything/anything-config.el b606c1ff8b2a089000ae2b0750d682bfa30f8f33 Steve Purcell steve@sanityinc.com http://github.com/purcell/emacs.d/commit/9d45642eb6081939da599b2e0d031c8bbc82ba90 9d45642eb6081939da599b2e0d031c8bbc82ba90 2009-10-16T03:22:20-07:00 2009-10-16T03:22:20-07:00 Update anything-config from upstream 8bbf38fcc09597a4b6e91fbef76c5a253b8965ad Steve Purcell steve@sanityinc.com