;ELC ;;; Compiled ;;; in Emacs version 24.5.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\210\314\315!\2047\316\315\317\"\210\314\320!\204B\316\320\321\"\210\314\322!\204M\316\322\323\"\210\324\325\326\327\330\301%\210\331\332\333\334\335\336\330\325&\210\331\337\340\341\335\342\330\325&\210\331\343\344\345\335\336\330\325&\210\331\346\347\350\335\336\330\325&\210\331\351\326\352\335\353\330\325&\210\331\354\355\356\335\336\330\325&\210\331\357\360\361\335\336\330\325&\210\331\362\363\364\335\336\330\325&\210\331\365\366\367\335\336\330\325&\210\331\370\371\372\335\373\330\325&\210\331\374\326\375\335\373\330\325&\210\331\376\377\201@\335\336\330\325&\210\331\201A\201B\201C\335\201D\330\325&\210\331\201E\326\201F\335\201D\330\325&\210\331\201G\326\201H\335\353\330\325&\210\331\201I\201J\201K\335\353\330\325&\210\331\201L\201M\201N\335\373\330\325&\210\331\201O\326\201P\335\336\330\325&\207" [require anything thingatpt ffap cl dired-aux dired-x tramp grep url xml anything-match-plugin fboundp window-system defalias #[(&optional arg) "\207" [window-system] 1] make-composed-keymap #[(maps &optional parent) "\302\303\304!\203 C\202 \"B\207" [maps parent keymap append keymapp] 4 "Construct a new keymap composed of MAPS and inheriting from PARENT.\nWhen looking up a key in the returned map, the key is looked in each\nkeymap of MAPS in turn until a binding is found.\nIf no binding is found in MAPS, the lookup continues in PARENT, if non-nil.\nAs always with keymap inheritance, a nil binding in MAPS overrides\nany corresponding binding in PARENT, but it does not override corresponding\nbindings in other keymaps of MAPS.\nMAPS can be a list of keymaps or a single keymap.\nPARENT if non-nil should be a keymap."] apply-partially #[(fun &rest args) "\306\307!\306\310!\211\211 L\210)\211 L\210)\311\312\313\314\315D\314D\314 D\316\257E*\207" [#:--cl-args1-- #:--cl-fun-- #:v fun #:v args make-symbol "--fun--" "--args1--" lambda (&rest --cl-rest--) apply quote #[(#2=#:G66602 #1=#:G66603 &rest args2) "\303J\304 J\n\"\"\207" [#1# #2# args2 apply append] 5] --cl-rest--] 8 "Return a function that is a partial application of FUN to ARGS.\nARGS is a list of the first N arguments to pass to FUN.\nThe result is a new function which does the same as FUN, except that\nthe first N arguments are fixed at the values with which this function\nwas called."] custom-declare-group anything-config nil "Predefined configurations for `anything.el'." :group custom-declare-variable anything-c-adaptive-history-file "~/.emacs.d/anything-c-adaptive-history" "Path of file where history information is stored." :type string anything-c-adaptive-history-length 50 "Maximum number of candidates stored for a source." number anything-c-google-suggest-url "http://google.com/complete/search?output=toolbar&q=" "URL used for looking up Google suggestions." anything-c-google-suggest-search-url "http://www.google.com/search?ie=utf-8&oe=utf-8&q=" "URL used for Google searching." anything-google-suggest-use-curl-p "When non--nil use CURL to get info from `anything-c-google-suggest-url'.\nOtherwise `url-retrieve-synchronously' is used." boolean anything-c-yahoo-suggest-url "http://search.yahooapis.com/WebSearchService/V1/relatedSuggestion?appid=Generic&query=" "Url used for looking up Yahoo suggestions." anything-c-yahoo-suggest-search-url "http://search.yahoo.com/search?&ei=UTF-8&fr&h=c&p=" "Url used for Yahoo searching." anything-c-boring-buffer-regexp (rx (or (group bos " ") "*anything" "*ac-mode" " *Echo Area" " *Minibuf")) "The regexp that match boring buffers.\nBuffer candidates matching this regular expression will be\nfiltered from the list of candidates if the\n`anything-c-skip-boring-buffers' candidate transformer is used, or\nthey will be displayed with face `file-name-shadow' if\n`anything-c-shadow-boring-buffers' is used." anything-c-boring-file-regexp (rx (or (and "/" (or ".svn" "CVS" "_darcs" ".git" ".hg") (or "/" eol)) (and line-start ".#") (and (or ".class" ".la" ".o" "~") eol))) "The regexp that match boring files.\nFile candidates matching this regular expression will be\nfiltered from the list of candidates if the\n`anything-c-skip-boring-files' candidate transformer is used, or\nthey will be displayed with face `file-name-shadow' if\n`anything-c-shadow-boring-files' is used." anything-kill-ring-threshold 10 "Minimum length to be listed by `anything-c-source-kill-ring'." integer anything-c-kill-ring-max-lines-number "Max number of lines displayed per candidate in kill-ring browser.\nIf nil or zero, don't truncate candidate, show all." anything-su-or-sudo "su" "What command to use for root access." anything-for-files-prefered-list '(anything-c-source-ffap-line anything-c-source-ffap-guesser anything-c-source-buffers-list anything-c-source-recentf anything-c-source-bookmarks anything-c-source-file-cache anything-c-source-files-in-current-dir+ anything-c-source-locate) "Your prefered sources to find files." list anything-create--actions-private "User defined actions for `anything-create' / `anything-c-source-create'.\nIt is a list of (DISPLAY . FUNCTION) pairs like `action'\nattribute of `anything-sources'.\n\nIt is prepended to predefined pairs." anything-allow-skipping-current-buffer "Show current buffer or not in anything buffer" anything-c-enable-eval-defun-hack t "If non-nil, execute `anything' using the source at point when C-M-x is pressed.\nThis hack is invoked when pressing C-M-x in the form (defvar anything-c-source-XXX ...) or (setq anything-c-source-XXX ...)." anything-tramp-verbose 0 "Just like `tramp-verbose' but specific to anything.\nWhen set to 0 don't show tramp messages in anything.\nIf you want to have the default tramp messages set it to 3." anything-raise-command "A shell command to jump to a window running specific program.\nNeed external program wmctrl.\nThis will be use with `format', so use something like \"wmctrl -xa %s\"."] 8) #@67 The customize set function for `anything-command-map-prefix-key'. (defalias 'anything-set-anything-command-map-prefix-key #[(var key) "\303!\203\304 \305J!\306#\210\nL\210\304 \305J!\307#\207" [var global-map key boundp define-key read-kbd-macro nil anything-command-map] 4 (#$ . 6451)]) (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\305\310\311&\210\300\315\316\317\304\305\310\311&\210\300\320\321\322\304\323\310\311&\210\300\324\325\326\304\323\310\311&\210\300\327\330\331\310\311\304\332&\210\300\333\334\335\310\311\304\305&\210\300\336\330\337\310\311\304\332&\210\300\340\341\342\310\311\304\343&\210\300\344\330\345\310\311\304\332&\210\300\346\347\350\310\311\304\351&\210\300\352\330\353\310\311\304\332&\210\300\354\355\356\310\311\304\305&\210\300\357\360\361\310\311\304\305&\210\300\362\330\363\310\311\304\332&\210\300\364\365\366\310\311\304\305&\210\300\367\370\371\304\305\310\311&\210\300\372\373\374\304\375\310\311&\210\300\376\325\377\310\311\304\332&\210\300\201@\201A\201B\310\311\304\201C&\210\300\201D\325\201E\304\305\310\311&\210\300\201F\201G\201H\310\311\304\201I&\210\300\201J\330\201K\310\311\304\332&\210\300\201L\330\201M\310\311\304\332&\210\300\201N\201O\201P\310\311\304\343&\210\300\201Q\201R\201S\310\311\304\375&\210\300\201T\201U\201V\310\311\304\305&\210\300\201W\325\201X\304\332\310\311&\210\300\201Y\330\201Z\304\332\310\311&\210\300\201[\325\201\\\304\332\310\311&\210\300\201]\201^\201_\304\323\310\311&\210\300\201`\201a\201b\304\305\310\311&\210\300\201c\201d\201e\310\311\304\305&\210\300\201f\325\201g\304\305\310\311&\210\300\201h\201i\201j\304\343\310\311&\210\300\201k\201l\201m\304\305\310\311&\210\300\201n\325\201o\304\323\310\311&\210\300\201p\325\201q\304\332\310\311&\210\300\201r\325\201s\310\311\304\332&\210\300\201t\330\201u\310\311\304\332&\210\300\201v\201w\201x\310\311\304\201y&\210\300\201z\201{\201|\310\311\304\332&\207" [custom-declare-variable anything-command-map-prefix-key "C-x c" "The prefix key for all `anything-command-map' commands." :type string :set anything-set-anything-command-map-prefix-key :group anything-config anything-c-browse-code-regexp-lisp "^ *(def\\(un\\|subst\\|macro\\|face\\|alias\\|advice\\|struct\\|type\\|theme\\|var\\|group\\|custom\\|const\\|method\\|class\\)" "Regexp used to parse lisp buffer when browsing code." anything-c-browse-code-regexp-python "\\\\|\\" "Regexp used to parse python buffer when browsing code." anything-c-browse-code-regexp-alist `((lisp-interaction-mode \, anything-c-browse-code-regexp-lisp) (emacs-lisp-mode \, anything-c-browse-code-regexp-lisp) (lisp-mode \, anything-c-browse-code-regexp-lisp) (python-mode \, anything-c-browse-code-regexp-python)) "Alist to store regexps for browsing code corresponding to a specific `major-mode'." list anything-c-external-programs-associations nil "Alist to store externals programs associated with file extension.\nThis variable overhide setting in .mailcap file.\ne.g : '((\"jpg\" . \"gqview\") (\"pdf\" . \"xpdf\")) " anything-ff-auto-update-initial-value t "Auto update when only one candidate directory is matched.\nThis is the default value when starting `anything-find-files'." boolean anything-c-copy-async-prefered-emacs "emacs" "Path to the emacs you want to use for copying async.\nEmacs versions < 24 fail to copy directory due to a bug not fixed\nin `copy-directory'." anything-ff-lynx-style-map "Use arrow keys to navigate with `anything-find-files'.\nYou will have to restart Emacs or reeval `anything-find-files-map'\nand `anything-c-read-file-map' for this take effect." anything-ff-history-max-length 100 "Number of elements shown in `anything-find-files' history." integer anything-ff-smart-completion "Try to complete filenames smarter when non--nil.\nSee `anything-ff-transform-fname-for-completion' for more info." anything-ff-default-kbsize 1024.0 "Default Kbsize to use for showing files size.\nIt is a float, usually 1024.0 but could be 1000.0 on some systems." float anything-ff-tramp-not-fancy "No colors when listing remote files when set to non--nil.\nThis make listing much faster, specially on slow machines." anything-ff-exif-data-program "exiftran" "Program used to extract exif data of an image file." anything-ff-exif-data-program-args "-d" "*Arguments used for `anything-ff-exif-data-program'." anything-c-grep-use-ioccur-style-keys "Use Arrow keys to jump to occurences." anything-c-pdfgrep-default-read-command "xpdf '%f' %p" "Default command to read pdf files from pdfgrep.\nWhere '%f' format spec is filename and '%p' is page number" anything-c-etags-tag-file-name "TAGS" "Etags tag file name." anything-c-etags-tag-file-search-limit 10 "The limit level of directory to search tag file.\nDon't search tag file deeply if outside this value." number anything-c-etags-use-regexp-search "When non--nil search etags candidates by regexp.\nThis disable anything-match-plugin when enabled.\nWhen nil search is performed directly on patter and *match-plugin is used\nif available. You can customize `anything-c-etags-search-regexp'." anything-c-etags-search-regexp "^.+: .+ \\<%s" "Regexp that match tags in an anything etags buffer.\nThe format spec is replaced by pattern.\nThis regexp have no effect when `anything-c-etags-use-regexp-search'\nis nil." regexp anything-c-filelist-file-name "Filename of file list.\nAccept a list of string for multiple files.\n\nThis file tend to be very large (> 100MB) and recommend to be in ramdisk for speed.\nFile list is created by make-filelist.rb script.\n\nUsage:\n ruby make-filelist.rb > /tmp/all.filelist\n\nThen\n ;; Assume that /tmp is ramdisk or tmpfs\n (setq anything-grep-candidates-fast-directory-regexp \"^/tmp/\")\n (setq anything-c-filelist-file-name \"/tmp/all.filelist\")\n" anything-c-eldoc-in-minibuffer-show-fn 'anything-c-show-info-in-mode-line "A function to display eldoc info.\nShould take one arg: the string to display." symbol anything-c-turn-on-show-completion "Display candidate in buffer while moving selection when non--nil." anything-c-show-completion-use-special-display "A special display will be used in lisp completion if non--nil.\nAll functions that are wrapped in macro `with-anything-show-completion'\nwill be affected." anything-c-show-completion-min-window-height 7 "Minimum completion window height used in show completion.\nThis is used in macro `with-anything-show-completion'." anything-lisp-completion-or-indent-delay 0.6 "After this delay `anything-lisp-completion-counter' is reset to 0.\nThis allow to indent again without completing lisp symbol after this delay.\nDefault is 0.6 seconds." anything-c-default-external-file-browser "nautilus" "Default external file browser for your system.\nDirectories will be opened externally with it when\nopening file externally in `anything-find-files'.\nSet to nil if you do not have external file browser\nor do not want to use it.\nWindows users should set that to \"explorer.exe\"." anything-c-use-adaptative-sorting "Wheter to use or not adaptative sorting.\nEven if a source use it, it will have no effect when set to nil." anything-ff-newfile-prompt-p "Whether Prompt or not when creating new file.\nThis set `ffap-newfile-prompt'." anything-ff-avfs-directory "The default avfs directory, usually '.avfs'.\nWhen this is set you will be able to expand archive filenames with `C-z'\ninside an avfs directory mounted with mountavfs.\nSee ." anything-ff-file-compressed-list '("gz" "bz2" "zip" "7z") "Minimal list of compressed files extension." anything-locate-db-file-regexp "m?locate.db$" "Default regexp to match locate database.\nIf nil Search in all files." anything-ff-locate-db-filename "locate.db" "The basename of the locatedb file you use locally in your directories.\nWhen this is set and `anything' find such a file in the directory from\nwhere you launch locate, it will use this file and will not prompt you\nfor a db file.\nNote that this happen only when locate is launched with a prefix arg." anything-c-locate-command "A list of arguments for locate program.\nIf nil it will be calculated when `anything-locate' startup\nwith these default values for different systems:\n\nGnu/linux: \"locate -i -r %s\"\nberkeley-unix: \"locate -i %s\"\nwindows-nt: \"es -i -r %s\"\nOthers: \"locate %s\"\n\nThis string will be passed to format so it should end with `%s'.\nThe \"-r\" option must be the last option." anything-c-show-info-in-mode-line-delay 12 "Eldoc will show info in mode-line during this delay if user is idle." anything-c-copy-files-async-log-file "/tmp/dired.log" "The file used to communicate with two emacs when copying files async." anything-ff-printer-list "A list of available printers on your system.\nWhen non--nil let you choose a printer to print file.\nOtherwise when nil the variable `printer-name' will be used.\nOn Unix based systems (lpstat command needed) you don't need to set this,\n`anything-ff-find-printers' will find a list of available printers for you." anything-ff-transformer-show-only-basename "Show only basename of candidates in `anything-find-files'.\nThis can be toggled at anytime from `anything-find-files' with \\0\\[anything-ff-run-toggle-basename]." anything-ff-quick-delete-dont-prompt-for-deletion "Don't ask in persistent deletion of files when non--nil." anything-ff-signal-error-on-dot-files "Signal error when file is `.' or `..' on file deletion when non--nil.\nDefault is non--nil.\nWARNING: Setting this to nil is unsafe and can cause deletion of a whole tree." anything-completing-read-handlers-alist '((describe-function . anything-completing-read-symbols) (describe-variable . anything-completing-read-symbols) (debug-on-entry . anything-completing-read-symbols) (find-function . anything-completing-read-symbols) (trace-function . anything-completing-read-symbols) (trace-function-background . anything-completing-read-symbols) (find-tag . anything-completing-read-with-cands-in-buffer) (ffap-alternate-file)) "Alist of handlers to replace `completing-read', `read-file-name' in `ac-mode'.\nEach entry is a cons cell like (emacs_command . completing-read_handler)\nwhere key and value are symbols.\n\nEach key is an Emacs command that use originaly `completing-read'.\n\nEach value maybe an anything function that take same arguments as\n`completing-read' plus NAME and BUFFER, where NAME is the name of the new\nanything source and BUFFER the name of the buffer we will use.\nThis function prefix name must start by \"anything\".\n\nSee `anything-completing-read-symbols' for example.\n\nIf the value of an entry is nil completion will fall back to\nemacs vanilla behavior.\ne.g If you want to disable anything completion for `describe-function':\n(describe-function . nil).\n\nIdo is also supported, you can use `ido-completing-read' and\n`ido-read-file-name' as value of an entry or just 'ido.\ne.g ido completion for `find-file':\n(find-file . ido)\nsame as\n(find-file . ido-read-file-name)\nNote that you don't need to enable `ido-mode' for this to work." (alist :key-type symbol :value-type symbol) anything-M-x-requires-pattern 2 "Value of requires-pattern for `anything-M-x'.\nSet it to 0 to disable requires-pattern in `anything-M-x'."] 10) #@175 Define an anything command NAME with documentation DOC. Arg SOURCE will be an existing anything source named `anything-c-source-info-' and BUFFER a string buffer name. (defalias 'anything-c-build-info-index-command #[(name doc source buffer) "\304\305\306 \307C\310\311\n\312 \313\314\257\257!\207" [name doc source buffer eval defun nil interactive anything :sources :buffer :candidate-number-limit 1000] 13 (#$ . 17845)]) #@277 Define anything sources named anything-c-source-info-. Sources are generated for all entries of `anything-c-default-info-index-list'. If COMMANDS arg is non--nil build also commands named `anything-info'. Where NAME is one of `anything-c-default-info-index-list'. (defalias 'anything-c-define-info-index-sources #[(var-value &optional commands) "\306\211 :\203 @\307\310\nP! B A\211\202 \237+\211\306\306 :\203s @:\203s@\311\312\313\n\"B\314\nBDL\210\203h\307\315\nP!\316\312\317\n\"\312\320\n\"$\210) AA\202+-\306\207" [var-value #1=#:--cl-var-- str #2=#:--cl-var-- symbols #3=#:--cl-var-- nil intern "anything-c-source-info-" name format "Info index: %s" info-index "anything-info-" anything-c-build-info-index-command "Predefined anything for %s info." "*anything info %s*" sym #4=#:--cl-var-- commands com] 8 (#$ . 18285)]) (defalias 'anything-info-index-set #[(var value) " L\210\302 \303\"\207" [var value anything-c-define-info-index-sources t] 3]) (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\305\306\315&\207" [custom-declare-variable anything-c-default-info-index-list '("elisp" "cl" "org" "gnus" "tramp" "ratpoison" "zsh" "bash" "coreutils" "fileutils" "find" "sh-utils" "textutils" "libc" "make" "automake" "autoconf" "emacs-lisp-intro" "emacs" "elib" "eieio" "gauche-refe" "guile" "guile-tut" "goops" "screen" "latex" "gawk" "sed" "m4" "wget" "binutils" "as" "bfd" "gprof" "ld" "diff" "flex" "grep" "gzip" "libtool" "texinfo" "info" "gdb" "stabs" "cvsbook" "cvs" "bison" "id-utils" "global") "Info Manual entries to use for building anything info index commands." :group anything-config :type list :set anything-info-index-set anything-c-register-max-offset 160 "Max size of string register entries before truncating." integer] 10) #@134 A list of all external commands the user can execute. If this variable is not set by the user, it will be calculated automatically. (defvar anything-c-external-commands-list nil (#$ . 20130)) (defvar anything-c-show-completion-overlay nil) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\210\300\317\320\321\304\305%\210\300\322\323\324\304\305%\210\300\325\326\327\304\305%\210\300\330\331\332\304\305%\210\300\333\334\335\304\305%\210\300\336\337\340\304\305%\210\300\341\342\343\304\305%\210\300\344\345\346\304\305%\210\300\347\350\351\304\305%\210\300\352\353\354\304\355%\210\300\356\357\360\304\355%\210\300\361\362\360\304\355%\210\300\363\364\365\304\355%\210\300\366\367\370\304\355%\210\300\371\372\373\304\355%\210\300\374\375\373\304\355%\210\300\376\377\201@\304\355%\210\300\201A\201B\201C\304\355%\210\300\201D\201E\201F\304\355%\210\300\201G\201H\201I\304\355%\210\300\201J\201K\201L\304\355%\210\300\201M\201N\201O\304\201P%\210\300\201Q\201R\201S\304\305%\210\300\201T\201U\201V\304\305%\210\300\201W\201X\201Y\304\355%\207" [custom-declare-face anything-buffer-saved-out ((t (:foreground "red"))) "*Face used for buffer files modified outside of emacs." :group anything-config anything-buffer-not-saved ((t (:foreground "Indianred2"))) "*Face used for buffer files not already saved on disk." anything-ff-prefix ((t (:background "yellow" :foreground "black"))) "*Face used to prefix new file or url paths in `anything-find-files'." anything-ff-executable ((t (:foreground "green"))) "*Face used for executable files in `anything-find-files'." anything-ff-directory ((t (:foreground "DarkRed" :background "LightGray"))) "*Face used for directories in `anything-find-files'." anything-ff-symlink ((t (:foreground "DarkOrange"))) "*Face used for symlinks in `anything-find-files'." anything-ff-invalid-symlink ((t (:foreground "black" :background "red"))) "*Face used for invalid symlinks in `anything-find-files'." anything-ff-file ((t (:foreground "CadetBlue" :underline t))) "*Face used for file names in `anything-find-files'." anything-grep-match ((t (:inherit match))) "Face used to highlight grep matches." anything-grep-file ((t (:foreground "BlueViolet" :underline t))) "Face used to highlight grep results filenames." anything-grep-lineno ((t (:foreground "Darkorange1"))) "Face used to highlight grep number lines." anything-grep-running ((t (:foreground "Red"))) "Face used in mode line when grep is running." anything-grep-finish ((t (:foreground "Green"))) "Face used in mode line when grep is finish." anything-M-x-key-face ((t (:foreground "orange" :underline t))) "*Face used in anything-M-x to show keybinding." anything anything-bmkext-info ((t (:foreground "green"))) "*Face used for W3m Emacs bookmarks (not w3m bookmarks)." anything-bmkext-w3m ((t (:foreground "yellow"))) anything-bmkext-gnus ((t (:foreground "magenta"))) "*Face used for Gnus bookmarks." anything-bmkext-man ((t (:foreground "Orange4"))) "*Face used for Woman/man bookmarks." anything-bmkext-no--file ((t (:foreground "grey"))) "*Face used for non--file bookmarks." anything-bmkext-file ((t (:foreground "Deepskyblue2"))) anything-bookmarks-su-face ((t (:foreground "red"))) "Face for su/sudo bookmarks." anything-w3m-bookmarks-face ((t (:foreground "cyan1" :underline t))) "Face for w3m bookmarks" anything-emms-playlist ((t (:foreground "Springgreen4" :underline t))) "*Face used for tracks in current emms playlist." anything-apt-installed ((t (:foreground "green"))) "*Face used for apt installed candidates." anything-apt-deinstalled ((t (:foreground "DimGray"))) "*Face used for apt deinstalled candidates." anything-gentoo-match-face ((t (:foreground "red"))) "Face for anything-gentoo installed packages." traverse-faces anything-lisp-show-completion ((t (:background "DarkSlateGray"))) "*Face used for showing candidates in `anything-lisp-completion'." anything-lisp-completion-info ((t (:foreground "red"))) "*Face used for showing info in `anything-lisp-completion'." anything-overlay-line-face ((t (:background "IndianRed4" :underline t))) "Face for source header in the anything buffer."] 6) #@23 Customize `anything'. (defalias 'anything-configuration #[nil "\300\301!\207" [customize-group "anything-config"] 2 (#$ . 24353) nil]) (byte-code "\301\300!\210\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\302\351\352#\210\302\353\354#\210\302\355\356#\210\302\357\360#\210\302\361\362#\210\302\363\364#\210\302\365\366#\210\302\367\370#\210\302\371\372#\210\302\373\374#\210\302\375\376#\210\302\377\201@#\210\302\201A\201B#\210\302\201C\201D#\210\302\201E\201F#\210\302\201G\201H#\210\302\201I\201J#\210\302\201K\201L#\207" [anything-command-map define-prefix-command define-key " " anything-execute-anything-command "a" anything-c-apropos "e" anything-c-etags-select "l" anything-locate "s" anything-surfraw "r" anything-regexp "w" anything-w3m-bookmarks "x" anything-firefox-bookmarks "#" anything-emms "m" anything-man-woman "t" anything-top "i" anything-imenu [tab] anything-lisp-completion-at-point "p" anything-list-emacs-process "rb" anything-c-pp-bookmarks [134217849] anything-show-kill-ring " " anything-all-mark-rings "" anything-find-files "f" anything-for-files [67108922] anything-eval-expression-with-eldoc [67108908] anything-calcul-expression [134217848] anything-M-x "" anything-write-file "i" anything-insert-file [134217843 111] anything-occur [134217831 115] anything-do-grep "c" anything-colors "F" anything-select-xfont "f" anything-recentf "g" anything-google-suggest "hi" anything-info-at-point "hr" anything-info-emacs "hg" anything-info-gnus "" anything-buffers-list "" anything-browse-code "ri" anything-register "" anything-c-run-external-command] 4) (defvar minibuffer-local-filename-must-match-map (make-sparse-keymap)) (defvar minibuffer-local-must-match-filename-map (make-sparse-keymap)) (defvar minibuffer-inactive-mode-map (make-sparse-keymap)) (byte-code " \n \f \257\n\306\211\203.@\307\310\311#\210A\211\204*\312\306\313\314$\210\307\315\316#\210\307\317\320#\210\307\321\322#\207" [minibuffer-local-filename-completion-map minibuffer-local-completion-map minibuffer-local-must-match-filename-map minibuffer-local-filename-must-match-map minibuffer-local-map minibuffer-local-isearch-map nil define-key "" anything-minibuffer-history easy-menu-do-define "`anything' menu" ("Anything" ["All anything commands" anything-execute-anything-command t] ["Find any Files/Buffers" anything-for-files t] ["Anything Everywhere (Toggle)" ac-mode t] "----" ("Files:" ["Find files" anything-find-files t] ["Recent Files" anything-recentf t] ["Locate" anything-locate t] ["Bookmarks" anything-c-pp-bookmarks t]) ("Buffers:" ["Find buffers" anything-buffers-list t]) ("Commands:" ["Emacs Commands" anything-M-x t] ["Externals Commands" anything-c-run-external-command t]) ("Help:" ["Anything Apropos" anything-c-apropos t]) ("Info:" ["Info at point" anything-info-at-point t] ["Emacs Manual index" anything-info-emacs t] ["Gnus Manual index" anything-info-gnus t]) ("Org:" ["Org keywords" anything-org-keywords t] ["Org headlines" anything-org-headlines t]) ("Tools:" ["Occur" anything-occur t] ["Grep" anything-do-grep t] ["Etags" anything-c-etags-select t] ["Lisp complete at point" anything-lisp-completion-at-point t] ["Browse Kill ring" anything-show-kill-ring t] ["Browse register" anything-register t] ["Browse code" anything-browse-code t] ["Mark Ring" anything-all-mark-rings t] ["Regexp handler" anything-regexp t] ["Colors & Faces" anything-colors t] ["Show xfonts" anything-select-xfont t] ["Ucs Symbols" anything-ucs t] ["Imenu" anything-imenu t] ["Google Suggest" anything-google-suggest t] ["Eval expression" anything-eval-expression-with-eldoc t] ["Calcul expression" anything-calcul-expression t] ["Man pages" anything-man-woman t] ["Top externals process" anything-top t] ["Emacs internals process" anything-list-emacs-process t]) "----" ["Prefered Options" anything-configuration t]) "" anything-quit-and-find-file [134217837] anything-toggle-all-marks "" anything-yank-text-at-point minibuffer-local-must-match-map minibuffer-local-ns-map minibuffer-inactive-mode-map minibuffer-local-shell-command-map map --dolist-tail-- global-map anything-map] 11) (defalias 'anything-c-make-child-map #[(parent) "\302 \303 \"\210)\207" [map parent make-sparse-keymap set-keymap-parent] 3]) #@40 Keymap for buffer sources in anything. (defvar anything-c-buffer-map (byte-code "\302!\303 \304\305#\210\303 \306\307#\210\303 \310\311#\210\303 \312\313#\210\303 \314\315#\210\303 \316\317#\210\303 \320\321#\210\303 \322\323#\210\303 \324\325#\210\303 \326\327#\210\303 \330\331#\210\303 \332\333#\210\303 \334\335#\210\303 \336\337#\210\340\341!\203d\303 \342\343#\210\344\345 \")\207" [anything-map map anything-c-make-child-map define-key "?" anything-c-buffer-help [134217831 115] anything-buffer-run-zgrep "o" anything-buffer-switch-other-window "" anything-buffer-switch-other-frame "=" anything-buffer-run-ediff [134217789] anything-buffer-run-ediff-merge [67108925] anything-buffer-diff-persistent [134217813] anything-buffer-revert-persistent [134217796] anything-buffer-run-kill-buffers "" anything-buffer-save-persistent [201326629] anything-buffer-run-query-replace-regexp [134217765] anything-buffer-run-query-replace [134217837] anything-toggle-all-marks [134217825] anything-mark-all locate-library "elscreen" [C-tab] anything-buffer-switch-to-elscreen delq nil] 4) (#$ . 28967)) #@35 Keymap for `anything-find-files'. (defvar anything-find-files-map (byte-code "\303!\304 \305\306#\210\304 \307\310#\210\304 \311\312#\210\304 \313\314#\210\304 \315\316#\210\304 \317\320#\210\304 \321\322#\210\304 \323\324#\210\304 \325\326#\210\304 \327\330#\210\304 \331\332#\210\304 \333\334#\210\304 \335\336#\210\304 \337\340#\210\304 \341\342#\210\304 \343\344#\210\304 \345\346#\210\304 \347\350#\210\304 \351\352#\210\304 \353\354#\210\304 \355\356#\210\304 \357\360#\210\304 \361\362#\210\304 \363\364#\210\304 \365\366#\210\304 \367\370#\210\304 \371\372#\210\304 \373\374#\210\304 \375\376#\210\304 \377\201@#\210\304 \201A\201B#\210\304 \201C\201D#\210\304 \201E\201F#\210\304 \201G\201H#\210\304 \201I\201J#\210\304 \201K\201L#\210\304 \201M\201N#\210\304 \201O\201N#\210\304 \201P\201Q#\210\304 \201R\201S#\210\n\2036\304 \201T\201N#\210\304 \201U\201V#\210\201W\201X \")\207" [anything-map map anything-ff-lynx-style-map anything-c-make-child-map define-key "" anything-ff-run-toggle-basename "" anything-ff-run-locate [134217831 115] anything-ff-run-grep [134217831 112] anything-ff-run-pdfgrep [134217831 122] anything-ff-run-zgrep [134217774] anything-ff-run-etags [134217810] anything-ff-run-rename-file [134217795] anything-ff-run-copy-file [134217794] anything-ff-run-byte-compile-file [134217804] anything-ff-run-load-file [134217811] anything-ff-run-symlink-file [134217800] anything-ff-run-hardlink-file [134217796] anything-ff-run-delete-file [134217803] anything-ff-run-kill-buffer-persistent "" anything-ff-persistent-delete [134217829] anything-ff-run-switch-to-eshell [M-tab] anything-ff-run-complete-fn-at-point "o" anything-ff-run-switch-other-window "" anything-ff-run-switch-other-frame "" anything-ff-run-open-file-externally [134217761] anything-ff-run-eshell-command-on-file [67108925] anything-ff-run-ediff-file "=" anything-ff-run-ediff-merge-file [134217840] anything-ff-run-switch-to-history [134217833] anything-ff-properties-persistent "?" anything-ff-help [67108989] anything-narrow-window [67108987] anything-enlarge-window [C-backspace] anything-ff-run-toggle-auto-update [134217825] anything-mark-all [134217837] anything-toggle-all-marks [134217845] anything-unmark-all "" anything-ff-run-gnus-attach-files "p" anything-ff-run-print-file [134217836] anything-ff-rotate-left-persistent [134217842] anything-ff-rotate-right-persistent [67108910] anything-find-files-down-one-level "\f" "" anything-send-bug-report-from-anything "" anything-debug-output [left] [right] anything-execute-persistent-action delq nil] 4) (#$ . 30079)) #@41 Keymap for `anything-c-read-file-name'. (defvar anything-c-read-file-map (byte-code "\303!\304 \305\306#\210\304 \307\310#\210\304 \311\310#\210\304 \312\313#\210\304 \314\315#\210\n\203D\304 \316\310#\210\304 \317\320#\210\304 \321\322#\210\304 \323\324#\210\304 \325\326#\210\327\322 \")\207" [anything-map map anything-ff-lynx-style-map anything-c-make-child-map define-key "" anything-ff-run-toggle-basename [67108910] anything-find-files-down-one-level "\f" [C-backspace] anything-ff-run-toggle-auto-update "?" anything-read-file-name-help [left] [right] anything-execute-persistent-action "" nil [M-left] anything-previous-source [M-right] anything-next-source delq] 4) (#$ . 32708)) #@27 Generic Keymap for files. (defvar anything-generic-files-map (byte-code "\302!\303 \304\305#\210\303 \306\307#\210\303 \310\311#\210\303 \312\313#\210\303 \314\315#\210\303 \316\317#\210\303 \320\321#\210\303 \322\323#\210\303 \324\325#\210\303 \326\327#\210\303 \330\331#\210 )\207" [anything-map map anything-c-make-child-map define-key [134217831 115] anything-ff-run-grep [134217831 122] anything-ff-run-zgrep [134217831 112] anything-ff-run-pdfgrep [134217796] anything-ff-run-delete-file [67108925] anything-ff-run-ediff-file "=" anything-ff-run-ediff-merge-file "o" anything-ff-run-switch-other-window [134217833] anything-ff-properties-persistent "" anything-ff-run-open-file-externally "" anything-yank-text-at-point "?" anything-generic-file-help] 4) (#$ . 33410)) #@30 Keymap used in Grep sources. (defvar anything-c-grep-map (byte-code "\303!\304 \305\306#\210\304 \307\310#\210\304 \311\312#\210\304 \313\314#\210\304 \315\316#\210\n\2032\304 \317\320#\210\304 \321\322#\210\304 \323\324#\210\325\326 \")\207" [anything-map map anything-c-grep-use-ioccur-style-keys anything-c-make-child-map define-key [M-down] anything-c-goto-next-file [M-up] anything-c-goto-precedent-file "o" anything-c-grep-run-other-window-action "" anything-yank-text-at-point "" anything-c-grep-run-save-buffer [right] anything-c-grep-run-persistent-action [left] anything-c-grep-run-default-action "?" anything-grep-help delq nil] 4) (#$ . 34199)) #@25 Keymap used in pdfgrep. (defvar anything-c-pdfgrep-map (byte-code "\302!\303 \304\305#\210\303 \306\307#\210\303 \310\311#\210\303 \312\313#\210 )\207" [anything-map map anything-c-make-child-map define-key [M-down] anything-c-goto-next-file [M-up] anything-c-goto-precedent-file "" anything-yank-text-at-point "?" anything-pdfgrep-help] 4) (#$ . 34870)) #@23 Keymap used in Etags. (defvar anything-c-etags-map (byte-code "\302!\303 \304\305#\210\303 \306\307#\210\303 \310\311#\210\303 \312\313#\210 )\207" [anything-map map anything-c-make-child-map define-key [M-down] anything-c-goto-next-file [M-up] anything-c-goto-precedent-file "" anything-yank-text-at-point "?" anything-etags-help] 4) (#$ . 35235)) (defvar anything-eval-expression-map (byte-code "\302!\303 \304\305#\210\303 \306\307#\210\303 \310\311#\210\303 \312\313#\210\303 \314\315#\210\303 \316\313#\210\303 \317\315#\210\303 \320\321#\210\303 \322\323#\210 )\207" [anything-map map anything-c-make-child-map define-key [C-return] anything-eval-new-line-and-indent [tab] lisp-indent-line [C-tab] lisp-complete-symbol "" previous-line "" next-line [up] [down] [right] forward-char [left] backward-char] 4)) #@28 Keymap for `anything-ucs'. (defvar anything-c-ucs-map (byte-code "\302!\303 \304\305#\210\303 \306\307#\210\303 \310\311#\210\303 \312\313#\210\303 \314\315#\210 )\207" [anything-map map anything-c-make-child-map define-key [C-backspace] anything-c-ucs-persistent-delete [C-left] anything-c-ucs-persistent-backward [C-right] anything-c-ucs-persistent-forward [C-return] anything-c-ucs-persistent-insert "?" anything-c-ucs-help] 4) (#$ . 36063)) #@44 Generic Keymap for emacs bookmark sources. (defvar anything-c-bookmark-map (byte-code "\302!\303 \304\305#\210\303 \306\307#\210\310\311!\203\303 \312\313#\210\303 \314\315#\210\316\317 \")\207" [anything-map map anything-c-make-child-map define-key "o" anything-c-bookmark-run-jump-other-window "" anything-c-bookmark-run-delete locate-library "bookmark-extensions" [134217829] anything-c-bmkext-run-edit "?" anything-c-bookmark-help delq nil] 4) (#$ . 36517)) #@58 Keymap for `anything-find-files-eshell-command-on-file'. (defvar anything-esh-on-file-map (byte-code "\302!\303 \304\305#\210 )\207" [anything-map map anything-c-make-child-map define-key "?" anything-esh-help] 4) (#$ . 36992)) #@39 Keymap for `anything-eshell-history'. (defvar anything-eshell-history-map (byte-code "\302!\303 \304\305#\210 )\207" [anything-map map anything-c-make-child-map define-key [134217840] anything-next-line] 4) (#$ . 37229)) #@39 Keymap for `anything-show-kill-ring'. (defvar anything-kill-ring-map (byte-code "\302!\303 \304\305#\210\303 \306\307#\210 )\207" [anything-map map anything-c-make-child-map define-key [134217849] anything-next-line [134217845] anything-previous-line] 4) (#$ . 37458)) #@30 Keymap for `anything-occur'. (defvar anything-occur-map (byte-code "\302!\303 \304\305#\210 )\207" [anything-map map anything-c-make-child-map define-key [201326629] anything-occur-run-query-replace-regexp] 4) (#$ . 37735)) #@56 Collect preconfigured anything functions in this file. (defalias 'anything-c-list-preconfigured-anything #[nil "\306\211\307\310\311\312!!\n\"A\306\211 :\203H @\211:\203A\f@\313=\203A\314\315\316\fA\211!\2062\317\211\"\203A \320\321\"B B A\211\202 \237-\207" [doc sym load-history #1=#:--cl-var-- entry #2=#:--cl-var-- nil assoc file-truename locate-library "anything-config" defun string-match "^Preconfigured.+$" documentation "" match-string 0] 6 (#$ . 37967)]) (defalias 'anything-c-format-preconfigured-anything #[nil "\300\301\302 \"\207" [mapcar #[(x) "\301\302@A#\207" [x format "\\[%s] : %s\n"] 4] anything-c-list-preconfigured-anything] 3]) (byte-code "\301\302\207" [anything-help-message #[nil "\300\301\302\303\304 \"\305R\207" ["\\" "`anything' is QuickSilver-like candidate-selection framework.\n\nNarrow the list by typing some pattern,\nMultiple patterns are allowed by splitting by space.\nSelect with natural Emacs operations, choose with RET.\n\nIf you have any problems, press C-c C-x C-b!!\nFeel free to send bug reports. I'll fix them.\nThe steps are described in the beginning of anything.el file.\n\n== Basic Operations ==\nC-p, Up: Previous Line\nC-n, Down : Next Line\nM-v, PageUp : Previous Page\nC-v, PageDown : Next Page\nEnter : Execute first (default) action / Select\nM-< : First Line\nM-> : Last Line\nM-PageUp, C-M-S-v, C-M-y : Previous Page (other-window)\nM-PageDown, C-M-v : Next Page (other-window)\n\nTab, C-i : Show action list\nLeft : Previous Source\nRight, C-o : Next Source\nC-k : Delete pattern\nC-z : Persistent Action (Execute action with anything session kept)\nC-c C-x C-b: Send a bug report\n\n== Shortcuts For 2nd/3rd Action ==\n\\[anything-select-2nd-action-or-end-of-line] : Execute 2nd Action (if the minibuffer cursor is at end of line)\n\\[anything-select-3rd-action] : Execute 3rd Action\n\n== Visible Marks ==\nVisible marks store candidate. Some actions uses marked candidates.\n\n\\[anything-toggle-visible-mark] : Toggle Visible Mark\n\\[anything-prev-visible-mark] : Previous Mark\n\\[anything-next-visible-mark] : Next Mark\n\n== Miscellaneous Commands ==\n\\[anything-toggle-resplit-window] : Toggle vertical/horizontal split anything window\n\\[anything-quit-and-find-file] : Drop into `find-file'\n\\[anything-delete-current-selection] : Delete Selected Item (visually)\n\\[anything-kill-selection-and-quit] : Set Item Into the kill-ring And Quit\n\\[anything-yank-selection] : Yank Selected Item Into Pattern\n\\[anything-follow-mode] : Toggle Automatical Execution Of Persistent Action\n\\[anything-force-update] : Recalculate And Redisplay Candidates\n\n== Global Commands ==\n\\\\[anything-resume] revives last `anything' session.\nIt is very useful, so you should bind any key.\n\nSingle source is executed by \\[anything-call-source].\n\n== Preconfigured `anything' ==\nPreconfigured `anything' is commands that uses `anything' interface.\nYou can use them without configuration.\n\n" apply concat anything-c-format-preconfigured-anything "\nEnjoy!"] 5] nil] 1) (defvar anything-c-buffer-help-message "== Anything Buffer ==\n\nTips:\nYou can enter a partial name of major-mode (e.g lisp, sh) to narrow down buffers.\nEnter then a space and a pattern to narrow down to buffers matching this pattern. \n\nSpecific commands for `anything-buffers-list':\n\\\n\\[anything-buffer-run-zgrep] ->Grep Buffer(s) works as zgrep too. (C-u grep all buffers but non--file buffers).\n\\[anything-buffer-switch-other-window] ->Switch other window.\n\\[anything-buffer-switch-other-frame] ->Switch other frame.\n\\[anything-buffer-run-query-replace-regexp] ->Query replace regexp in marked buffers.\n\\[anything-buffer-run-query-replace] ->Query replace in marked buffers.\n\\[anything-buffer-switch-to-elscreen] ->Find buffer in Elscreen.\n\\[anything-buffer-run-ediff] ->Ediff current buffer with candidate. If two marked buffers ediff those buffers.\n\\[anything-buffer-run-ediff-merge] ->Ediff merge current buffer with candidate. If two marked buffers ediff merge those buffers.\n\\[anything-buffer-diff-persistent] ->Toggle Diff buffer with saved file without quitting.\n\\[anything-buffer-revert-persistent] ->Revert buffer without quitting.\n\\[anything-buffer-save-persistent] ->Save buffer without quitting.\n\\[anything-buffer-run-kill-buffers] ->Delete marked buffers and quit.\n\\[anything-toggle-all-marks] ->Toggle all marks.\n\\[anything-mark-all] ->Mark all.\n\\[anything-c-buffer-help] ->Display this help.\n\n== Anything Map ==\n\\{anything-map}") #@36 Help command for anything buffers. (defalias 'anything-c-buffer-help #[nil "\302 )\207" [anything-c-buffer-help-message anything-help-message anything-help] 1 (#$ . 42583) nil]) (defvar anything-ff-help-message "== Anything Find Files ==\n\nTips:\n\n- Enter `~/' at end of pattern to quickly reach home directory.\n- Enter `/' at end of pattern to quickly reach root of your file system.\n- Enter `./' at end of pattern to quickly reach `default-directory' (initial start of session).\n- You can complete with partial basename (e.g \"fb\" will complete \"foobar\").\n- Use `C-u C-z' to watch an image.\n- To browse images directories turn on `anything-follow-mode' and navigate with arrow keys.\n- When entered ediff, hitting `C-g' will ask you to use locate to find the file to ediff with.\n \n\nSpecific commands for `anything-find-files':\n\\\n\\[anything-ff-run-locate] ->Run Locate on basename of candidate (C-u to specify locate db).\n\\[anything-ff-run-grep] ->Run Grep (C-u Recursive).\n\\[anything-ff-run-pdfgrep] ->Run Pdfgrep on marked files.\n\\[anything-ff-run-zgrep] ->Run zgrep (C-u Recursive).\n\\[anything-ff-run-etags] ->Run Etags (C-u use thing-at-point `C-u C-u' reload cache)\n\\[anything-ff-run-rename-file] ->Rename File (C-u Follow).\n\\[anything-ff-run-copy-file] ->Copy File (C-u Follow).\n\\[anything-ff-run-byte-compile-file] ->Byte Compile File (C-u Load).\n\\[anything-ff-run-load-file] ->Load File.\n\\[anything-ff-run-symlink-file] ->Symlink File.\n\\[anything-ff-run-hardlink-file] ->Hardlink file.\n\\[anything-ff-run-delete-file] ->Delete File.\n\\[anything-ff-run-kill-buffer-persistent] ->Kill buffer candidate without quitting.\n\\[anything-ff-persistent-delete] ->Delete file without quitting.\n\\[anything-ff-run-switch-to-eshell] ->Switch to Eshell.\n\\[anything-ff-run-eshell-command-on-file] ->Eshell command on file (C-u Run on all marked files at once).\n\\[anything-ff-run-ediff-file] ->Ediff file.\n\\[anything-ff-run-ediff-merge-file] ->Ediff merge file.\n\\[anything-ff-run-complete-fn-at-point] ->Complete file name at point.\n\\[anything-ff-run-switch-other-window] ->Switch other window.\n\\[anything-ff-run-switch-other-frame] ->Switch other frame.\n\\[anything-ff-run-open-file-externally] ->Open file with external program (C-u to choose).\n\\[anything-ff-rotate-left-persistent] ->Rotate Image Left.\n\\[anything-ff-rotate-right-persistent] ->Rotate Image Right.\n\\[anything-find-files-down-one-level] ->Go down precedent directory.\n\\[anything-ff-run-switch-to-history] ->Switch to anything find-files history.\n\\[anything-ff-properties-persistent] ->Show file properties in a tooltip.\n\\[anything-mark-all] ->Mark all visibles candidates.\n\\[anything-ff-run-toggle-auto-update] ->Toggle auto expansion of directories.\n\\[anything-unmark-all] ->Unmark all candidates, visibles and invisibles.\n\\[anything-ff-run-gnus-attach-files] ->Gnus attach files to message buffer.\n\\[anything-ff-run-print-file] ->Print file, (C-u to refresh printers list).\n\\[anything-enlarge-window] ->Enlarge anything window.\n\\[anything-narrow-window] ->Narrow anything window.\n\\[anything-ff-run-toggle-basename] ->Toggle basename/fullpath.\n\\[anything-send-bug-report-from-anything] ->Send Bug report.\n\\[anything-ff-help] ->Display this help info.\n\n== Anything Map ==\n\\{anything-map}") #@41 Help command for `anything-find-files'. (defalias 'anything-ff-help #[nil "\302 )\207" [anything-ff-help-message anything-help-message anything-help] 1 (#$ . 45992) nil]) (defvar anything-read-file-name-help-message "== Anything read file name Map ==\nSpecific commands for anything-c-read-file-name:\n\\\n\\[anything-find-files-down-one-level] ->Go down precedent directory.\n\\[anything-ff-run-toggle-auto-update] ->Toggle auto expansion of directories.\n\\[anything-next-source] ->Goto next source.\n\\[anything-previous-source] ->Goto previous source.\n\\[anything-read-file-name-help] ->Display this help info.\n\n== Anything Map ==\n\\{anything-map}") (defalias 'anything-read-file-name-help #[nil "\302 )\207" [anything-read-file-name-help-message anything-help-message anything-help] 1 nil nil]) (defvar anything-generic-file-help-message "== Anything Generic files Map ==\nSpecific commands for anything locate and others files sources:\n\\\n\\[anything-ff-run-grep] ->Run grep (C-u recurse).\n\\[anything-ff-run-pdfgrep] ->Run Pdfgrep on marked files.\n\\[anything-ff-run-delete-file] ->Delete file.\n\\[anything-ff-run-ediff-file] ->Ediff file.\n\\[anything-ff-run-ediff-merge-file] ->Ediff merge file.\n\\[anything-ff-run-switch-other-window] ->Switch other window.\n\\[anything-ff-properties-persistent] ->Show file properties.\n\\[anything-yank-text-at-point] ->Yank text at point.\n\\[anything-ff-run-open-file-externally] ->Open file with external program (C-u to choose).\n\nLocate tips:\nYou can add after writing search pattern any of the locate command line options.\ne.g -b, -e, -n ...etc.\nSee Man locate for more infos.\n\n== Anything Map ==\n\\{anything-map}") (defalias 'anything-generic-file-help #[nil "\302 )\207" [anything-generic-file-help-message anything-help-message anything-help] 1 nil nil]) (defvar anything-grep-help-message "== Anything Grep Map ==\nAnything Grep tips:\nYou can start grep with a prefix arg to recurse in subdirectories.\nYou can use wild card when selecting files (e.g *.el)\nYou can grep in many differents directories by marking files or wild cards.\nYou can save your results in a grep-mode buffer, see below.\n\n\nSpecific commands for Anything Grep:\n\\\n\\[anything-c-goto-next-file] ->Next File.\n\\[anything-c-goto-precedent-file] ->Precedent File.\n\\[anything-yank-text-at-point] ->Yank Text at point in minibuffer.\n\\[anything-c-grep-run-other-window-action] ->Jump other window.\n\\[anything-c-grep-run-persistent-action] ->Run persistent action (Same as `C-z').\n\\[anything-c-grep-run-default-action] ->Run default action (Same as RET).\n\\[anything-c-grep-run-save-buffer] ->Save to a `grep-mode' enabled buffer.\n\\[anything-grep-help] ->Show this help.\n\n== Anything Map ==\n\\{anything-map}") (defalias 'anything-grep-help #[nil "\302 )\207" [anything-grep-help-message anything-help-message anything-help] 1 nil nil]) (defvar anything-pdfgrep-help-message "== Anything PdfGrep Map ==\nSpecific commands for Pdf Grep:\n\\\n\\[anything-c-goto-next-file] ->Next File.\n\\[anything-c-goto-precedent-file] ->Precedent File.\n\\[anything-yank-text-at-point] ->Yank Text at point in minibuffer.\n\\[anything-pdfgrep-help] ->Show this help.\n\n== Anything Map ==\n\\{anything-map}") (defalias 'anything-pdfgrep-help #[nil "\302 )\207" [anything-pdfgrep-help-message anything-help-message anything-help] 1 nil nil]) (defvar anything-etags-help-message "== Anything Etags Map ==\nSpecific commands for Etags:\n\\\n\\[anything-c-goto-next-file] ->Next File.\n\\[anything-c-goto-precedent-file] ->Precedent File.\n\\[anything-yank-text-at-point] ->Yank Text at point in minibuffer.\n\\[anything-etags-help] ->Show this help.\n\n== Anything Map ==\n\\{anything-map}") #@30 The help function for etags. (defalias 'anything-etags-help #[nil "\302 )\207" [anything-etags-help-message anything-help-message anything-help] 1 (#$ . 49893) nil]) (defvar anything-c-ucs-help-message "== Anything Ucs ==\n\nSpecific commands for `anything-ucs':\n\\\n\\[anything-c-ucs-persistent-insert] ->Insert char.\n\\[anything-c-ucs-persistent-forward] ->Forward char.\n\\[anything-c-ucs-persistent-backward] ->Backward char.\n\\[anything-c-ucs-persistent-delete] ->Delete char backward.\n\\[anything-c-ucs-help] ->Show this help.\n\n\n== Anything Map ==\n\\{anything-map}") #@34 Help command for `anything-ucs'. (defalias 'anything-c-ucs-help #[nil "\302 )\207" [anything-c-ucs-help-message anything-help-message anything-help] 1 (#$ . 50503) nil]) (defvar anything-bookmark-help-message "== Anything bookmark name Map ==\nSpecific commands for bookmarks:\n\\\n\\[anything-c-bookmark-run-jump-other-window] ->Jump other window.\n\\[anything-c-bookmark-run-delete] ->Delete bookmark.\n\\[anything-c-bmkext-run-edit] ->Edit bookmark (only for bmkext).\n\\[anything-c-bookmark-help] ->Run this help.\n\n== Anything Map ==\n\\{anything-map}") #@29 Help command for bookmarks. (defalias 'anything-c-bookmark-help #[nil "\302 )\207" [anything-bookmark-help-message anything-help-message anything-help] 1 (#$ . 51100) nil]) (defvar anything-c-esh-help-message "== Anything eshell on file ==\n\nTips:\n\n- Passing extra args after filename:\n\nNormally your command or alias will be called with file as argument.\n\ne.g 'candidate_file'\n\nBut you can also pass an argument or more after 'candidate_file' like this:\n\n %s [extra_args]\n\n\n'candidate_file' will be inserted at '%s' and your command will look at this:\n\n 'candidate_file' [args]\n\n- Specify many files as args (marked files):\n\ne.g file1 file2 ...\n\nPlease restart and use a prefix arg to call `anything-find-files-eshell-command-on-file'.\nOtherwise your command will be called many times like this:\n\n file1 file2 etc...\n\n\nSpecific commands for `anything-find-files-eshell-command-on-file':\n\\\n\\[anything-esh-help] ->Display this help.\n\n== Anything Map ==\n\\{anything-map}") #@64 Help command for `anything-find-files-eshell-command-on-file'. (defalias 'anything-esh-help #[nil "\302 )\207" [anything-c-esh-help-message anything-help-message anything-help] 1 (#$ . 52198) nil]) (defvar anything-buffer-mode-line-string '("Buffer(s)" "\\\\[anything-c-buffer-help]:Help, \\\\[anything-select-action]:Acts,\\[anything-exit-minibuffer]/\\[anything-select-2nd-action-or-end-of-line]/\\[anything-select-3rd-action]:NthAct,\\[anything-send-bug-report-from-anything]:BugReport." "String displayed in mode-line in `anything-c-source-buffers-list'")) #@65 String displayed in mode-line in `anything-c-source-find-files' (defvar anything-ff-mode-line-string "\\\\[anything-ff-help]:Help, \\[anything-send-bug-report-from-anything]:BugReport, \\\\[anything-select-action]:Acts, \\[anything-exit-minibuffer]/\\[anything-select-2nd-action-or-end-of-line]/\\[anything-select-3rd-action]:NthAct" (#$ . 52804)) #@65 String displayed in mode-line in `anything-c-source-find-files' (defvar anything-read-file-name-mode-line-string "\\\\[anything-read-file-name-help]:Help, \\\\[anything-select-action]:Acts,\\[anything-exit-minibuffer]/\\[anything-select-2nd-action-or-end-of-line]/\\[anything-select-3rd-action]:NthAct" (#$ . 53197)) #@42 String displayed in mode-line in Locate. (defvar anything-generic-file-mode-line-string "\\\\[anything-generic-file-help]:Help, \\\\[anything-select-action]:Acts,\\[anything-exit-minibuffer]/\\[anything-select-2nd-action-or-end-of-line]/\\[anything-select-3rd-action]:NthAct,\\[anything-send-bug-report-from-anything]:BugReport." (#$ . 53560)) #@54 String displayed in mode-line in `anything-do-grep'. (defvar anything-grep-mode-line-string "\\\\[anything-grep-help]:Help,\\\\[anything-select-action]:Acts,\\[anything-exit-minibuffer]/\\[anything-select-2nd-action-or-end-of-line]/\\[anything-select-3rd-action]:NthAct,\\[anything-send-bug-report-from-anything]:BugReport." (#$ . 53952)) #@57 String displayed in mode-line in `anything-do-pdfgrep'. (defvar anything-pdfgrep-mode-line-string "\\\\[anything-pdfgrep-help]:Help,\\\\[anything-select-action]:Acts,\\[anything-exit-minibuffer]/\\[anything-select-2nd-action-or-end-of-line]/\\[anything-select-3rd-action]:NthAct,\\[anything-send-bug-report-from-anything]:BugReport." (#$ . 54332)) #@61 String displayed in mode-line in `anything-c-etags-select'. (defvar anything-etags-mode-line-string "\\\\[anything-etags-help]:Help,\\\\[anything-select-action]:Acts,\\[anything-exit-minibuffer]/\\[anything-select-2nd-action-or-end-of-line]/\\[anything-select-3rd-action]:NthAct,\\[anything-send-bug-report-from-anything]:BugReport." (#$ . 54724)) #@50 String displayed in mode-line in `anything-ucs'. (defvar anything-c-ucs-mode-line-string "\\\\[anything-c-ucs-help]:Help, \\\\[anything-select-action]:Acts,\\[anything-exit-minibuffer]/\\[anything-select-2nd-action-or-end-of-line]/\\[anything-select-3rd-action]:NthAct." (#$ . 55114)) (defvar anything-bookmark-mode-line-string '("Bookmark(s)" "\\\\[anything-c-bookmark-help]:Help, \\\\[anything-select-action]:Acts,\\[anything-exit-minibuffer]/\\[anything-select-2nd-action-or-end-of-line]/\\[anything-select-3rd-action]:NthAct,\\[anything-send-bug-report-from-anything]:BugReport." "String displayed in mode-line in `anything-c-source-buffers-list'")) (defvar anything-occur-mode-line "\\\\[anything-help]:Help,\\\\[anything-occur-run-query-replace-regexp]:Query replace regexp,\\\\[anything-select-action]:Acts,\\[anything-exit-minibuffer]/\\[anything-select-2nd-action-or-end-of-line]/\\[anything-select-3rd-action]:NthAct,\\[anything-send-bug-report-from-anything]:BugReport.") #@54 Return a list of available printers on Unix systems. (defalias 'anything-ff-find-printers #[nil "\306\307!\205F\310\311!rq\210\312\216\313\307\314\315\314\316%\210\317\320 \321\"+\211\314\211\314\n:\203C\n@\317 !@\211\203<\f B\nA\211\202( \237-\207" [#1=#:temp-buffer printer-list #2=#:--cl-var-- p printer #3=#:--cl-var-- executable-find "lpstat" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process nil t "-a" split-string buffer-string "\n"] 7 (#$ . 56224)]) #@63 Same as `switch-to-buffer' whithout warnings at compile time. (defalias 'anything-c-switch-to-buffer #[(buffer-or-name) "\301!\207" [buffer-or-name switch-to-buffer] 2 (#$ . 56777)]) #@300 A simple and faster replacement of CL `position'. Return position of first occurence of ITEM found in SEQ. Argument SEQ can be a string, in this case ITEM have to be a char. Argument ALL, if non--nil specify to return a list of positions of all ITEM found in SEQ. (fn ITEM SEQ &key (TEST 'eq) ALL) (defalias 'anything-c-position #[(item seq &rest #1=#:--cl-rest--) "\306\307\"\206\310A@\306\311\"A@ \203> @\312>\203' AA\211\202\313>A@\2035\314\211\202\315\316 @\"\210\202)\f;\203H\317\202I\320\321\322\323\324 \325BBBB!+\207" [#1# test all #2=#:--cl-keys-- seq key plist-member :test (nil eq) :all (:test :all :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:test :all)" across in eval loop for c (seq for index from 0 when (funcall test c item) if all collect index into ls else return index finally return ls)] 7 (#$ . 56968)]) #@44 Get pid from running process PROCESS-NAME. (defalias 'anything-c-get-pid-from-process-name #[(process-name) "\306 \211\307\211\310\307 :\203; @\311\312\313\n!\"\211\2030\314 \"\2030\n\307\211\2021\310\203; A\211\202 .\207" [process-list #1=#:--cl-var-- pid process #2=#:--cl-var-- #3=#:--cl-var-- list-system-processes nil t assoc-default comm process-attributes string-match process-name] 5 (#$ . 57860)]) #@117 Check if BUFFER is narrowed. Default is `anything-current-buffer'. (fn &optional (BUFFER anything-current-buffer)) (defalias 'anything-current-buffer-narrowed-p #[(&rest #1=#:--cl-rest--) "\203\f\211A\242\202 \203\306\307\310GTD\"\210r\nq\210ed\311 \211\312U?\2062\f TU?-\207" [#1# anything-current-buffer buffer total end beg signal wrong-number-of-arguments anything-current-buffer-narrowed-p buffer-size 1] 5 (#$ . 58295)]) (defalias 'anything-region-active-p #[nil "\205 \205 \302 `U?\207" [transient-mark-mode mark-active mark] 2]) #@37 Go to char, revealing if necessary. (defalias 'anything-goto-char #[(loc) "b\210 \303=\204\304\302!\205\n\205\305\306!\210\307 \207" [loc major-mode outline-minor-mode org-mode boundp require org org-reveal] 2 (#$ . 58858)]) #@99 Goto LINENO opening only outline headline if needed. Animation is used unless NOANIM is non--nil. (defalias 'anything-goto-line #[(lineno &optional noanim show-top) "eb\210\303\304!!\210 \203\305\306 `\"\210\n?\205!\307 \210\310\311!\210\312 \207" [lineno show-top noanim anything-goto-char point-at-bol set-window-start get-buffer-window anything-match-line-color-current-line sit-for 0.3 anything-match-line-cleanup] 3 (#$ . 59096)]) #@37 Show all candidates of this source. (defalias 'anything-show-this-source-only #[nil "\301\302\303\304\305 \"C!)\207" [anything-candidate-number-limit nil anything-set-source-filter assoc-default name anything-get-current-source] 4 (#$ . 59542) nil]) #@99 List all anything sources for test. The output is sexps which are evaluated by \[eval-last-sexp]. (defalias 'anything-test-sources #[nil "r\306\307!q\210p\310 \210 \311\211\312\211\312\313 \210\314\315!\210+\211\316\317\320\321\322\"\"\210\323!\324!\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*Anything Test Sources*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook mapc #[(s) "\301\302\303\"!\207" [s princ format ";; (anything '%s)\n"] 4] apropos-internal "^anything-c-source" boundp pop-to-buffer internal-temp-output-buffer-show inhibit-read-only #2=#:buf standard-output] 6 (#$ . 59799) nil]) #@23 Display sources name. (defalias 'anything-displaying-source-names #[nil "rq\210eb\210\303\211\304`\305\"\211\203& b\210\306\307 \310 \"\nB\311y\210\202 \n\237+\207" [anything-buffer pos #1=#:--cl-var-- nil next-single-property-change anything-header buffer-substring-no-properties point-at-bol point-at-eol 1] 4 (#$ . 60546)]) #@27 [OBSOLETE] Select source. (defalias 'anything-select-source #[nil "\306\307\310 \"\311 \312\313\314 \"\315\316\317\320\316\321\316\n\322&)\211\203)\323 C!\202,\323\316!,\207" [all-source-names source-names default anything-candidate-number-limit anything-source-filter it assoc-default name anything-get-current-source anything-displaying-source-names mapcar #[(s) "\301\302\"\207" [s assoc-default name] 3] anything-get-sources 9999 nil anything-nest (((name . "Anything Source") (candidates . source-names) (action . identity)) ((name . "Anything Source (ALL)") (candidates . all-source-names) (action . identity))) "Source: " "*anything select source*" anything-set-source-filter] 8 (#$ . 60886) nil]) #@13 Insert STR. (defalias 'anything-insert-string #[(str) "\301\302\"\207" [str anything-set-pattern noupdate] 3 (#$ . 61607)]) #@21 Insert buffer name. (defalias 'anything-insert-buffer-name #[nil "\302rq\210 \203\303 !\202\304 )!\207" [anything-current-buffer buffer-file-name anything-set-pattern file-name-nondirectory buffer-name] 3 (#$ . 61738) nil]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias anything-insert-symbol next-history-element anything-insert-selection anything-yank-selection] 3) #@76 Return non-nil if `anything-pattern' match basename of filename CANDIDATE. (defalias 'anything-c-match-on-file-name #[(candidate) "\302\303 !\"\207" [anything-pattern candidate string-match file-name-nondirectory] 4 (#$ . 62131)]) #@73 Return non-nil if `anything-pattern' match directory part of CANDIDATE. (defalias 'anything-c-match-on-directory-name #[(candidate) "\303!\211\205\f\304\n \")\207" [candidate it anything-pattern file-name-directory string-match] 4 (#$ . 62369)]) #@76 Return non-nil if `anything-pattern' match basename of filename CANDIDATE. (defalias 'anything-c-match-on-basename #[(candidate) "\302\303 !\"\207" [anything-pattern candidate string-match anything-c-basename] 4 (#$ . 62624)]) #@94 Return non-nil if `anything-pattern' match CANDIDATE. The match is done with `string-match'. (defalias 'anything-c-string-match #[(candidate) "\302 \"\207" [anything-pattern candidate string-match] 3 (#$ . 62858)]) #@48 Remove entries which matches REGEXP from LIST. (defalias 'anything-c-skip-entries #[(list regexp) "\301\302\"\207" [list remove-if #[(x) ";\205 \302 \"\207" [x regexp string-match] 3]] 3 (#$ . 63080)]) #@76 Display elements of LIST matching REGEXP with the `file-name-shadow' face. (defalias 'anything-c-shadow-entries #[(list regexp) "\301\302\"\207" [list mapcar #[(file) "\303\304!\203\n\304\202 \305\306 \n\"\203\307\n\300#)\n\207" [face regexp file facep file-name-shadow default string-match propertize] 4]] 3 (#$ . 63292)]) #@27 Get string of STR-OR-SYM. (defalias 'anything-c-stringify #[(str-or-sym) ";\203\207\301!\207" [str-or-sym symbol-name] 2 (#$ . 63630)]) (byte-code "\300\301\302\303#\207" [put anything-c-stringify byte-optimizer byte-compile-inline-expand] 4) #@27 Get symbol of STR-OR-SYM. (defalias 'anything-c-symbolify #[(str-or-sym) "9\203\207\301!\207" [str-or-sym intern] 2 (#$ . 63884)]) (byte-code "\300\301\302\303#\207" [put anything-c-symbolify byte-optimizer byte-compile-inline-expand] 4) #@27 FUNC is symbol or string. (defalias 'anything-c-describe-function #[(func) "\302\2119\203\f \202\303 !)!\207" [func str-or-sym describe-function intern] 4 (#$ . 64133)]) #@26 VAR is symbol or string. (defalias 'anything-c-describe-variable #[(var) "\302\2119\203\f \202\303 !)!\207" [var str-or-sym describe-variable intern] 4 (#$ . 64314)]) #@27 FUNC is symbol or string. (defalias 'anything-c-find-function #[(func) "\302\2119\203\f \202\303 !)!\207" [func str-or-sym find-function intern] 4 (#$ . 64492)]) #@26 VAR is symbol or string. (defalias 'anything-c-find-variable #[(var) "\302\2119\203\f \202\303 !)!\207" [var str-or-sym find-variable intern] 4 (#$ . 64665)]) #@69 CANDIDATE is symbol or string. See `kill-new' for argument REPLACE. (defalias 'anything-c-kill-new #[(candidate &optional replace) "\303\211;\203\f \202\304 !)\n\"\207" [candidate str-or-sym replace kill-new symbol-name] 4 (#$ . 64835)]) #@244 Remove duplicates elements in list SEQ. This is same as `remove-duplicates' but with memoisation. It is much faster, especially in large lists. A test function can be provided with TEST argument key. Default is `eq'. (fn SEQ &key (TEST 'eq)) (defalias 'anything-fast-remove-dups #[(seq &rest #1=#:--cl-rest--) "\306\307\"\206\310A@\n\2037\n@\311>\203 \nAA\211\202\312>A@\203.\313\211\202\314\315\n@\"\210\202 )\316\307 \"\f\313 :\203a @\317 \"\204Z\320\211 #\210 A\211\202C\313\321\322 \"\210\237-\207" [#1# test #2=#:--cl-keys-- cont seq #3=#:--cl-var-- plist-member :test (nil eq) (:test :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:test)" make-hash-table gethash puthash maphash #[(#4=#:--cl-var-- i) " B\211\207" [i #5=#:--cl-var--] 2] elm #5#] 5 (#$ . 65085)]) (byte-code "\300\301\302\303\304$\210\305\301\304\"\207" [ad-add-advice eval-defun (anything-source-hack nil t (advice lambda nil "Allow immediate execution of anything source when evaling it.\nSee `anything-c-enable-eval-defun-hack'." (when anything-c-enable-eval-defun-hack (let ((varsym (save-excursion (beginning-of-defun) (forward-char 1) (when (memq (read (current-buffer)) '(defvar setq)) (read (current-buffer)))))) (when (string-match "^anything-c-source-" (symbol-name varsym)) (anything varsym)))))) after nil ad-activate] 5) #@136 Drop into `anything-find-files' from `anything'. If current selection is a buffer or a file, `anything-find-files' from its directory. (defalias 'anything-quit-and-find-file #[nil "\306\307\310\311 !\211\2032\312!\206U\313 \"@\206Urq\210\n)\314=\203. \203.\315 !\206U\f\202U\311 \316 !\204A\317 !\203G\315 !\202T\320 \"\203S \202T\f))\"\207" [it dired-buffers major-mode org-directory default-directory sel anything-run-after-quit #[(f) "\302!\203\303\304! \203\305!\202\"\207\303!\207" [f anything-ff-transformer-show-only-basename file-exists-p anything-find-files-1 file-name-directory anything-c-basename] 4] get-buffer anything-get-selection buffer-file-name rassoc org-agenda-mode expand-file-name file-remote-p file-exists-p string-match ffap-url-regexp] 6 (#$ . 66469) nil]) #@277 Walk through DIRECTORY tree. PATH can be one of basename, relative, or full. DIRECTORIES when non--nil (default) return also directories names, otherwise skip directories names. MATCH match only filenames matching regexp MATCH. (fn DIRECTORY &key PATH (DIRECTORIES t) MATCH) (defalias 'anything-c-walk-directory '(macro . #[(directory &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"\206\311A@\306\312\"A@\f\203E\f@\313>\203.\fAA\211\202\314>A@\203<\315\211\202\316\317\f@\"\210\202)\320\321\322\323 \324BBDD\325\326\327\330\331\332\333\334\335\336\337\332\340\341\342\343\344\n\345BB\346BB\347\342\350\351 \352\353 \354BBDE\355BB\257EC\326 D\356BBBE+\207" [#1# path directories match #2=#:--cl-keys-- directory plist-member :path :directories (nil t) :match (:path :directories :match :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:path :directories :match)" let result fn case ((basename 'file-name-nondirectory) (relative 'file-relative-name) (full 'identity) (t 'file-name-nondirectory)) labels ls-R (dir) loop with ls = (directory-files dir t directory-files-no-dot-files-regexp) for f in if (file-directory-p f) do progn when ((push (funcall fn f) result)) ((unless (file-symlink-p f) (ls-R f))) else unless and not string-match ((file-name-nondirectory f)) ((push (funcall fn f) result)) ((nreverse result))] 28 (#$ . 67289)])) (defvar anything-build-regexp-history nil) #@187 Query replace regexp from `anything-regexp'. With a prefix arg replace only matches surrounded by word boundaries, i.e Don't replace inside a word, regexp is surrounded with \bregexp\b. (defalias 'anything-c-query-replace-regexp #[(candidate) "\301\300! \302\303\304!\")\207" [regexp anything-attr apply query-replace-regexp anything-c-query-replace-args] 4 (#$ . 68731)]) #@46 Kill regexp in a format usable in lisp code. (defalias 'anything-c-kill-regexp-as-sexp #[(candidate) "\300\301\302\303! !!\207" [anything-c-regexp-kill-new prin1-to-string anything-attr regexp] 4 (#$ . 69112)]) #@45 Kill regexp as it is in `anything-pattern'. (defalias 'anything-c-kill-regexp #[(candidate) "\300\301\302! !\207" [anything-c-regexp-kill-new anything-attr regexp] 3 (#$ . 69329)]) #@73 create arguments of `query-replace-regexp' action in `anything-regexp'. (defalias 'anything-c-query-replace-args #[(regexp) "\303  \304 \305\306\n\203\307\202\310\203\311\202\310#\312#\n\205$\313 \205*\314 \257)\207" [region-only regexp anything-current-prefix-arg anything-region-active-p query-replace-read-to format "Query replace %sregexp %s" "word " "" "in region " t region-beginning region-end] 7 (#$ . 69516)]) (defvar anything-c-source-regexp '((name . "Regexp Builder") (init lambda nil (anything-candidate-buffer anything-current-buffer)) (candidates-in-buffer) (get-line . anything-c-regexp-get-line) (persistent-action . anything-c-regexp-persistent-action) (persistent-help . "Show this line") (multiline) (delayed) (requires-pattern . 2) (mode-line . "Press TAB to select action.") (regexp lambda nil anything-input) (action ("Kill Regexp as sexp" . anything-c-kill-regexp-as-sexp) ("Query Replace Regexp (C-u Not inside word.)" . anything-c-query-replace-regexp) ("Kill Regexp" . anything-c-kill-regexp)))) (defalias 'anything-c-regexp-get-line #[(s e) "\305\306\307\310\311\312S! {#\313\314 G\315\245S\316\n X\203<\310\317\320\n!\203*\321\202.\310\322\n\"\323\n!#\fB\nT\211\202\f\237+#\324S#\207" [s e i #1=#:--cl-var-- #2=#:--cl-var-- propertize apply concat format "%5d: %s" line-number-at-pos 0 match-data 2 nil "\n %s'%s'" zerop "Group 0: " "Group %d: " match-string anything-realvalue] 10]) (defalias 'anything-c-regexp-persistent-action #[(pt) "\301!\210\302 \207" [pt anything-goto-char anything-persistent-highlight-point] 2]) (defalias 'anything-c-regexp-kill-new #[(input) "\301!\210\302\303\"\207" [input kill-new message "Killed: %s"] 3]) #@49 Quote whitespace, if some, in string CANDIDATE. (defalias 'anything-quote-whitespace #[(candidate) "\301\302\303#\207" [candidate replace-regexp-in-string " " "\\\\ "] 4 (#$ . 71229)]) #@57 Mark all visible unmarked candidates in current source. (defalias 'anything-mark-all #[nil "\203\217r\306 q\210\212\307 b\210\310 \210\311 \211\205!\212 b\210\312y\210`)\211\206'd` W\203\203\313 \210\314\315 \316\"\317 \320 \205B\321 !&\322\323\324 \"'\325 \204y\f\326\230\204y\f\327\230\204y\320 \204h'\330\232\203v\331\332&\"\204y\333 !\203y\334 \210,\335y\210\336\210\202(,\313 \210\337\340(G\")\207\341\342 !)r\343\216\344)@\345\"\210\212\307 b\210\310 \210\311 \211\205\267\212 b\210\312y\210`)\211\206\275d` W\203\313 \210\314\315 \316\"\317 \320 \205\330\321 !&\322\323\324 \"'\325 \204\f\326\230\204\f\327\230\204\320 \204\376'\330\232\203\f\331\332&\"\204\333 !\203\334 \210,\335y\210\336\210\202\276,\313 \210\337\340(G\"+\207" [anything-test-mode next-head end maxpoint prefix cand anything-buffer-get anything-get-previous-header-pos anything-next-line anything-get-next-header-pos -1 anything-mark-current-line get-text-property point-at-bol display anything-get-selection anything-file-completion-source-p anything-c-basename assoc-default name anything-get-current-source anything-this-visible-mark "[?]" "[@]" "Files from Current Directory" string-match "^\\.#.*\\|^#.*#$\\|\\.$" file-exists-p anything-make-visible-mark 1 nil message "%s candidates marked" internal--before-with-selected-window anything-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord bn src anything-marked-candidates save-selected-window--state] 4 (#$ . 71421) nil]) #@67 Unmark all candidates in all sources of current anything session. (defalias 'anything-unmark-all #[nil "\203r\304 q\210 G\212\305 \210)\306\307 \210\310\311\n\"*\207\312\313 !r\314\216\315 @\316\"\210 G\212\305 \210)\306\307 \210\310\311\n\",\207" [anything-test-mode anything-marked-candidates len save-selected-window--state anything-buffer-get anything-clear-visible-mark nil anything-mark-current-line message "%s candidates unmarked" internal--before-with-selected-window anything-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord] 3 (#$ . 72987) nil]) #@154 Toggle all marks. Mark all visible candidates of current source or unmark all candidates visible or invisible in all sources of current anything session (defalias 'anything-toggle-all-marks #[nil "\304 \211G\305Y\2030 \203r\306 q\210\n)\202(\307\310 !r\311\216\312 @\313\"\210\n+\2030\314 \2022\315 )\207" [marked anything-test-mode anything-visible-mark-overlays save-selected-window--state anything-marked-candidates 1 anything-buffer-get internal--before-with-selected-window anything-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord anything-unmark-all anything-mark-all] 4 (#$ . 73609) nil]) #@186 Return a list of buffer names. The first buffer in the list will be the last recently used buffer that is not the current buffer unless `anything-allow-skipping-current-buffer' is nil. (defalias 'anything-c-buffer-list #[nil "\303\304\305 \" \203\306\304\n!\"\307A@C\"\202)\207" [buffers anything-allow-skipping-current-buffer anything-current-buffer mapcar buffer-name buffer-list remove append] 3 (#$ . 74271)]) (defvar anything-c-source-buffers '((name . "Buffers") (candidates . anything-c-buffer-list) (type . buffer))) (defvar anything-c-source-buffer-not-found (byte-code "\301\302\303\304B\305BBBB\207" [anything-map (name . "Create buffer") (dummy) (filtered-candidate-transformer (lambda (cands source) (list anything-pattern))) keymap ((action lambda (candidate) (anything-c-switch-to-buffer (get-buffer-create candidate))))] 5)) #@114 Transformer function to highlight BUFFERS list. Should be called after others transformers i.e (boring buffers). (defalias 'anything-c-highlight-buffers #[(buffers) "\203 \202 \211A\n\211AA\241\210)\242 B\211\306\211\306\211\f:\203 \f@\307 !\310!\311\"\203P\312 \313\314\315\311\"@%\202\203u\316!\204u\317!\203u\320!\204u\312 \313\321\315%\202\203\223\316!\204\223\320!\204\223\312 \313\322\315%\202\203\301\316!\203\301\323!\203\301\312\324\325\312\326\313\327##\211\312 \313\330\315%P )B\202\203\330\323!\203\330\312 \313\330\315%\202\203\377\316!\203\377\312\324\325\312\326\313\327##\211\312 \313\331\315%P )B\202\203\312 \313\331\315%\202\312 \313\332#B\fA\211\202%\237.\207" [anything-allow-skipping-current-buffer buffers #1=#:v buflist #2=#:--cl-var-- i nil get-buffer buffer-file-name rassoc propertize face anything-ff-directory help-echo file-remote-p file-exists-p verify-visited-file-modtime anything-buffer-saved-out anything-buffer-not-saved buffer-modified-p " " display "@ " anything-ff-prefix anything-ff-symlink font-lock-type-face italic buf bfname #3=#:--cl-var-- dired-buffers prefix] 9 (#$ . 75130)]) (defvar anything-c-source-buffers-list (byte-code "\301\302\303\304\305\306\307B\310BBBBBBB\207" [anything-c-buffer-map (name . "Buffers") (candidates . anything-c-buffer-list) (type . buffer) (match anything-c-buffer-match-major-mode) (candidate-transformer anything-c-skip-boring-buffers anything-c-highlight-buffers) (persistent-action . anything-c-buffers-list-persistent-action) keymap ((volatile) (mode-line . anything-buffer-mode-line-string) (persistent-help . "Show this buffer / C-u \\[anything-execute-persistent-action]: Kill this buffer"))] 8)) (defvaralias 'anything-c-source-buffers+ 'anything-c-source-buffers-list) #@425 Match maybe buffer by major-mode. If you give a major-mode or partial major-mode, it will list all buffers of this major-mode and/or buffers with name matching this major-mode. If you add a space after major-mode and then a space, it will match all buffers of the major-mode before space matching pattern after space. If you give a pattern which doesn't match a major-mode, it will search buffer with name matching pattern. (defalias 'anything-c-buffer-match-major-mode #[(candidate) "\306\307\310#\311 !\211\205Tr\nq\210\312 !\313\f!\314\315\f\"\203+\314 @\"\202S\314\316\f\"\203G\314 @\"\205S\314 \211A@\262 \"\202S\314\f\"\206S\314\f \"+*\207" [candidate cand buf major-mode anything-pattern split replace-regexp-in-string "^\\s-\\{1\\}" "" get-buffer symbol-name split-string string-match "\\s-$" "\\s-" mjm] 5 (#$ . 77011)]) #@86 Query replace in marked buffers. If REGEXP-FLAG is given use `query-replace-regexp'. (defalias 'anything-c-buffer-query-replace-1 #[(&optional regexp-flag) "\203\306\202 \307\203\310\202\311\312 \313\n\"\211:?\205'\314\f\n# \315:\203m@\316 \317\216\320!\210\212\321eb\210\f:\203\\\322 \f@\fAD\"\210\202c\322 \f D\"\210,A\211\2020.\315\207" [regexp-flag bufs prompt fn replace tostring query-replace-regexp query-replace "Query replace regexp" "Query replace" anything-marked-candidates query-replace-read-from query-replace-read-to nil current-window-configuration ((set-window-configuration #1=#:wconfig)) anything-c-switch-to-buffer t apply #2=#:--cl-var-- buf #1# case-fold-search] 5 (#$ . 77867)]) (defalias 'anything-c-buffer-query-replace-regexp #[(candidate) "\300\301!\207" [anything-c-buffer-query-replace-1 regexp] 2]) (defalias 'anything-c-buffer-query-replace #[(candidate) "\300 \207" [anything-c-buffer-query-replace-1] 1]) #@46 Toggle diff buffer CANDIDATE with it's file. (defalias 'anything-buffer-toggle-diff #[(candidate) "\301\302!\203\n\303\302!\207\304\305!!\207" [candidate get-buffer-window "*Diff*" kill-buffer diff-buffer-with-file get-buffer] 3 (#$ . 78853)]) #@47 Toggle diff buffer without quitting anything. (defalias 'anything-buffer-diff-persistent #[nil "\300\301\302\"\210\303\301!\207" [anything-attrset diff-action anything-buffer-toggle-diff anything-execute-persistent-action] 3 (#$ . 79105) nil]) (defalias 'anything-buffer-revert-and-update #[(candidate) "\304 \211\305 :\203 @\306\n!\210 A\211\202*\307 !)\207" [marked #1=#:--cl-var-- buf candidate anything-marked-candidates nil anything-revert-buffer anything-force-update] 3]) #@42 Revert buffer without quitting anything. (defalias 'anything-buffer-revert-persistent #[nil "\300\301\302\"\210\303\301\304\"\207" [anything-attrset revert-action anything-buffer-revert-and-update anything-execute-persistent-action onewindow] 3 (#$ . 79599) nil]) (defalias 'anything-buffer-save-and-update #[(candidate) "\305 \306\211\307\n:\203\"\n@r\310 !q\210\311 \210)\nA\211\202\n*\312\f!*\207" [enable-recursive-minibuffers marked #1=#:--cl-var-- buf candidate anything-marked-candidates t nil get-buffer save-buffer anything-force-update] 3]) #@40 Save buffer without quitting anything. (defalias 'anything-buffer-save-persistent #[nil "\300\301\302\"\210\303\301\304\"\207" [anything-attrset save-action anything-buffer-save-and-update anything-execute-persistent-action onewindow] 3 (#$ . 80164) nil]) #@63 Run kill buffer action from `anything-c-source-buffers-list'. (defalias 'anything-buffer-run-kill-buffers #[nil "\300\301!\207" [anything-c-quit-and-execute-action anything-kill-marked-buffers] 2 (#$ . 80426) nil]) #@56 Run Grep action from `anything-c-source-buffers-list'. (defalias 'anything-buffer-run-grep #[nil "\300\301!\207" [anything-c-quit-and-execute-action anything-c-grep-buffers] 2 (#$ . 80647) nil]) #@56 Run Grep action from `anything-c-source-buffers-list'. (defalias 'anything-buffer-run-zgrep #[nil "\300\301!\207" [anything-c-quit-and-execute-action anything-c-zgrep-buffers] 2 (#$ . 80848) nil]) #@72 Run Query replace regexp action from `anything-c-source-buffers-list'. (defalias 'anything-buffer-run-query-replace-regexp #[nil "\300\301!\207" [anything-c-quit-and-execute-action anything-c-buffer-query-replace-regexp] 2 (#$ . 81051) nil]) #@65 Run Query replace action from `anything-c-source-buffers-list'. (defalias 'anything-buffer-run-query-replace #[nil "\300\301!\207" [anything-c-quit-and-execute-action anything-c-buffer-query-replace] 2 (#$ . 81299) nil]) #@74 Run switch to other window action from `anything-c-source-buffers-list'. (defalias 'anything-buffer-switch-other-window #[nil "\300\301!\207" [anything-c-quit-and-execute-action switch-to-buffer-other-window] 2 (#$ . 81526) nil]) #@73 Run switch to other frame action from `anything-c-source-buffers-list'. (defalias 'anything-buffer-switch-other-frame #[nil "\300\301!\207" [anything-c-quit-and-execute-action switch-to-buffer-other-frame] 2 (#$ . 81762) nil]) #@71 Run switch to elscreen action from `anything-c-source-buffers-list'. (defalias 'anything-buffer-switch-to-elscreen #[nil "\300\301!\207" [anything-c-quit-and-execute-action anything-find-buffer-on-elscreen] 2 (#$ . 81995) nil]) #@57 Run ediff action from `anything-c-source-buffers-list'. (defalias 'anything-buffer-run-ediff #[nil "\300\301!\207" [anything-c-quit-and-execute-action anything-ediff-marked-buffers] 2 (#$ . 82230) nil]) #@57 Run ediff action from `anything-c-source-buffers-list'. (defalias 'anything-buffer-run-ediff-merge #[nil "\300\301!\207" [anything-c-quit-and-execute-action anything-ediff-marked-buffers-merge] 2 (#$ . 82439) nil]) #@35 Persistent action to kill buffer. (defalias 'anything-c-buffers-persistent-kill #[(buffer) "r\301!q\210\302 \203\303p!\203\304 \210\305!\210\202\305!\210)\306 \207" [buffer get-buffer buffer-modified-p buffer-file-name save-buffer kill-buffer anything-delete-current-selection] 2 (#$ . 82660)]) (defalias 'anything-c-buffers-list-persistent-action #[(candidate) "\203\302 !\207\303 !\207" [current-prefix-arg candidate anything-c-buffers-persistent-kill anything-c-switch-to-buffer] 2]) (defvar anything-c-source-file-name-history '((name . "File Name History") (candidates . file-name-history) (match anything-c-match-on-basename) (type . file))) (defvar anything-c-source-files-in-current-dir '((name . "Files from Current Directory") (candidates lambda nil (with-anything-current-buffer (directory-files (anything-c-current-directory)))) (type . file))) (defalias 'anything-c-highlight-files #[(files) "\304\211 :\203: @\305\n!\203%\306\307\n!\310\311\312\313\n!% B\2023\306\307\n!\310\314\312\313\n!% B A\211\202 \237+\207" [files #1=#:--cl-var-- i #2=#:--cl-var-- nil file-directory-p propertize file-name-nondirectory face anything-ff-directory help-echo expand-file-name anything-ff-file] 8]) (defvar anything-c-source-files-in-current-dir+ (byte-code "\301\302\303B\304BBB\207" [anything-generic-files-map (name . "Files from Current Directory") (candidates lambda nil (with-anything-current-buffer (directory-files (anything-c-current-directory) t))) keymap ((help-message . anything-generic-file-help-message) (mode-line . anything-generic-file-mode-line-string) (candidate-transformer anything-c-highlight-files) (type . file))] 4)) #@79 *The doc that is inserted in the Name header of a find-files or dired source. (defvar anything-c-find-files-doc-header " (`C-l': Go to precedent level)" (#$ . -84336)) #@145 Internal, flag to turn on/off auto-update in `anything-find-files'. Don't set it directly, use instead `anything-ff-auto-update-initial-value'. (defvar anything-ff-auto-update-flag nil (#$ . 84511)) #@40 Store last expanded directory or file. (defvar anything-ff-last-expanded nil (#$ . 84716)) (defvar anything-ff-default-directory nil) (defvar anything-ff-history nil) (defvar anything-ff-cand-to-mark nil) #@59 Same as `ffap-url-regexp' but match earlier possible url. (defvar anything-ff-url-regexp "\\`\\(news\\(post\\)?:\\|nntp:\\|mailto:\\|file:\\|\\(ftp\\|https?\\|telnet\\|gopher\\|www\\|wais\\):/?/?\\).*" (#$ . 84927)) (defvar anything-c-source-find-files (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321!\205\322\320\323!\205\324\325BBBB\"B\257\f\207" [(name . "Find Files") (header-name lambda (name) (concat name anything-c-find-files-doc-header)) (init lambda nil (setq anything-ff-auto-update-flag anything-ff-auto-update-initial-value)) (candidates . anything-find-files-get-candidates) (filtered-candidate-transformer anything-c-find-files-transformer) (persistent-action . anything-find-files-persistent-action) (persistent-help . "Hit1 Expand Candidate, Hit2 or (C-u) Find file") (mode-line . anything-ff-mode-line-string) (volatile) (candidate-number-limit . 9999) (action-transformer . anything-find-files-action-transformer) action delq nil ("Find File" . anything-c-find-file-or-marked) ("Find file in Dired" . anything-c-point-file-in-dired) locate-library "elscreen" ("Find file in Elscreen" . anything-elscreen-find-file) "popwin" ("Find file in popup window" . popwin:find-file) (("Checksum File" . anything-ff-checksum) ("Complete at point `M-tab'" . anything-c-insert-file-name-completion-at-point) ("Open file externally `C-c C-x, C-u to choose'" . anything-c-open-file-externally) ("Grep File(s) `M-g s, C-u Recurse'" . anything-find-files-grep) ("Zgrep File(s) `M-g z, C-u Recurse'" . anything-ff-zgrep) ("Switch to Eshell `M-e'" . anything-ff-switch-to-eshell) ("Etags `M-., C-u tap, C-u C-u reload tag file'" . anything-ff-etags-select) ("Eshell command on file(s) `M-!, C-u run on all marked at once.'" . anything-find-files-eshell-command-on-file) ("Find file as root" . anything-find-file-as-root) ("Find file in hex dump" . hexl-find-file) ("Ediff File `C-='" . anything-find-files-ediff-files) ("Ediff Merge File `C-c ='" . anything-find-files-ediff-merge-files) ("Delete File(s) `M-D'" . anything-delete-marked-files) ("Copy file(s) `M-C, C-u to follow'" . anything-find-files-copy) ("Copy file(s) Async" . anything-ff-copy-async) ("Rename file(s) `M-R, C-u to follow'" . anything-find-files-rename) ("Serial rename files" . anything-ff-serial-rename) ("Serial rename by symlinking files" . anything-ff-serial-rename-by-symlink) ("Serial rename by copying files" . anything-ff-serial-rename-by-copying) ("Symlink files(s) `M-S, C-u to follow'" . anything-find-files-symlink) ("Relsymlink file(s) `C-u to follow'" . anything-find-files-relsymlink) ("Hardlink file(s) `M-H, C-u to follow'" . anything-find-files-hardlink) ("Find file other window `C-o'" . find-file-other-window) ("Switch to history `M-p'" . anything-find-files-switch-to-hist) ("Find file other frame `C-c C-o'" . find-file-other-frame) ("Print File `C-c p, C-u to refresh'" . anything-ff-print) ("Locate `C-x C-f, C-u to specify locate db'" . anything-ff-locate))] 19)) #@41 Set prompt for action ACTION for FILES. (defalias 'anything-find-files-set-prompt-for-action #[(action files) "G\303\304\n \305\306\307#$)\207" [files len action format "%s *%s File(s)\n%s to: " mapconcat #[(f) "\301\302\"\207" [f format "- %s\n"] 3] ""] 8 (#$ . 87937)]) #@152 Return value of `default-directory' of buffer in other window. If there is only one window return the value ot `default-directory' for current buffer. (defalias 'anything-dwim-target-directory #[nil "rq\210\305 G\211\306V\203\307 r\310\216\311\306!\210 +\202\f@*\207" [anything-current-buffer num-windows save-selected-window--state default-directory anything-ff-history window-list 1 internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) other-window] 3 (#$ . 88220)]) #@138 Generic function for creating action from `anything-c-source-find-files'. ACTION must be an action supported by `anything-dired-action'. (defalias 'anything-find-files-do-action #[(action) "\306\307\310 \"\311 \312\313\314\n!!\"\f\315 \316\203\"\317 !\202# \320\321 \322\323\324\325\"&\326\327\330\n\331 &-\207" [ifiles cand action prompt anything-current-prefix-arg parg mapcar expand-file-name anything-marked-candidates anything-get-selection anything-find-files-set-prompt-for-action capitalize symbol-name anything-c-read-file-name :preselect anything-c-basename :initial-input anything-dwim-target-directory :history anything-find-files-history :comp-read nil anything-dired-action :files :action :follow anything-ff-transformer-show-only-basename dest] 10 (#$ . 88757)]) #@40 Copy files from `anything-find-files'. (defalias 'anything-find-files-copy #[(candidate) "\300\301!\207" [anything-find-files-do-action copy] 2 (#$ . 89557)]) #@42 Rename files from `anything-find-files'. (defalias 'anything-find-files-rename #[(candidate) "\300\301!\207" [anything-find-files-do-action rename] 2 (#$ . 89722)]) #@43 Symlink files from `anything-find-files'. (defalias 'anything-find-files-symlink #[(candidate) "\300\301!\207" [anything-find-files-do-action symlink] 2 (#$ . 89893)]) #@46 Relsymlink files from `anything-find-files'. (defalias 'anything-find-files-relsymlink #[(candidate) "\300\301!\207" [anything-find-files-do-action relsymlink] 2 (#$ . 90067)]) #@44 Hardlink files from `anything-find-files'. (defalias 'anything-find-files-hardlink #[(candidate) "\300\301!\207" [anything-find-files-do-action hardlink] 2 (#$ . 90250)]) #@54 Byte compile elisp files from `anything-find-files'. (defalias 'anything-find-files-byte-compile #[(candidate) "\305 \211\306 :\203 @\307\f \"\210 A\211\202\n,\306\207" [anything-current-prefix-arg parg files #1=#:--cl-var-- fname anything-marked-candidates nil byte-compile-file] 4 (#$ . 90427)]) #@46 Load elisp files from `anything-find-files'. (defalias 'anything-find-files-load-files #[(candidate) "\303 \211\304 :\203 @\305\n!\210 A\211\202+\304\207" [files #1=#:--cl-var-- fname anything-marked-candidates nil load] 3 (#$ . 90741)]) #@65 Generic function to ediff/merge files in `anything-find-files'. (defalias 'anything-find-files-ediff-files-1 #[(candidate &optional merge) "\305! \203 \306\202\f\307 \203\310\202\311\n\312\313\314\217\"+\207" [candidate merge fun prompt bname anything-c-basename "Ediff Merge `%s' With File: " "Ediff `%s' With File: " ediff-merge-files ediff-files quit (byte-code "\302\303 \"!\207" [prompt bname anything-c-read-file-name format] 4) ((quit (byte-code "\304\305!\203!\306\307 \"\n\310=\203\311\312 \"\203 \202 \313P\"\207\314\315!\207" [prompt bname system-type anything-c-locate-command y-or-n-p "Search file for ediff with locate? " anything-c-locate-read-file-name format windows-nt string-match "^es" " -b" error "Error: Ediff Operation aborted"] 5)))] 5 (#$ . 90994)]) (defalias 'anything-find-files-ediff-files #[(candidate) "\301!\207" [candidate anything-find-files-ediff-files-1] 2]) (defalias 'anything-find-files-ediff-merge-files #[(candidate) "\301\302\"\207" [candidate anything-find-files-ediff-files-1 merge] 3]) #@58 Default action to grep files from `anything-find-files'. (defalias 'anything-find-files-grep #[(candidate) "\301\302 \"\207" [anything-current-prefix-arg anything-do-grep-1 anything-marked-candidates] 3 (#$ . 92052)]) #@59 Default action to zgrep files from `anything-find-files'. (defalias 'anything-ff-zgrep #[(candidate) "\303 \304 \n\"*\207" [anything-current-prefix-arg ls prefarg anything-marked-candidates anything-ff-zgrep-1] 3 (#$ . 92277)]) #@61 Default action to pdfgrep files from `anything-find-files'. (defalias 'anything-ff-pdfgrep #[(candidate) "\305 \306\211:\203*@\307 !\310\230\204\307 !\311\230\203# \nBA\211\202\n\237+\312\211\2057\313\f!*\207" [#1=#:--cl-var-- file #2=#:--cl-var-- anything-c-pdfgrep-default-function cands anything-marked-candidates nil file-name-extension "pdf" "PDF" anything-c-pdfgrep-init anything-do-pdfgrep-1] 3 (#$ . 92514)]) #@61 Default action to jump to etags from `anything-find-files'. (defalias 'anything-ff-etags-select #[(candidate) "\304!\203\n\305!\210 \306 !)\207" [anything-action-buffer anything-ff-default-directory default-directory anything-current-prefix-arg get-buffer kill-buffer anything-c-etags-select] 2 (#$ . 92955)]) #@40 Switch to anything-find-files history. (defalias 'anything-find-files-switch-to-hist #[(candidate) "\300\301!\207" [anything-find-files t] 2 (#$ . 93275)]) #@195 Copy a list of Files FLIST to DEST asynchronously. It use another emacs process to do the job. Communication with background emacs is done with temp file `anything-c-copy-files-async-log-file'. (defalias 'anything-c-copy-files-async-1 #[(flist dest) "\304\305\306\307\310\311\312\313 \n\211\211 \n&&\207" [anything-c-copy-async-prefered-emacs flist dest anything-c-copy-files-async-log-file start-file-process "emacs-batch" nil "-Q" "--batch" "--eval" format "(progn\n (require 'dired) (require 'cl)\n (let ((dired-recursive-copies 'always)\n failures success\n (ovw-count 0)\n (cpf-count 0))\n (dolist (f '%S)\n (condition-case err\n (let ((file-exists (file-exists-p\n (expand-file-name\n (file-name-nondirectory (directory-file-name f))\n (file-name-directory\n (file-name-as-directory \"%s\"))))))\n (dired-copy-file f \"%s\" t)\n (if file-exists\n (progn (push (cons \"Overwriting\" f) success)\n (incf ovw-count))\n (push (cons \"Copying\" f) success)\n (incf cpf-count)))\n (file-error\n (push (dired-make-relative\n (expand-file-name\n (file-name-nondirectory (directory-file-name f))\n (file-name-directory \"%s\")))\n failures))))\n (with-current-buffer (find-file-noselect \"%s\")\n (erase-buffer)\n (when failures\n (dolist (fail (reverse failures))\n (insert (concat \"Failed to copy \" fail \"\n\"))))\n (when success\n (loop for (a . s) in (reverse success) do\n (insert (concat a \" \" s \" to %s done\n\"))))\n (and (/= cpf-count 0) (insert (concat (int-to-string cpf-count) \" File(s) Copied\n\")))\n (and (/= ovw-count 0) (insert (concat (int-to-string ovw-count) \" File(s) Overwrited\n\")))\n (and failures (insert (concat (int-to-string (length failures)) \" File(s) Failed to copy\n\")))\n (save-buffer))))"] 15 (#$ . 93438)]) #@167 Copy file list FLIST to DEST showing log. Log is send to `anything-c-copy-files-async-log-file'. Copying is done asynchronously with `anything-c-copy-files-async-1'. (defalias 'anything-c-copy-async-with-log #[(flist dest) "\304\305!!\210\306\301!\210\307\310 \210\311c\210\312\313!\210\314 \210db\210\315\307!\210\316\n \"\207" [anything-c-copy-files-async-log-file auto-revert-interval flist dest pop-to-buffer find-file-noselect make-local-variable 1 erase-buffer "Wait copying files...\n" sit-for 0.5 save-buffer auto-revert-mode anything-c-copy-files-async-1] 3 (#$ . 95665)]) #@118 Anything find files action to copy files async. Copying is done asynchronously with `anything-c-copy-files-async-1'. (defalias 'anything-ff-copy-async #[(candidate) "\304 \305\306\307\"\310 \311\n@\312\313\314\315\"&\316 \"*\207" [flist candidate anything-ff-history dest anything-marked-candidates anything-c-read-file-name anything-find-files-set-prompt-for-action "Copy Async" :preselect :initial-input :history anything-find-files-history :comp-read nil anything-c-copy-async-with-log] 10 (#$ . 96256)]) (defvar eshell-command-aliases-list nil) (defvar anything-eshell-command-on-file-input-history nil) #@901 Run `eshell-command' on CANDIDATE or marked candidates. This is done possibly with an eshell alias, if no alias found, you can type in an eshell command. Basename of CANDIDATE can be a wild-card. e.g you can do "eshell-command command *.el" Where "*.el" is the CANDIDATE. It is possible to do eshell-command command like this: "command %s some more args". If MAP is given run `eshell-command' on all marked files at once, Otherwise, run `eshell-command' on each marked files. In other terms, with a prefix arg do on the three marked files "foo" "bar" "baz": "eshell-command command foo bar baz" otherwise do "eshell-command command foo" "eshell-command command bar" "eshell-command command baz" Note: If `eshell' or `eshell-command' have not been run once, or if you have no eshell aliases `eshell-command-aliases-list' will not be loaded first time you use this. (defalias 'anything-find-files-eshell-command-on-file-1 #[(candidate &optional map) "\204\n\306\307!\205\203\310 \210\311 \n\206 \312\313\314\211+\314,\f:\203Q\f@\211\211A\242+\315\316 @\"\203J,\317+\320 @#C\244,\fA\211\202'\321,\322\",\323\324\325\326\327-\330\331\332\333&\f.\334.\"@/ G\335U\203\205\315\336\337 @!\"\203\205\340 @\341\"012\204\233/\203\311\315\342/\"\203\311 G\335V\203\311\343\344 \345#3\315\346.\"\203\274\347\350.3\"!\202\305\347\350\351.3#!)\202 4\314\21156\314\211784:\2034@5\3375!6\350\3525\"7\315\346.\"\203\350.7\"\202\350\351.7#8\3478!\2104A\2114\202\332-\314,\207" [eshell-command-aliases-list cand-list anything-ff-default-directory default-directory #1=#:--cl-var-- c y-or-n-p "Eshell is not loaded, run eshell-command without alias anyway? " eshell-read-aliases-list anything-marked-candidates anything-comp-read "Command: " nil string-match "\\(\\$1\\|\\$\\*\\)$" propertize help-echo sort string< :buffer "*esh command on file*" :name "Eshell command" :keymap :mode-line ("Eshell alias" "C-c ?: Help, \\[universal-argument]: Insert output at point") :input-history anything-eshell-command-on-file-input-history assoc-default 1 "[*]" anything-c-basename file-expand-wildcards t "\\$\\*$" mapconcat shell-quote-argument " " "'%s'\\|\"%s\"\\|%s" eshell-command format "%s %s" "'%s'" a ls anything-esh-on-file-map command alias-value anything-current-prefix-arg current-prefix-arg map mapfiles #2=#:--cl-var-- i bn files com] 14 (#$ . 96876)]) #@123 Run `eshell-command' on CANDIDATE or marked candidates. See `anything-find-files-eshell-command-on-file-1' for more info. (defalias 'anything-find-files-eshell-command-on-file #[(candidate) "\302 \"\207" [candidate anything-current-prefix-arg anything-find-files-eshell-command-on-file-1] 3 (#$ . 99339)]) #@61 Switch to eshell and cd to `anything-ff-default-directory'. (defalias 'anything-ff-switch-to-eshell #[(candidate) "\302\303K\304\216\303M\210\305\306!\203\307\306!\210\303 \202 \310\311!\210\303 +\207" [#1=#:vnew #2=#:old #[nil "db\210\301\302\"c\210\303 \207" [anything-ff-default-directory format "cd '%s'" eshell-send-input] 3] cd-eshell ((byte-code "\301M\207" [#2# cd-eshell] 2)) get-buffer "*eshell*" anything-c-switch-to-buffer call-interactively eshell] 2 (#$ . 99652)]) #@108 Rename all marked files to `anything-ff-default-directory' with METHOD. See `anything-ff-serial-rename-1'. (defalias 'anything-ff-serial-rename-action #[(method) "\306 \211@\307\310\311\312\313\314 \315 !\"#\"\316\317!\307\320\315@!\"\321\322\323\324\321 !\325\326\327\330&!#$\331\211%& '\313($:\203k$@%\314%!&(\332\333&\n'\f%P($A$'T'\202?(-)\334\332\335)##!\203\224\336#\n \f\337*&\210\340\331!\210\341#!\202\227\340\342!.\207" [cands def-name name start extension anything-ff-default-directory anything-marked-candidates read-string "NewName: " replace-regexp-in-string "[0-9]+$" "" anything-c-basename file-name-extension read-number "StartAtNumber: " "Extension: " expand-file-name anything-c-read-file-name "Serial Rename to directory: " :initial-input :test file-directory-p :must-match t nil format "%s <-> %s%s.%s\n" y-or-n-p "Result:\n %sRename like this to <%s> ? " anything-ff-serial-rename-1 :method message anything-find-files-1 "Operation aborted" dir #1=#:--cl-var-- f bn count #2=#:--cl-var-- res method] 10 (#$ . 100146)]) (defalias 'anything-ff-member-directory-p #[(file directory) "\304\305\306!!!\304\305 !!\211\n\230*\207" [file directory cur-dir dir-file expand-file-name file-name-as-directory file-name-directory] 5]) #@487 rename files in COLLECTION to DIRECTORY with the prefix name NEW-NAME. Rename start at number START-AT-NUM - ex: prefixname-01.jpg. EXTENSION is the file extension to use, in empty prompt, reuse the original extension of file. METHOD can be one of rename, copy or symlink. Files will be renamed if they are files of current directory, otherwise they will be treated with METHOD. Default METHOD is rename. (fn DIRECTORY COLLECTION NEW-NAME START-AT-NUM EXTENSION &key (METHOD 'rename)) (defalias 'anything-ff-serial-rename-1 #[(directory collection new-name start-at-num extension &rest #1=#:--cl-rest--) "\306\307\"\206\310A@\n\2037\n@\311>\203 \nAA\211\202\312>A@\203.\313\211\202\314\315\n@\"\210\202 )\316\317 \"\320\321K\322\216\321\fM\210\323\2110!\324\325\326!!P!1\327 \330\"\203a\331\202{\327 \332\"\203l\321\202{\327 \333\"\203w\334\202{\314\335 \"2\3361!\210\337\216 3\313456\313\211783:\203\3723@46\340W\203\252\341\202\253\342719\34376\":\344\230\204\312\343\345\346\347\344:#\"\202\317\3504\351\"R8\35240\"\203\345\33448\"\210\202\355248\"\2103A36T6\202\224-\3531\354;#\211<=\313>=:\203?=@>\355>!\203/\321\356>!\3230!\357>!P\"\210\2026\334>0\"\210=A\211=\202\f.\n\313\207" [#1# method #2=#:--cl-keys-- collection #3=#:vnew #4=#:old plist-member :method (nil rename) (:method :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:method)" remove-if file-directory-p #[(file dest) "C\303\n\304\305\306 %)\207" [file flist dest anything-dired-action :action symlink :files] 6] symlink-file ((byte-code "\301M\207" [#4# symlink-file] 2)) file-name-as-directory symbol-name gensym "tmp" eql copy copy-file symlink rename rename-file "Error: Unknow method %s" make-directory ((delete-directory tmp-dir t)) 10 "0%s" "%s" format "" ".%s" replace-regexp-in-string "[.]" file-name-extension dot anything-ff-member-directory-p directory-files t file-symlink-p file-truename anything-c-basename directory tmp-dir fn #5=#:--cl-var-- i start-at-num count fnum nname new-name extension directory-files-no-dot-files-regexp dirlist #6=#:--cl-var-- f] 10 (#$ . 101440)]) #@191 Serial rename all marked files to `anything-ff-default-directory'. Rename only file of current directory, and symlink files coming from other directories. See `anything-ff-serial-rename-1'. (defalias 'anything-ff-serial-rename #[(candidate) "\300\301!\207" [anything-ff-serial-rename-action rename] 2 (#$ . 103631)]) #@191 Serial rename all marked files to `anything-ff-default-directory'. Rename only file of current directory, and symlink files coming from other directories. See `anything-ff-serial-rename-1'. (defalias 'anything-ff-serial-rename-by-symlink #[(candidate) "\300\301!\207" [anything-ff-serial-rename-action symlink] 2 (#$ . 103955)]) #@188 Serial rename all marked files to `anything-ff-default-directory'. Rename only file of current directory, and copy files coming from other directories. See `anything-ff-serial-rename-1'. (defalias 'anything-ff-serial-rename-by-copying #[(candidate) "\300\301!\207" [anything-ff-serial-rename-action copy] 2 (#$ . 104291)]) #@51 Quit current anything session and execute ACTION. (defalias 'anything-c-quit-and-execute-action #[(action) "\302 \207" [action anything-saved-action anything-exit-minibuffer] 1 (#$ . 104620)]) (defalias 'anything-ff-toggle-auto-update #[(candidate) "?\301\302\203 \303\202\304\"\207" [anything-ff-auto-update-flag message "[Auto expansion %s]" "enabled" "disabled"] 3]) (defalias 'anything-ff-run-toggle-auto-update #[nil "\300 \205 \301\302\303\"\210\304\302!\207" [anything-file-completion-source-p anything-attrset toggle-auto-update anything-ff-toggle-auto-update anything-execute-persistent-action] 3 nil nil]) #@67 Run Switch to history action from `anything-c-source-find-files'. (defalias 'anything-ff-run-switch-to-history #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-find-files-switch-to-hist] 2 (#$ . 105251) nil]) #@54 Run Grep action from `anything-c-source-find-files'. (defalias 'anything-ff-run-grep #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-find-files-grep] 2 (#$ . 105529) nil]) #@57 Run Pdfgrep action from `anything-c-source-find-files'. (defalias 'anything-ff-run-pdfgrep #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-ff-pdfgrep] 2 (#$ . 105771) nil]) #@54 Run Grep action from `anything-c-source-find-files'. (defalias 'anything-ff-run-zgrep #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-ff-zgrep] 2 (#$ . 106014) nil]) #@59 Run Copy file action from `anything-c-source-find-files'. (defalias 'anything-ff-run-copy-file #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-find-files-copy] 2 (#$ . 106250) nil]) #@61 Run Rename file action from `anything-c-source-find-files'. (defalias 'anything-ff-run-rename-file #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-find-files-rename] 2 (#$ . 106502) nil]) #@67 Run Byte compile file action from `anything-c-source-find-files'. (defalias 'anything-ff-run-byte-compile-file #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-find-files-byte-compile] 2 (#$ . 106760) nil]) #@59 Run Load file action from `anything-c-source-find-files'. (defalias 'anything-ff-run-load-file #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-find-files-load-files] 2 (#$ . 107036) nil]) #@72 Run eshell command on file action from `anything-c-source-find-files'. (defalias 'anything-ff-run-eshell-command-on-file #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-find-files-eshell-command-on-file] 2 (#$ . 107294) nil]) #@60 Run Ediff file action from `anything-c-source-find-files'. (defalias 'anything-ff-run-ediff-file #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-find-files-ediff-files] 2 (#$ . 107590) nil]) #@66 Run Ediff merge file action from `anything-c-source-find-files'. (defalias 'anything-ff-run-ediff-merge-file #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-find-files-ediff-merge-files] 2 (#$ . 107851) nil]) #@62 Run Symlink file action from `anything-c-source-find-files'. (defalias 'anything-ff-run-symlink-file #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-find-files-symlink] 2 (#$ . 108130) nil]) #@63 Run Hardlink file action from `anything-c-source-find-files'. (defalias 'anything-ff-run-hardlink-file #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-find-files-hardlink] 2 (#$ . 108391) nil]) #@61 Run Delete file action from `anything-c-source-find-files'. (defalias 'anything-ff-run-delete-file #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-delete-marked-files] 2 (#$ . 108655) nil]) #@68 Run complete file name action from `anything-c-source-find-files'. (defalias 'anything-ff-run-complete-fn-at-point #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-c-insert-file-name-completion-at-point] 2 (#$ . 108915) nil]) #@66 Run switch to eshell action from `anything-c-source-find-files'. (defalias 'anything-ff-run-switch-to-eshell #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-ff-switch-to-eshell] 2 (#$ . 109210) nil]) #@72 Run switch to other window action from `anything-c-source-find-files'. (defalias 'anything-ff-run-switch-other-window #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action find-file-other-window] 2 (#$ . 109480) nil]) #@71 Run switch to other frame action from `anything-c-source-find-files'. (defalias 'anything-ff-run-switch-other-frame #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action find-file-other-frame] 2 (#$ . 109753) nil]) #@78 Run open file externally command action from `anything-c-source-find-files'. (defalias 'anything-ff-run-open-file-externally #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-c-open-file-externally] 2 (#$ . 110023) nil]) #@51 Locate action function for `anything-find-files'. (defalias 'anything-ff-locate #[(candidate) "\306\307 \"!\n\310=\205\311\312 \"?\205\313P\314\315 \316#*\207" [candidate anything-ff-default-directory system-type anything-c-locate-command anything-mp-highlight-delay input anything-c-basename expand-file-name windows-nt string-match "^es" " -b" 0.7 anything-locate-1 from-ff anything-current-prefix-arg] 4 (#$ . 110312)]) #@56 Run locate action from `anything-c-source-find-files'. (defalias 'anything-ff-run-locate #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-ff-locate] 2 (#$ . 110750) nil]) #@75 Run gnus attach files command action from `anything-c-source-find-files'. (defalias 'anything-ff-run-gnus-attach-files #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-ff-gnus-attach-files] 2 (#$ . 110990) nil]) #@63 Run Etags command action from `anything-c-source-find-files'. (defalias 'anything-ff-run-etags #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-ff-etags-select] 2 (#$ . 111271) nil]) #@259 Print marked files. You have to set in order variables `lpr-command',`lpr-switches' and/or `printer-name'. e.g: (setq lpr-command "gtklp") (setq lpr-switches '("-P")) (setq printer-name "Epson-Stylus-Photo-R265") Same as `dired-do-print' but for anything. (defalias 'anything-ff-print #[(candidate) "\204 \204 \306 \307 \211G \203\310\311 \"\202\f\312\313\314 \315\316\n\317## \205M\2045\f\205M\315\320 \321;\203EC\202G\fC\"B\322#\"\315\323\n\322#\322Q\203m\324\325\326#\202p\327\330!.\207" [anything-current-prefix-arg anything-ff-printer-list file-list len printer-name lpr-command anything-ff-find-printers anything-marked-candidates anything-comp-read "Printer: " read-string format "Print *%s File(s):\n%s with: " mapconcat #[(f) "\301\302\"\207" [f format "- %s\n"] 3] "" identity append " " #[(x) "\301\302\"\207" [x format "'%s'"] 3] start-process-shell-command "anything-print" nil error "Error: Please verify your printer settings in Emacs." lpr-switches command file-args cmd-line] 9 (#$ . 111524)]) #@60 Run Print file action from `anything-c-source-find-files'. (defalias 'anything-ff-run-print-file #[nil "\300 \205\301\302!\207" [anything-file-completion-source-p anything-c-quit-and-execute-action anything-ff-print] 2 (#$ . 112587) nil]) #@169 Calculate the checksum of FILE. Provide completion on different algorithms to use on Emacs24. On Emacs23 only 'sha1' is available. The checksum is copied to kill-ring. (defalias 'anything-ff-checksum #[(file) "\303\304!\205\305\306\203\304\307\310\311\"! \"\202,\312\313\314!r\nq\210\315\216\316 !\210\317 +!!\210\320\321!)\207" [algo-list file #1=#:temp-buffer fboundp secure-hash (md5 sha1 sha224 sha256 sha384 sha512) kill-new intern anything-comp-read "Algorithm: " sha1 generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents buffer-string message "Checksum copied to kill-ring."] 6 (#$ . 112835)]) (defalias 'anything-ff-toggle-basename #[(candidate) "?\211\203 \303 !\202 \304\n!)\207" [anything-ff-transformer-show-only-basename candidate target anything-c-basename anything-force-update] 3]) (defalias 'anything-ff-run-toggle-basename #[nil "\300 \205 \301\302\303\"\210\304\302!\207" [anything-file-completion-source-p anything-attrset toggle-basename anything-ff-toggle-basename anything-execute-persistent-action] 3 nil nil]) #@256 Reduce FNAME by LEVEL from end or beginning depending LEVEL value. If LEVEL is positive reduce from end else from beginning. If UNIX-CLOSE is non--nil close filename with /. If EXPAND is non--nil expand-file-name. (fn FNAME LEVEL &key UNIX-CLOSE EXPAND) (defalias 'anything-reduce-file-name #[(fname level &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@ \203: @\311>\203# AA\211\202\312>A@\2031\313\211\202\314\315 @\"\210\202)\316\f!\317\f\320\230\204J\n\203N \202O\f\321\322#\211G\323W\203i\324[\"\202s\324\323Z#\325\326\321#\211 \327\230! \203\214 \321P \330\331 \"\203\244 \320\230\203\237\320\202\337 \202\337\323W\203\273!\203\264\332\202\337\332 P\202\337\"\333=\203\322!\203\315\316\321!\202\337 \202\337!\203\333\321\202\337\321 P.\207" [#1# unix-close expand #2=#:--cl-keys-- fname exp-fname plist-member :unix-close :expand (:unix-close :expand :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:unix-close :expand)" expand-file-name split-string "~/" "/" t 0 subseq mapconcat identity "" string-match "^~" "../" windows-nt fname-list len level pop-list result empty system-type] 6 (#$ . 113971)]) #@219 Sources that use the *find-files mechanism can be added here. Sources generated by `ac-mode' don't need to be added here, it will be done automatically. You should not modify this yourself unless you know what you do. (defvar anything-file-completion-sources '("Find Files" "Read File Name" "Read File Name History" "Copy Files" "Rename Files" "Symlink Files" "Hardlink Files" "Write File" "Insert File") (#$ . 115196)) #@192 Return non--nil if current source is a file completion source. A source is a file completion source if it is one of `anything-file-completion-sources'. Return nil if anything is not running. (defalias 'anything-file-completion-source-p #[nil "\306\307\310 \"A \311\312\311\n:\203)\n@ \230\211?\211\203)\nA\211\202 -\207" [cur-source anything-file-completion-sources #1=#:--cl-var-- i #2=#:--cl-flag-- #3=#:--cl-var-- assoc name anything-get-current-source nil t] 4 (#$ . 115623)]) #@96 Go down one level like unix command `cd ..'. If prefix numeric arg is given go ARG level down. (defalias 'anything-find-files-down-one-level #[(arg) "\306 \205O\307 ?\205O\203r\310 q\210\311)\202+\312\313 !r\314\216\315\n@\316\"\210\311+\317 !\204<\320 !\203< \202> \321 \322\323\324\323&\325!)\207" [anything-test-mode anything-follow-mode save-selected-window--state anything-pattern anything-ff-last-expanded anything-ff-default-directory anything-file-completion-source-p anything-ff-invalid-tramp-name-p anything-buffer-get nil internal--before-with-selected-window anything-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord file-directory-p file-exists-p anything-reduce-file-name :unix-close t :expand anything-set-pattern arg new-pattern] 7 (#$ . 116124) "p"]) #@155 Move overlay to last visited directory `anything-ff-last-expanded'. This happen after using `anything-find-files-down-one-level', or hitting C-z on "..". (defalias 'anything-ff-retrieve-last-expanded #[nil "\205_\305 \205_ \203\306\307!!\202\307! \2039r\310 q\210\311\312\313\n!\314Q\315\316#\2035\317y\210\320 \210)\202[\321\322 !r\323\216\324\f@\325\"\210\311\312\313\n!\314Q\315\316#\203Z\317y\210\320 \210+\315\211)\207" [anything-ff-last-expanded anything-ff-transformer-show-only-basename presel anything-test-mode save-selected-window--state anything-file-completion-source-p anything-c-basename directory-file-name anything-buffer-get re-search-forward "^" regexp-quote "$" nil t 0 anything-mark-current-line internal--before-with-selected-window anything-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord] 4 (#$ . 116970)]) (add-hook 'anything-after-update-hook 'anything-ff-retrieve-last-expanded) #@129 Expand to directory when sole completion. When only one candidate is remaining and it is a directory, expand to this directory. (defalias 'anything-ff-update-when-only-one-matched #[nil "\205\353\306 \205\353\307 ?\205\353\310\311\312 \"\313\230\314\n \"\203$\315 !\202% \316\f! \230 \317 \320X\203=\321 !G\320Y\204B \205\352 ?\205\352!\203\227r\322 q\210 \204Y\323 \210\324 \211\";\205\223\325\"!\205\223\314\326\"\"\204\202\317 \320X\203\202\327\316\"!!\210\202\221\314\330 \"\204\221\327\331\316 !!!\210\332 *\202\352\333\334 !#r\335\216\336#@\337\"\210 \204\257\323 \210\324 \211\";\205\351\325\"!\205\351\314\326\"\"\204\330\317 \320X\203\330\327\316\"!!\210\202\347\314\330 \"\204\347\327\331\316 !!!\210\332 ,+\207" [anything-ff-auto-update-flag history-p tramp-file-name-regexp anything-pattern pat anything-ff-default-directory anything-file-completion-source-p anything-ff-invalid-tramp-name-p assoc-default name anything-get-current-source "Read File Name History" string-match anything-create-tramp-name file-name-as-directory anything-approximate-candidate-number 2 anything-c-basename anything-buffer-get anything-next-line anything-get-selection file-directory-p "^.*[.]\\{1,2\\}$" anything-set-pattern "^.*[.]\\{1\\}$" expand-file-name anything-check-minibuffer-input-1 internal--before-with-selected-window anything-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord completed-p anything-test-mode cur-cand save-selected-window--state] 5 (#$ . 117950)]) (add-hook 'anything-after-update-hook 'anything-ff-update-when-only-one-matched) #@174 Goto home, root or default directory when pattern ends with ~/, /, or ./. This happen only in function using sources that are `anything-file-completion-source-p' compliant. (defalias 'anything-ff-auto-expand-to-home-or-root #[nil "\306 \205`\307\310\"\205`\307 \"?\205`\311\312\"\211\313\230\203&\314\315!\202O\n\316\230\203@ \317=\203;\320\321\322!!\202O\323\202O\n\324\230\203Or\fq\210\314 !))r\325\326 !q\210\327 \210c)\207" [anything-pattern anything-ff-url-regexp match system-type anything-current-buffer default-directory anything-file-completion-source-p string-match ".*\\(/~/\\|/\\{2\\}\\|/[.]\\{1\\}/\\)$" match-string 1 "//" expand-file-name "/" "/~/" windows-nt file-name-as-directory getenv "HOME" "~/" "/./" window-buffer minibuffer-window delete-minibuffer-contents anything-ff-default-directory] 4 (#$ . 119600)]) (add-hook 'anything-after-update-hook 'anything-ff-auto-expand-to-home-or-root) #@45 Put point on filename FILE in dired buffer. (defalias 'anything-c-point-file-in-dired #[(file) "\301\302!!\210\303!\207" [file dired file-name-directory dired-goto-file] 3 (#$ . 120539)]) #@62 Build filename for `anything-pattern' like /su:: or /sudo::. (defalias 'anything-create-tramp-name #[(fname) "\306\307\310!\211\311\312\211 T\211\nGW\203#\n H\211 B\202 \237-\"\207" [fname v #1=#:--cl-vec-- #2=#:--cl-idx-- i #3=#:--cl-var-- apply tramp-make-tramp-file-name tramp-dissect-file-name -1 nil] 5 (#$ . 120735)]) #@197 Get a list of hosts for tramp method found in `anything-pattern'. Argument PATTERN default to `anything-pattern', it is here only for debugging purpose. (fn &optional (PATTERN anything-pattern)) (defalias 'anything-ff-tramp-hostnames #[(&rest #1=#:--cl-rest--) "\203\f\211A\242\202 \203\306\307\310GTD\"\210\311 \n\"\205\272\312\313\n\"\312\314\n\"\315\316\f\"\317\320!\321\211\321:\203\262@\211\211A\242\322@!\321\211\321:\203\237@\211:\205\211A@\262\211\203\226 \235\204\226PBA\211\202j\237,!\244A\211\202E\237,\323\324#+)\207" [#1# anything-pattern pattern tramp-file-name-regexp tramp-methods all-methods signal wrong-number-of-arguments anything-ff-tramp-hostnames string-match match-string 1 0 mapcar car anything-fast-remove-dups tramp-get-completion-function nil reverse :test equal tn method #2=#:--cl-var-- h f #3=#:--cl-var-- #4=#:--cl-var-- e host #5=#:--cl-var--] 6 (#$ . 121078)]) #@74 Exit anything when user try to execute action on an invalid tramp fname. (defalias 'anything-ff-before-action-hook-fn #[nil "\301 \302 \205\303!\205\303 \205\304\305\")\207" [cand anything-get-selection anything-file-completion-source-p anything-ff-invalid-tramp-name-p error "Error: Unknow file or directory `%s'"] 3 (#$ . 122074)]) (add-hook 'anything-before-action-hook 'anything-ff-before-action-hook-fn) #@103 Return non--nil when PATTERN is an invalid tramp filename. (fn &optional (PATTERN anything-pattern)) (defalias 'anything-ff-invalid-tramp-name-p #[(&rest #1=#:--cl-rest--) "\203\f\211A\242\202 \203\303\304\305GTD\"\210\306\n!\307\230)\207" [#1# anything-pattern pattern signal wrong-number-of-arguments anything-ff-invalid-tramp-name-p anything-ff-set-pattern "Invalid tramp file name"] 4 (#$ . 122499)]) #@47 Handle tramp filenames in `anything-pattern'. (defalias 'anything-ff-set-pattern #[(pattern) "\306\307\"\310\311\211 \312\230\203\312\202\322\313\314 \"\203)rq\210\315!)\202\322\313\316 \"\203?\313\"\204?\315\317!\202\322\313\320 \"\203X\315\321\322!! \323 \311\324 $)\202\322\313 \"\203~\325\326 \"\211\203~\n\f\235\203~\327\325\330 \"!\323 \311\324 $\202\322\313! \"\203\251\325\326 \"\211\203\251\n\203\251\n\f\235\204\251\327\325\330 \"!\323 \311\324 $\202\322\313 \"\204\305\313! \"\203\305\325\326 \"\f\235\203\305\331\202\322\332 !\203\321\333 !\202\322 ,\207" [tramp-methods tramp-name cur-method reg methods pattern mapcar car "\\`/\\([^[/:]+\\|[^/]+]\\):.*:" nil "" string-match ".*\\(~?/?[.]\\{1\\}/\\)$" expand-file-name ".*\\(~//\\|//\\)$" "/" "^~\\|.*/~/$" getenv "HOME" replace-match t match-string 1 anything-create-tramp-name 0 "Invalid tramp file name" file-directory-p file-name-as-directory anything-current-buffer default-directory anything-ff-url-regexp anything-pattern home tramp-file-name-regexp] 5 (#$ . 122922)]) #@59 Create candidate list for `anything-c-source-find-files'. (defalias 'anything-find-files-get-candidates #[(&optional require-match) "\306!\307 !\203\310 !\202\311 ! \312\313 G\314 $\210 \315\230\204(\316 !\317\230\2034\320\321!\202E\322 \"\206@\322 \"?\205E\n \315\230\203Y\323 \206\273  C\202\273\324 !\204\200\322 \"\204\200\325 !\204s\322\326 \"\204\200\203\205\322 \"\203\205 C\202\273 \317\230\203\222\327\321\330\"\202\273\307 !\203\246\331 !\204\246\332\333 \"C\202\273\307 !\203\263\327 \330\"\202\273\334 C\327\n\330\"\"+\207" [anything-pattern path path-name-dir anything-tramp-verbose tramp-verbose anything-ff-url-regexp anything-ff-set-pattern file-directory-p file-name-as-directory file-name-directory set-text-properties 0 nil "Invalid tramp file name" anything-ff-transform-fname-for-completion "" expand-file-name "/" string-match anything-ff-tramp-hostnames file-regular-p file-exists-p "/$" anything-ff-directory-files t file-readable-p format "Opening directory: access denied, `%s'" append ffap-url-regexp anything-ff-default-directory] 5 (#$ . 124016)]) #@187 List contents of DIRECTORY. Argument FULL mean absolute path. It is same as `directory-files' but always returns the dotted filename '.' and '..' on root directories on Windows systems. (defalias 'anything-ff-directory-files #[(directory &optional full) "\306!\307 \"\310\211\211\311\312\"\204#\313!\203<\311\314\"\203<\315P\316P\317 \317\f \"\"\320\f D\n\"\202= ,\207" [directory full lsdir dot2 dot ls expand-file-name directory-files nil string-match "^[a-zA-Z]\\{1\\}:/$" file-remote-p "^/ftp:" "." ".." remove append] 5 (#$ . 125143)]) #@173 Return FNAME with it's basename modified as a regexp. e.g foo => f.*o.*o . If basename contain one or more space or FNAME is a valid directory name return FNAME unchanged. (defalias 'anything-ff-transform-fname-for-completion #[(fname) "\304!\n\203#\305\306 \"\204#\305\307\"\204#\310!\204#\305 \"\203'\202A G\311V\203:\312\313\314 \315\316#\317#\202; \320! P)\207" [fname bn anything-ff-smart-completion anything-ff-url-regexp anything-c-basename string-match "\\s-" "/$" file-directory-p 2 mapconcat identity split-string "" t ".*" file-name-directory] 6 (#$ . 125710)]) #@83 Store the last value of `anything-ff-default-directory' in `anything-ff-history'. (defalias 'anything-ff-save-history #[nil "\205\302 \205 B\211\207" [anything-ff-default-directory anything-ff-history anything-file-completion-source-p] 2 (#$ . 126305)]) (add-hook 'anything-cleanup-hook 'anything-ff-save-history) (defalias 'anything-ff-valid-symlink-p #[(file) "\301\302!!\207" [file file-exists-p file-truename] 3]) #@60 Show file properties of CANDIDATE in a tooltip or message. (defalias 'anything-ff-properties #[(candidate) "\303\304\305#\303\306\305\307\305%\310 \203E\311\312!\313\314\n\313\n\315\230\205>\316\317\320\321\312!\"\2030\322\202=\323!\203<\324!\202=\325\" \260!\202L\326 !\210\327\330!*\207" [candidate dired-line type anything-ff-attributes :type t :dired :human-size window-system tooltip-show anything-c-basename "\n" "Type: " "symlink" format "True name: '%s'\n" string-match "^.#" "Autosave symlink" anything-ff-valid-symlink-p file-truename "Invalid Symlink" message sit-for 5] 12 (#$ . 126737)]) #@44 Show properties without quitting anything. (defalias 'anything-ff-properties-persistent #[nil "\300\301\302\"\210\303\301!\207" [anything-attrset properties-action anything-ff-properties anything-execute-persistent-action] 3 (#$ . 127360) nil]) #@44 Delete current candidate without quitting. (defalias 'anything-ff-persistent-delete #[nil "\300\301\302\"\210\303\301!\207" [anything-attrset quick-delete anything-ff-quick-delete anything-execute-persistent-action] 3 (#$ . 127611) nil]) #@31 Check if FILE is `.' or `..'. (defalias 'anything-ff-dot-file-p #[(file) "\301!\302\235\207" [file anything-c-basename ("." "..")] 2 (#$ . 127855)]) #@41 Delete file CANDIDATE without quitting. (defalias 'anything-ff-quick-delete #[(candidate) "\212\306\307 \210\310 \211 \230\203\311 \210\310 \202*\312 \210 \203-\313\n!\204-\314\n!\202.\n\f\203;\315 \"\210\202U\316 r\317\216\320\321\322 \"!\203T\315 \"\210\323\306!\210+\324\n!)\207" [sel candidate presel anything-ff-transformer-show-only-basename anything-ff-quick-delete-dont-prompt-for-deletion anything-ff-signal-error-on-dot-files nil anything-next-line anything-get-selection anything-previous-line anything-mark-current-line anything-ff-dot-file-p anything-c-basename anything-c-delete-file internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) y-or-n-p format "Really Delete file `%s'? " message anything-force-update save-selected-window--state] 5 (#$ . 128011)]) (defalias 'anything-ff-kill-buffer-fname #[(candidate) "\303!\304 ! \203\305 !\210\306\307 \"\202\306\310!*\207" [candidate buf buf-name get-file-buffer buffer-name kill-buffer message "Buffer `%s' killed" "No buffer to kill"] 3]) #@262 Find file CANDIDATE or kill it's buffer if it is visible. Never kill `anything-current-buffer'. Never kill buffer modified. This is called normally on third hit of \\[anything-execute-persistent-action] in `anything-find-files-persistent-action'. (defalias 'anything-ff-kill-or-find-buffer-fname #[(candidate) "\304!\305 ! \203+\306 !\203+ \307 !=\204+\310 !\204+\311 !\210\312\313\n\"\202.\314!*\207" [candidate buf buf-name anything-current-buffer get-file-buffer buffer-name get-buffer-window get-buffer buffer-modified-p kill-buffer message "Buffer `%s' killed" find-file] 3 (#$ . 129101)]) #@59 Execute `anything-ff-kill-buffer-fname' whitout quitting. (defalias 'anything-ff-run-kill-buffer-persistent #[nil "\300 \205 \301\302\303\"\210\304\302!\207" [anything-file-completion-source-p anything-attrset kill-buffer-fname anything-ff-kill-buffer-fname anything-execute-persistent-action] 3 (#$ . 129725) nil]) #@246 Return a string showing SIZE of a file in human readable form. SIZE can be an integer or a float depending it's value. `file-attributes' will take care of that to avoid overflow error. KBSIZE if a floating point number, default value is 1024.0. (defalias 'anything-ff-human-size #[(size) "\306\307 \310\"\245B\311\307 \312\"\245B\313 \245B\314B\n \f \nF\315\211\315:\203\\@\211\211A\242\316W\204SBBA\211\2021\237,\315\211:\203\224@\211\211A\242AW\203\213BA\211\202j@\314\230\203\243\317\320\"\202\254\317\321A@#.\207" [size anything-ff-default-kbsize B K G M "M" expt 2 "G" 3 "K" "B" nil 1 format "%s" "%.1f%s" result #1=#:--cl-var-- y x #2=#:--cl-var-- #3=#:--cl-var-- b a] 7 (#$ . 130049)]) #@159 Easy interface for `file-attributes'. (fn FILE &key TYPE LINKS UID GID ACCESS-TIME MODIF-TIME STATUS SIZE MODE GID-CHANGE INODE DEVICE-NUM DIRED HUMAN-SIZE) (defalias 'anything-ff-attributes #[(file &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@*\306\315\"A@+\306\316\"A@,\306\317\"A@-\306\320\"A@.\306\321\"A@/\306\322\"A@0\306\323\"A@1\306\324\"A@233\203\2363@\325>\203\2053AA\2113\202p\326>A@\203\224\327\2113\202p\330\3313@\"\210\202n)\3324\333\"\2115G\334U\203\2675\211A5\242\202\277\335\336\3275GD\"5\211A5\2425\211A5\2425\211A5\2425\211A5\2425\211A5\242*5\211A5\242+5\211A5\242,5\211A5\242-5\211A5\242.5\211A5\242/5@0\307 \310\n\311 \312\f\313 \314*\315+\316,\317-\320.\321/\3220\257. 6 \203b\3376\307\"\2117;\203T\340\202^7\203]\341\202^\342)\202J\n\203n\3376\310\"\202J \203z\3376\311\"\202J\f\203\206\3376\312\"\202J \203\225\343\344\3376\313\"\"\202J*\203\245\343\344\3376\314\"\"\202J+\203\265\343\344\3376\315\"\"\202J,\203\3212\203\311\345\3376\316\"!\202J\3376\316\"\202J-\203\336\3376\317\"\202J.\203\353\3376\320\"\202J/\203\370\3376\321\"\202J0\203\3376\322\"\202J1\203H\3376\317\"\346\347\3376\310\"!\346\3376\311\"\350\3376\312\"\3462\2033\345\3376\316\"!\202:\351\3376\316\"!\346\343\344\3376\314\"\"\260 \202J6.\207" [#1# type links uid gid access-time plist-member :type :links :uid :gid :access-time :modif-time :status :size :mode :gid-change :inode :device-num :dired :human-size (:type :links :uid :gid :access-time :modif-time :status :size :mode :gid-change :inode :device-num :dired :human-size :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :links :uid :gid :access-time :modif-time :status :size :mode :gid-change :inode :device-num :dired :human-size)" file-attributes string 12 signal wrong-number-of-arguments getf "symlink" "directory" "file" format-time-string "%Y-%m-%d %R" anything-ff-human-size " " number-to-string ":" int-to-string modif-time status size mode gid-change inode device-num dired human-size #2=#:--cl-keys-- file #3=#:--cl-rest-- all result] 25 (#$ . 130839)]) #@280 Return filename FNAME maybe prefixed with [?] or [@]. If FILE-OR-SYMLINKP is non--nil this mean we assume FNAME is an existing filename or valid symlink and there is no need to test it. NEW-FILE when non--nil mean FNAME is a non existing file and return FNAME prefixed with [?]. (defalias 'anything-ff-prefix-filename #[(fname &optional file-or-symlinkp new-file) "\306\307\310\306\311\312\313##\306\307\310\306\314\312\313##\n\204\315 !\203\" \202G\316\f \"\2040\316 \"\2037 \307 Q\202G\204C\315 !?\205G\307 Q*\207" [prefix-new prefix-url file-or-symlinkp fname anything-ff-url-regexp ffap-url-regexp propertize " " display "[?]" face anything-ff-prefix "[@]" file-exists-p string-match new-file] 7 (#$ . 133115)]) #@131 Transformer for `anything-c-source-find-files'. Tramp files are not highlighted unless `anything-ff-tramp-not-fancy' is non--nil. (defalias 'anything-c-find-files-transformer #[(files sources) "\306 \"\203G\n\203G \203E\f\307\211 \f :\203@ @ \306\310 \"\203- \2024\311 ! B\fB\f A\211\202\f\237+\207\f\207\312\f \"\207" [tramp-file-name-regexp anything-pattern anything-ff-tramp-not-fancy anything-ff-transformer-show-only-basename files #1=#:--cl-var-- string-match nil "[.]\\{1,2\\}$" anything-c-basename anything-ff-highlight-files i #2=#:--cl-var-- sources] 4 (#$ . 133853)]) #@73 Candidate transformer for `anything-c-source-find-files' without icons. (defalias 'anything-ff-highlight-files #[(files sources) "\306\211\306 :\203\275 @ \2031\307\310\n\"\2041\307\n\"\2041\307\n\"\2041\311\n!\2022\n\312\n!@;\203W\313\n!\204W\307\314\311\n!\"\204W\315\316 \317\320#\321\"\nB\202\263\312\n!@;\203l\315\316 \317\322#\321\"\nB\202\263\312\n!@\321=\203\202\315\316 \317\323#\321\"\nB\202\263\324\n!\203\225\315\316 \317\325#\321\"\nB\202\263\326\n!\203\250\315\316 \317\327#\321\"\nB\202\263\315\316 \317\327#\306\330#\nB\fB A\211\202 \f\237,\207" [files #1=#:--cl-var-- i disp #2=#:--cl-var-- anything-ff-transformer-show-only-basename nil string-match "[.]\\{1,2\\}$" anything-c-basename file-attributes anything-ff-valid-symlink-p "^.#" anything-ff-prefix-filename propertize face anything-ff-invalid-symlink t anything-ff-symlink anything-ff-directory file-executable-p anything-ff-executable file-exists-p anything-ff-file new-file ffap-url-regexp anything-ff-url-regexp] 6 (#$ . 134460)]) #@56 Action transformer for `anything-c-source-find-files'. (defalias 'anything-find-files-action-transformer #[(actions candidate) "rq\210 )\305=\203\306\307\n\310\311#\312\307\n\311\"#\207\313\314 \"\203-\306\307\n\310\311#\315\307\n\311\"#\207\313\316\317 \211\203;\f@\202< )\"\203N\306\307\n\310\311#\320\307\n\311\"#\207\313\321 \"\203h\322 !\203h\306\307\n\310\311#\323\307\n\324\"#\207\325 !\326\230\204x\325 !\327\230\203\205\306\307\n\310\311#\330\307\n\324\"#\207\n\207" [anything-current-buffer major-mode actions candidate it message-mode append subseq 0 4 (("Gnus attach file(s)" . anything-ff-gnus-attach-files)) string-match image-file-name-regexp (("Rotate image right `M-r'" . anything-ff-rotate-image-right) ("Rotate image left `M-l'" . anything-ff-rotate-image-left)) ".el$" anything-marked-candidates (("Byte compile lisp file(s) `M-B, C-u to load'" . anything-find-files-byte-compile) ("Load File(s) `M-L'" . anything-find-files-load-files)) ".html?$" file-exists-p (("Browse url file" . browse-url-of-file)) 5 file-name-extension "pdf" "PDF" (("Pdfgrep File(s)" . anything-ff-pdfgrep))] 7 (#$ . 135507)]) #@71 Run `gnus-dired-attach' on `anything-marked-candidates' or CANDIDATE. (defalias 'anything-ff-gnus-attach-files #[(candidate) "\301 \302!)\207" [flist anything-marked-candidates gnus-dired-attach] 2 (#$ . 136648)]) #@113 Rotate current image at NUM-ARG degrees. This is a destructive operation on FILE made by external tool mogrify. (defalias 'anything-ff-rotate-current-image-1 #[(file &optional num-arg) "\303!\304\305 \"\205;\306\307!\2038\310\311\312 \206\313\314!#!\210\315\n!\203*\316\n!\210\317!\210\320\321!\210\322\323\n!!\207\324\325!\207" [file num-arg image-dired-display-image-buffer file-truename string-match image-file-name-regexp executable-find "mogrify" shell-command format "mogrify -rotate %s %s" 90 shell-quote-argument buffer-live-p kill-buffer image-dired-display-image message nil display-buffer get-buffer error "mogrify not found"] 6 (#$ . 136871)]) #@72 Rotate image file CANDIDATE left. This affect directly file CANDIDATE. (defalias 'anything-ff-rotate-image-left #[(candidate) "\301\302\"\207" [candidate anything-ff-rotate-current-image-1 -90] 3 (#$ . 137543)]) #@73 Rotate image file CANDIDATE right. This affect directly file CANDIDATE. (defalias 'anything-ff-rotate-image-right #[(candidate) "\301!\207" [candidate anything-ff-rotate-current-image-1] 2 (#$ . 137762)]) #@46 Rotate image left without quitting anything. (defalias 'anything-ff-rotate-left-persistent #[nil "\300\301\302\"\210\303\301!\207" [anything-attrset image-action1 anything-ff-rotate-image-left anything-execute-persistent-action] 3 (#$ . 137974) nil]) #@47 Rotate image right without quitting anything. (defalias 'anything-ff-rotate-right-persistent #[nil "\300\301\302\"\210\303\301!\207" [anything-attrset image-action2 anything-ff-rotate-image-right anything-execute-persistent-action] 3 (#$ . 138231) nil]) #@78 Extract exif data from file CANDIDATE using `anything-ff-exif-data-program'. (defalias 'anything-ff-exif-data #[(candidate) "\203\303!\203\304\305\306 \n$!\207\305\307\"\207" [anything-ff-exif-data-program anything-ff-exif-data-program-args candidate executable-find shell-command-to-string format "%s %s %s" "No program %s found to extract exif"] 6 (#$ . 138491)]) #@300 Open subtree CANDIDATE without quitting anything. If CANDIDATE is not a directory expand CANDIDATE filename. If CANDIDATE is alone, open file CANDIDATE filename. That's mean: First hit on C-z expand CANDIDATE second hit open file. If a prefix arg is given or `anything-follow-mode' is on open file. (defalias 'anything-find-files-persistent-action #[(candidate) "\306\307\310!\"\311 rq\210\312ed\")\313\314K\315\216\314\fM\210\316)!\317\230\203I\320*+\"\203I+)\230\203B\314+\321P!\202\314+!\202\322+!\203d\323+!\203d\314\324\325\326+!!!!\202\322+!\203\203\327+!\330\230\203x,-\314\324\326+!!!\202\323+!\203\234.\204\234 \204\234\314\325+!!\202 \331Y\203\261.\204\261 \204\261\314\n!\202\320\332 +\"\203\350\333/!\203\306\334/!\210\335+!\210\336\337!\210\340/!\210r/q\210\341+!0\342\3430\"*\2021\203\f\320\344\3261!!\345+!\"\203\f\346+!\203\f\314+\347P!\202\350+!.\207" [anything-buffer num-lines-buf new-pattern follow #1=#:vnew #2=#:old buffer-local-value anything-follow-mode get-buffer-create anything-get-selection count-lines #[(fname) "\303\304 !r\305\216\306@\307\"\210 ?\205 \310 \210\311\312\nG\313\n$\210\nc+\207" [save-selected-window--state follow fname internal--before-with-selected-window minibuffer-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord delete-minibuffer-contents set-text-properties 0 nil] 5] insert-in-minibuffer ((byte-code "\301M\207" [#2# insert-in-minibuffer] 2)) anything-ff-set-pattern "Invalid tramp file name" string-match ":" file-directory-p file-symlink-p file-name-as-directory file-truename expand-file-name anything-c-basename ".." 3 image-file-name-regexp buffer-live-p kill-buffer image-dired-display-image message nil anything-c-switch-to-buffer anything-ff-exif-data image-dired-update-property help-echo regexp-quote file-name-directory anything-ff-file-compressed-p "#" anything-ff-kill-or-find-buffer-fname anything-pattern tramp-file-name-regexp candidate anything-ff-default-directory anything-ff-last-expanded current-prefix-arg image-dired-display-image-buffer exif-data anything-ff-avfs-directory] 5 (#$ . 138872)]) #@48 Whether CANDIDATE is a compressed file or not. (defalias 'anything-ff-file-compressed-p #[(candidate) "\302! \235\207" [candidate anything-ff-file-compressed-list file-name-extension] 2 (#$ . 141079)]) #@39 Insert file name completion at point. (defalias 'anything-c-insert-file-name-completion-at-point #[(candidate) "rq\210 \203\306\307\310 \"\202\200`\311\312\313!!` GZ\314\315\316!P \317\320\321#)\266\203\206>\322 \317\320\321#)\266\203\323\324G\317$\210 \203| \325\230\204|\326 \317\320\321#)\266\203\203|\f\n|\210\203t\327!\202x\330!c\202\306\331!,)\207" [anything-current-buffer buffer-read-only end guess beg inhibit-changing-match-data error "Error: Buffer `%s' is read-only" buffer-name substring-no-properties thing-at-point filename "^" getenv "HOME" nil t string-match "^[^~]" set-text-properties 0 "" "^~\\|/.*" expand-file-name abbreviate-file-name "Aborting completion: No valid file name at point" full-path-p candidate] 7 (#$ . 141288)]) #@171 The `anything-find-files' history. Show the first `anything-ff-history-max-length' elements of `anything-ff-history' in an `anything-comp-read'. (fn &key (COMP-READ t)) (defalias 'anything-find-files-history #[(&rest #1=#:--cl-rest--) "\306\307\"\206\310A@\n\2037\n@\311>\203 \nAA\211\202\312>A@\203.\313\211\202\314\315\n@\"\210\202 ) \205A\316 \317\320#\211\205h\fG Y\203U\321\f\322 #\202V\f \203g\323\324 \325\326\327\330&\202h *\207" [#1# comp-read #2=#:--cl-keys-- anything-ff-history history anything-ff-history-max-length plist-member :comp-read (nil t) (:comp-read :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:comp-read)" anything-fast-remove-dups :test equal subseq 0 anything-comp-read "Switch to Directory: " :name "Anything Find Files History" :must-match t] 8 (#$ . 142084)]) #@146 Find FNAME with `anything' completion. Like `find-file' but with `anything' support. Use it for non--interactive calls of `anything-find-files'. (defalias 'anything-find-files-1 #[(fname &optional preselect) "\306!\203\n\307!\210\310 \205\311\312 !?\310\313\314\315\316\f\317 \320\321\322\323\324&\f+\207" [anything-action-buffer anything-ff-auto-update-initial-value anything-samewindow anything-mp-highlight-delay fname preselect get-buffer kill-buffer nil minibuffer-window-active-p minibuffer-window anything :sources anything-c-source-find-files :input :preselect :keymap :prompt "Find Files or Url: " :buffer "*Anything Find Files*" anything-find-files-map] 13 (#$ . 142943)]) #@53 Return INPUT if present, otherwise try to guess it. (defalias 'anything-find-files-initial-input #[(&optional input) "\203\301!\203\206\302!\206\303\304 \305\306!\"\207" [input file-remote-p expand-file-name anything-find-files-input ffap-guesser thing-at-point filename] 4 (#$ . 143642)]) #@41 Default input of `anything-find-files'. (defalias 'anything-find-files-input #[(fap tap) "\306 \307 \310  \205\311 !\211?\205: \205: \312\230?\205:\313 !\205: \205: \312\230?\205:\313\314\315 \"!! \206`\n\206`\f\203L \202`\203X\315 \"\202` \312\230?\205` -\207" [def-dir lib url fap remp tap anything-c-current-directory anything-find-library-at-point anything-ff-find-url-at-point file-remote-p "" file-exists-p file-name-directory expand-file-name file-p] 6 (#$ . 143950)]) #@97 Return current-directory name at point. Useful in dired buffers when there is inserted subdirs. (defalias 'anything-c-current-directory #[nil "\302=\203 \303 \207 \207" [major-mode default-directory dired-mode dired-current-directory] 2 (#$ . 144457)]) #@55 Try to find link to an url in text-property at point. (defalias 'anything-ff-find-url-at-point #[nil "\306`\307\"\310`!\211\205\311\310`!@\307\"\306`\312\"\306`\313\";\2032\314\315\"\2032\316\317\320\211$\n \fF\321\320\321 :\203k @\211;\205Z\314\"\205Z\211?\211\203k A\211\202B. \207" [he ov ov-he w3m-l nt-prop #1=#:--cl-var-- get-text-property help-echo overlays-at overlay-get w3m-href-anchor nt-link string-match "^LINK: " replace-match "" t nil i #2=#:--cl-flag-- #3=#:--cl-var-- ffap-url-regexp] 6 (#$ . 144718)]) #@87 Try to find library path at point. Find inside `require' and `declare-function' sexp. (defalias 'anything-find-library-at-point #[nil "\303\304!\210\212\305\306\307 \310#)\212\311\312\313 \310#)\205$ \205$\314T S\"\315\316\317\217+\207" [beg-sexp end-sexp sexp require find-func search-backward "(" point-at-bol t search-forward ")" point-at-eol buffer-substring-no-properties nil (byte-code "\203\302\303\"\203\304\305\306\307\310\311\312\"!\211A@\262#!\207\203>\313\314\315\302#)\266\203\203>\304\305\316\307\310!AA@#!\207\314\207" [sexp inhibit-changing-match-data string-match "require '.+[^)]" find-library-name replace-regexp-in-string "'\\|)\\|(" "" split-string match-string 0 "^declare-function" nil t "\"\\|ext:"] 8) ((error))] 4 (#$ . 145285)]) (defvar anything-c-source-write-file '((name . "Write File") (header-name lambda (name) (concat name anything-c-find-files-doc-header)) (candidates . anything-find-files-get-candidates) (filtered-candidate-transformer anything-c-find-files-transformer) (persistent-action . anything-find-files-persistent-action) (persistent-help . "Expand Candidate") (volatile) (action ("Write File" lambda (candidate) (write-file candidate 'confirm))))) (defvar anything-c-source-insert-file '((name . "Insert File") (header-name lambda (name) (concat name anything-c-find-files-doc-header)) (candidates . anything-find-files-get-candidates) (filtered-candidate-transformer anything-c-find-files-transformer) (persistent-action . anything-find-files-persistent-action) (persistent-help . "Expand Candidate") (volatile) (action ("Insert File" lambda (candidate) (when (y-or-n-p (format "Really insert %s in %s " candidate anything-current-buffer)) (insert-file-contents candidate)))))) (defvar anything-c-source-copy-files '((name . "Copy Files") (header-name lambda (name) (concat name anything-c-find-files-doc-header)) (candidates . anything-find-files-get-candidates) (filtered-candidate-transformer anything-c-find-files-transformer) (persistent-action . anything-find-files-persistent-action) (persistent-help . "Expand Candidate") (volatile) (action ("Copy File" lambda (candidate) (anything-dired-action candidate :action 'copy)) ("Copy and Follow" lambda (candidate) (anything-dired-action candidate :action 'copy :follow t))))) (defvar anything-c-source-rename-files '((name . "Rename Files") (header-name lambda (name) (concat name anything-c-find-files-doc-header)) (candidates . anything-find-files-get-candidates) (filtered-candidate-transformer anything-c-find-files-transformer) (persistent-action . anything-find-files-persistent-action) (persistent-help . "Expand Candidate") (volatile) (action ("Rename File" lambda (candidate) (anything-dired-action candidate :action 'rename)) ("Rename and Follow" lambda (candidate) (anything-dired-action candidate :action 'rename :follow t))))) (defvar anything-c-source-symlink-files '((name . "Symlink Files") (header-name lambda (name) (concat name anything-c-find-files-doc-header)) (candidates . anything-find-files-get-candidates) (filtered-candidate-transformer anything-c-find-files-transformer) (persistent-action . anything-find-files-persistent-action) (persistent-help . "Expand Candidate") (volatile) (action ("Symlink File" lambda (candidate) (anything-dired-action candidate :action 'symlink)) ("RelSymlink File" lambda (candidate) (anything-dired-action candidate :action 'relsymlink))))) (defvar anything-c-source-hardlink-files '((name . "Hardlink Files") (header-name lambda (name) (concat name anything-c-find-files-doc-header)) (candidates . anything-find-files-get-candidates) (filtered-candidate-transformer anything-c-find-files-transformer) (persistent-action . anything-find-files-persistent-action) (persistent-help . "Expand Candidate") (volatile) (action ("Hardlink File" lambda (candidate) (anything-dired-action candidate :action 'hardlink))))) #@220 Copy, rename or symlink file at point or marked files in dired to CANDIDATE. ACTION is a key that can be one of 'copy, 'rename, 'symlink, 'relsymlink. (fn CANDIDATE &key ACTION FOLLOW (FILES (dired-get-marked-files))) (defalias 'anything-dired-action #[(candidate &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"\206\312\313 DA@\f\203H\f@\314>\2031\fAA\211\202\315>A@\203?\312\211\202\316\317\f@\"\210\202)\320 !\203S\321 !\210\322 \323\"\203^\324\202\207\322 \325\"\203i\326\202\207\322 \327\"\203t\330\202\207\322 \331\"\203\332\202\207\322 \333\"\205\207\334\322 \335\"\203\2230\202\264\322 \336\"\203\2371\202\264\322 \337\"\203\2532\202\264\322 \340\"\205\2643 G\341U\205\307\342 @!\205\307\3424!?567\3437\344 ! \3424!\203\337\345\202\340\3466%\210\347\3424!\203\363\3504!\202\367\3514!!8B8\n\205B\320 !?\205B\3524!9\353\216\354 45#:5\203; \355=\203;\356\3519!;\2035\3579!\20279\"\202A\356\3504!!*.\207" [#1# action follow files #2=#:--cl-keys-- dired-log-buffer plist-member :action :follow :files nil dired-get-marked-files (:action :follow :files :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:action :follow :files)" get-buffer kill-buffer memql 'copy dired-copy-file 'rename dired-rename-file 'symlink make-symbolic-link 'relsymlink dired-make-relative-symlink 'hardlink dired-hardlink (copy rename) 'symlink 'relsymlink 'hardlink 1 file-directory-p dired-create-files symbol-name #[(from) "\302\303! \"\207" [from candidate expand-file-name file-name-nondirectory] 3] #[(from) "\207" [candidate] 1] file-name-as-directory expand-file-name file-name-directory directory-file-name ((byte-code "\301\211\207" [anything-ff-cand-to-mark nil] 2)) anything-get-dest-fnames-from-list rename anything-find-files-1 anything-c-basename dired-keep-marker-copy dired-keep-marker-symlink dired-keep-marker-relsymlink dired-keep-marker-hardlink candidate dirflag marker fn anything-ff-history target anything-ff-cand-to-mark anything-ff-transformer-show-only-basename] 7 (#$ . 149190)]) #@113 Print FNAME with any leading directory components removed. If specified, also remove filename extension EXT. (defalias 'anything-c-basename #[(fname &optional ext) "\203!\302 !\230\204\302 \303\"\230\203!\304 !\204!\305\306 !!\207\306\307 !!\207" [ext fname file-name-extension t file-directory-p file-name-sans-extension file-name-nondirectory directory-file-name] 3 (#$ . 151306)]) #@149 Transform filenames of FLIST to abs of DEST-CAND. If RENAME-DIR-FLAG is non--nil collect the `directory-file-name' of transformed members of FLIST. (defalias 'anything-get-dest-fnames-from-list #[(flist dest-cand rename-dir-flag) "\306!\n\307\211\307\211 :\203N @\310\f!\203'\311 !\2026\312 !\2035\313 ! P\2026 \314!\203GC\244 A\211\202\315\316\".\207" [dest-cand dest flist #1=#:--cl-var-- src basename-src expand-file-name nil anything-c-basename directory-file-name file-directory-p file-name-as-directory file-exists-p sort string< fname tmp-list rename-dir-flag] 4 (#$ . 151708)]) #@57 Mark all candidates of list `anything-ff-cand-to-mark'. (defalias 'anything-ff-maybe-mark-candidates #[nil "\304\305\306 \"\304\305\"\230\205y \205y\n\203Cr\307 q\210 \2039 @\310 \230\2033\311 \210\312 \210 A\211\202\312 \210\202\313 ?\205A\314 )\207\315\316 !r\317\216\320 @\321\"\210 \203p @\310 \230\203j\311 \210\312 \210 A\211\202R\312 \210\202Q\313 ?\205x\314 +\207" [anything-c-source-find-files anything-ff-cand-to-mark anything-test-mode save-selected-window--state assoc-default name anything-get-current-source anything-buffer-get anything-get-selection anything-make-visible-mark anything-next-line anything-this-visible-mark anything-prev-visible-mark internal--before-with-selected-window anything-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord] 5 (#$ . 152335)]) (add-hook 'anything-after-update-hook 'anything-ff-maybe-mark-candidates) #@20 (fn &key ACTION) (defalias 'anything-dired-do-action-on-file #[(&rest #1=#:--cl-rest--) "\306\307\"A@\n\2033\n@\310>\203\nAA\211\202\n\311>A@\203*\312\211\202\n\313\314\n@\"\210\202 )\315 \211G\211\316V\203G\317\320\f\"\202I @\321 \322\"\203U\323\202s\321 \324\"\203`\325\202s\321 \326\"\203k\327\202s\321 \330\"\205s\3315\321 \332\"\203\200\333\202\236\321 \334\"\203\213\335\202\236\321 \336\"\203\226\337\202\236\321 \340\"\205\236\3416\321 \342\"\203\253\343\202\311\321 \344\"\203\266\345\202\311\321 \346\"\203\301\347\202\311\321 \350\"\205\311\3517\3128\352\3535\354\355 \206\334\356\357 !\360\361 \362\3176 \"\3639\3647&\f.\207" [#1# action #2=#:--cl-keys-- files len fname plist-member :action (:action :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:action)" dired-get-marked-files 1 format "* %d Files" memql 'copy anything-c-source-copy-files 'rename anything-c-source-rename-files 'symlink anything-c-source-symlink-files 'hardlink anything-c-source-hardlink-files 'copy "Copy %s to: " 'rename "Rename %s to: " 'symlink "Symlink %s to: " 'hardlink "Hardlink %s to: " 'copy "*Anything Copy Files*" 'rename "*Anything Rename Files*" 'symlink "*Anything Symlink Files*" 'hardlink "*Anything Hardlink Files*" anything :sources :input dired-dwim-target-directory expand-file-name anything-c-current-directory :preselect dired-get-filename :prompt :keymap :buffer source prompt-fm buffer anything-mp-highlight-delay anything-c-read-file-map] 14 (#$ . 153264)]) #@278 Non-nil if Anything-Dired mode is enabled. See the command `anything-dired-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `anything-dired-mode'. (custom-declare-variable 'anything-dired-mode "Enable anything completion in Dired functions.\nBindings affected are C, R, S, H.\nThis is deprecated for Emacs24+ users, use `ac-mode' instead." '(#$ . 154825) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'anything-config :type 'boolean) #@265 Toggle Anything-Dired mode on or off. With a prefix argument ARG, enable Anything-Dired mode if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'. \{anything-dired-mode-map} (defalias 'anything-dired-mode #[(&optional arg) "\304  \305=\203\n?\202\306 !\307V\211\2033\310\311\312 #\210\310\313\314 #\210\310\315\316 #\210\310\317\320 #\210\202K\310\312\311 #\210\310\314\313 #\210\310\316\315 #\210\310\320\317 #\210\321\322\n\203U\323\202V\324\"\210\325\326!\203{\327\302!\210\304 \203n\304 \232\203{\330\331\n\203x\332\202y\333\"\210)\334 \210\n\207" [#1=#:last-message arg anything-dired-mode dired-mode-map current-message toggle prefix-numeric-value 0 substitute-key-definition dired-do-copy anything-dired-copy-file dired-do-rename anything-dired-rename-file dired-do-symlink anything-dired-symlink-file dired-do-hardlink anything-dired-hardlink-file run-hooks anything-dired-mode-hook anything-dired-mode-on-hook anything-dired-mode-off-hook called-interactively-p any customize-mark-as-set message "Anything-Dired mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 155424) (list (or current-prefix-arg 'toggle))]) #@184 Hook run after entering or leaving `anything-dired-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar anything-dired-mode-hook nil (#$ . 156664)) (byte-code "\301\302\303\304\300!\205\n\303\211%\210\305\306\302\"\207" [anything-dired-mode-map add-minor-mode anything-dired-mode nil boundp defalias anything-dired-bindings] 6) #@1125 Read a file name with anything completion. It is anything `read-file-name' emulation. Argument PROMPT is the default prompt to use. Keys description: - NAME: Source name, default to "Read File Name". - INITIAL-INPUT: Where to start read file name, default to `default-directory'. - BUFFER: `anything-buffer' name default to "*Anything Completions*". - TEST: A predicate called with one arg 'candidate'. - PRESELECT: anything preselection. - HISTORY: Display HISTORY in a special source. - MUST-MATCH: Can be 'confirm, nil, or t. - MARKED-CANDIDATES: When non--nil return a list of marked candidates. - ALISTP: Don't use `all-completions' in history (take effect only on history). - PERSISTENT-ACTION: a persistent action function. - PERSISTENT-HELP: persistent help message. (fn PROMPT &key (NAME "Read File Name") (INITIAL-INPUT (expand-file-name default-directory)) (BUFFER "*Anything Completions*") TEST (PRESELECT nil) (HISTORY nil) MUST-MATCH (MARKED-CANDIDATES nil) (ALISTP t) (PERSISTENT-ACTION 'anything-find-files-persistent-action) (PERSISTENT-HELP "Hit1 Expand Candidate, Hit2 or (C-u) Find file")) (defalias 'anything-c-read-file-name #[(prompt &rest #1=#:--cl-rest--) "\306\307\"\206\310A@\306\311\"\206\312\313\n!DA@\306\314\"\206\"\315A@\306\316\"A@\306\317\"A@@\306\320\"A@A\306\321\"A@B\306\322\"A@C\306\323\"\206T\324A@D\306\325\"\206`\326A@3\306\327\"\206l\330A@4EE\203\243E@\331>\203\212EAA\211E\202u\332>A@\203\231\312\211E\202u\333\334E@\"\210\202s)\335F!\203\260\336F!\210B\337=\203\272\340B\341G\342KH\343\216\342GM\210\312IJ\205\325\344\345 !?J\312KA\205\347\346A\312\211D$LBMB\205\347 N\350N\351\352#\210N)\211O\203\353OP\"\202PQ\354\355\301\356\357 \"B\360\361\362\3633B\3644B\365\342B\257\301 B\366\367\370\371\372\3633B\373\374\3644B\375\365\342B\257\fD\376 \377R\201U\201V\314\f\317@&\f\206{S\201W\230\204wT\201X=\203wB\340=\203wS\206{\201Y .\207" [#1# name default-directory initial-input buffer test plist-member :name (nil "Read File Name") :initial-input nil expand-file-name :buffer (nil "*Anything Completions*") :test :preselect :history :must-match :marked-candidates :alistp (nil t) :persistent-action (nil anything-find-files-persistent-action) :persistent-help (nil "Hit1 Expand Candidate, Hit2 or (C-u) Find file") (:name :initial-input :buffer :test :preselect :history :must-match :marked-candidates :alistp :persistent-action :persistent-help :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:name :initial-input :buffer :test :preselect :history :must-match :marked-candidates :alistp :persistent-action :persistent-help)" get-buffer kill-buffer confirm-after-completion confirm #[(candidate) "\203\302 \207 \207" [marked-candidates candidate anything-marked-candidates] 1] action-fn ((byte-code "\301M\207" [#2=#:old action-fn] 2)) minibuffer-window-active-p minibuffer-window anything-comp-read-get-candidates make-sparse-keymap define-key " " anything-confirm-and-exit-minibuffer make-composed-keymap anything :sources format "%s History" (header-name lambda (name) (concat name anything-c-find-files-doc-header)) (mode-line . anything-read-file-name-mode-line-string) (candidates . hist) persistent-action persistent-help action (header-name lambda (name) (concat name anything-c-find-files-doc-header)) (init lambda nil (setq anything-ff-auto-update-flag anything-ff-auto-update-initial-value)) (mode-line . anything-read-file-name-mode-line-string) (candidates lambda nil (if test (loop with hn = (anything-ff-tramp-hostnames) for i in (anything-find-files-get-candidates must-match) when (or (member i hn) (funcall test i) (not (file-exists-p i))) collect i) (anything-find-files-get-candidates must-match))) (filtered-candidate-transformer anything-c-find-files-transformer) (candidate-number-limit . 9999) (toggle-auto-update . anything-ff-toggle-auto-update) (volatile) :input :prompt preselect history must-match marked-candidates alistp #3=#:--cl-keys-- anything-action-buffer #4=#:vnew #2# anything-mp-highlight-delay anything-ff-auto-update-initial-value anything-same-window hist minibuffer-completion-confirm map must-match-map anything-c-read-file-map anything-map prompt anything-pattern anything-exit-status :resume noresume "" 0 keyboard-quit] 17 (#$ . 157089)]) (defvar anything-c-file-cache-initialized-p nil) (defvar anything-c-file-cache-files nil) (defvar anything-c-source-file-cache (byte-code "\301\302\303B\304BBB\207" [anything-generic-files-map (name . "File Cache") (init lambda nil (require 'filecache nil t) (unless anything-c-file-cache-initialized-p (setq anything-c-file-cache-files (loop for item in file-cache-alist append (destructuring-bind (base &rest dirs) item (loop for dir in dirs collect (concat dir base))))) (defadvice file-cache-add-file (after file-cache-list activate) (add-to-list 'anything-c-file-cache-files (expand-file-name file))) (setq anything-c-file-cache-initialized-p t))) keymap ((help-message . anything-generic-file-help-message) (mode-line . anything-generic-file-mode-line-string) (candidates . anything-c-file-cache-files) (match anything-c-match-on-basename) (type . file))] 4)) #@161 Try to find if a local locatedb file is available. The search is done in `anything-ff-default-directory' or fall back to `default-directory' if FROM-FF is nil. (defalias 'anything-ff-find-locatedb #[(&optional from-ff) "\2051 \203\n\203\304\305 \"!\203\305 \"\2061\n\2040\304\305 \"!\2030\305 \"\2061\306\207" [anything-ff-locate-db-filename anything-ff-default-directory from-ff default-directory file-exists-p expand-file-name nil] 4 (#$ . 162340)]) #@200 Generic function to run Locate. if LOCALDB is non--nil search and use a local locate db file. INIT is a string to use as initial input in prompt. See `anything-locate-with-db' and `anything-locate'. (defalias 'anything-locate-1 #[(&optional localdb init from-ff) "\306\205\307 !\206\310\311\312\n\206 \313\314\315\f\316\317& \"\207" [localdb from-ff anything-ff-default-directory default-directory anything-locate-db-file-regexp init anything-locate-with-db anything-ff-find-locatedb anything-c-read-file-name "LocateDBFiles: " :initial-input :marked-candidates t :preselect :test #[(x) "\203\302 \"\206\303 !\207 \207" [anything-locate-db-file-regexp x string-match file-directory-p] 3]] 11 (#$ . 162815)]) #@221 Run locate -d DB. If DB is not given or nil use locate without -d option. Argument DB can be given as a string or list of db files. Argument INITIAL-INPUT is a string to use as initial-input. See also `anything-locate'. (defalias 'anything-locate-with-db #[(&optional db initial-input) "\203\f;\203\fC \2043\306\n\307\"\203\310\2022\306\n\311\"\203&\312\2022\306\n\313\"\2031\314\2022\315\203g\316\317\320\321\322\323\324\211 :\203\\ @\325\f!\204U\f B A\211\202D \237+\326#\" #\202h \327\330\331\332\333\334\335&)\207" [db anything-c-locate-command system-type #1=#:--cl-var-- i #2=#:--cl-var-- memql 'gnu/linux "locate -i -r %s" 'berkeley-unix "locate -i %s" 'windows-nt "es -i -r %s" "locate %s" replace-regexp-in-string "locate" format "locate -d %s" mapconcat identity nil file-directory-p ":" anything :sources anything-c-source-locate :buffer "*anything locate*" :input :keymap initial-input anything-generic-files-map] 10 (#$ . 163544)]) #@65 Initialize async locate process for `anything-c-source-locate'. (defalias 'anything-c-locate-init #[nil "\303\304\305\306\307 \n\"#\310\311\305!\312\"\210\207" [mode-line-format anything-c-locate-command anything-pattern (" " mode-line-buffer-identification " " (line-number-mode "%l") " " (:eval (propertize "(Locate Process Running) " 'face '((:foreground "red"))))) start-process-shell-command "locate-process" nil format set-process-sentinel get-process #[(process event) "\303\230\205, \203r\304 q\210\305\306!\210\307 )\207\310\311 !r\312\216\313\n@\314\"\210\305\306!\210\307 +\207" [event anything-test-mode save-selected-window--state "finished\n" anything-buffer-get force-mode-line-update nil anything-update-move-first-line internal--before-with-selected-window anything-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord] 3]] 6 (#$ . 164529)]) #@60 Find files matching the current input pattern with locate. (defvar anything-c-source-locate (byte-code "\301\302\303\304\305B\306BBBBB\207" [anything-generic-files-map (name . "Locate") (candidates . anything-c-locate-init) (type . file) (requires-pattern . 3) keymap ((help-message . anything-generic-file-help-message) (candidate-number-limit . 9999) (mode-line . anything-generic-file-mode-line-string) (delayed))] 6) (#$ . 165446)) #@125 Search a file with locate and return it's filename. Use argument PROMPT and INIT for `anything' arguments prompt and input. (defalias 'anything-c-locate-read-file-name #[(prompt &optional init) "\302\303\304\305\306 \307\310&\207" [prompt init anything :sources ((name . "Locate") (candidates . anything-c-locate-init) (action . identity) (requires-pattern . 3) (candidate-number-limit . 9999) (mode-line . anything-generic-file-mode-line-string) (delayed)) :prompt :input :buffer "*anything locate rfn*"] 9 (#$ . 165890)]) #@191 Default grep format command for `anything-do-grep-1'. Where: '%e' format spec is for --exclude or --include grep options. '%p' format spec is for pattern. '%f' format spec is for filenames. (defvar anything-c-grep-default-command "grep -d skip %e -niH -e %p %f" (#$ . 166423)) #@121 Default recursive grep format command for `anything-do-grep-1'. See `anything-c-grep-default-command' for format specs. (defvar anything-c-grep-default-recurse-command "grep -d recurse %e -niH -e %p %f" (#$ . 166707)) (defvar anything-c-default-zgrep-command "zgrep -niH -e %p %f") (defvar anything-c-rzgrep-cache (make-hash-table :test 'equal)) (defvar anything-c-grep-default-function 'anything-c-grep-init) #@61 Turn on anything grep command-line debugging when non--nil. (defvar anything-c-grep-debug-command-line nil (#$ . 167123)) (defvar anything-c-zgrep-recurse-flag nil) (defvar anything-c-grep-history nil) #@63 *Max number of elements to save in `anything-c-grep-history'. (defvar anything-c-grep-max-length-history 100 (#$ . -167331)) #@69 Prepare filenames and directories CANDIDATES for grep command line. (defalias 'anything-c-grep-prepare-candidates #[(candidates) "\203\n\305\306 \307#\207 \310\211\n:\203y\n@\311\f\312 !\203,\313 \203,\314 !C\202p\312 !\203?\315\316\314 !!\317P\320\"\202p\321 !\204L\322\317 \"\203^\313 \203^\314\323\324\323 !!!!C\202p\322\325\326 !\"\203n\315 \320\"\202p C\"\nA\211\202\305\306\f\307#+\207" [anything-c-zgrep-recurse-flag candidates #1=#:--cl-var-- i all-files mapconcat shell-quote-argument " " nil append file-directory-p anything-c-grep-recurse-p expand-file-name file-expand-wildcards file-name-as-directory "*" t file-exists-p string-match directory-file-name file-name-directory "^*" anything-c-basename] 8 (#$ . 167462)]) #@59 Check if `anything-do-grep-1' have switched to recursive. (defalias 'anything-c-grep-recurse-p #[nil "\303\304\305#\306 \307\310\311#)\266\203)\207" [anything-c-grep-default-command args inhibit-changing-match-data replace-regexp-in-string "grep" "" "r\\|recurse" nil t string-match] 7 (#$ . 168221)]) #@56 Start an asynchronous grep process in ONLY-FILES list. (defalias 'anything-c-grep-init #[(only-files &optional include zgrep) "\306\307!\203\310\311 \"\202 !\312\313 \314#\312\315 \314#\"\316 \2030#\206)\f\314\"Q\2021\f$\317%\320\321&?\205B\322$B\323\324'!B\325\nBE\"\"()\203fr\326\327!q\210db\210\330(\331Qc\210)\332*\333\321!\210+\334\335\321(#)\336\321!\210\337\340\335!\341\"\210-\207" [anything-ff-default-directory only-files fnargs grep-find-ignored-files ignored-files grep-find-ignored-directories anything-c-grep-prepare-candidates file-remote-p mapcar #[(x) "\301\302\"\207" [x file-remote-p localname] 3] mapconcat #[(x) "\301\302!P\207" [x "--exclude=" shell-quote-argument] 3] " " #[(x) "\301\302!P\207" [x "--exclude-dir=" shell-quote-argument] 3] anything-c-grep-recurse-p format-spec delq nil 101 112 shell-quote-argument 102 get-buffer-create "*any grep debug*" ">>> " "\n\n" (" " mode-line-buffer-identification " " (line-number-mode "%l") " " (:eval (when (get-process "grep-process") (propertize "[Grep Process Running] " 'face 'anything-grep-running)))) force-mode-line-update start-file-process-shell-command "grep-process" message set-process-sentinel get-process #[(process event) "\304\230\2050 \203r\305 q\210\306 \210\307\310\311!)\207\312\313 !r\314\216\315 @\316\"\210\306 \210\307\310\311!+\207" [event anything-test-mode mode-line-format save-selected-window--state "finished\n" anything-buffer-get anything-update-move-first-line (" " mode-line-buffer-identification " " (line-number-mode "%l") " " (:eval (propertize (format "[Grep Process Finished - (%s results)] " (let ((nlines (1- (count-lines (point-min) (point-max))))) (if (> nlines 0) nlines 0))) 'face 'anything-grep-finish))) force-mode-line-update nil internal--before-with-selected-window anything-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord] 3] ignored-dirs include exclude anything-c-grep-default-command zgrep anything-pattern cmd-line anything-c-grep-debug-command-line mode-line-format default-directory] 8 (#$ . 168535)]) #@119 Define a default action for `anything-do-grep' on CANDIDATE. WHERE can be one of other-window, elscreen, other-frame. (defalias 'anything-c-grep-action #[(candidate &optional where mark) "\306!\307 A@! @\310\f\311\"\310\f\312\"\313 \314\314\260 \203. P\202/ !\315\"\316\"\203A\317!!\210\202t\315\"\320\"\203Q\321!!\210\202t\315\"\322\"\203a\323!!\210\202t\315\"\324\"\203o\325 \210\202t\326!!\210\"\324=\204\327\n!\210#\203\217\330 `\331\223\210\332`\333\"\210$\206\230%\334\230?\205\273%\335%&\"B\211&G'V\205\273\335\336&!@&\"\211&.\207" [candidate split lineno loc-fname anything-ff-default-directory tramp-method anything-c-grep-split-line string-to-number file-remote-p method host "/" ":" eql other-window find-file-other-window elscreen anything-elscreen-find-file other-frame find-file-other-frame grep anything-c-grep-save-results-1 find-file anything-goto-line mark-marker nil push-mark nomsg "" delete last tramp-host tramp-prefix fname where mark anything-in-persistent-action anything-pattern anything-c-grep-history anything-c-grep-max-length-history] 6 (#$ . 170658)]) #@52 Jump to result in other window from anything grep. (defalias 'anything-c-grep-other-window #[(candidate) "\301\302\"\207" [candidate anything-c-grep-action other-window] 3 (#$ . 171800)]) #@51 Jump to result in other frame from anything grep. (defalias 'anything-c-grep-other-frame #[(candidate) "\301\302\"\207" [candidate anything-c-grep-action other-frame] 3 (#$ . 171995)]) #@48 Jump to result in elscreen from anything grep. (defalias 'anything-c-grep-jump-elscreen #[(candidate) "\301\302\"\207" [candidate anything-c-grep-action elscreen] 3 (#$ . 172187)]) (defalias 'anything-c-grep-save-results #[(_candidate) "\301\302\"\207" [_candidate anything-c-grep-action grep] 3]) #@52 Save anything grep result in a `grep-mode' buffer. (defalias 'anything-c-grep-save-results-1 #[nil "\306\307\310 !\203:\311\312 \"\313 \307\n:\2037\n@ \230\2030\314\315\316\"!\2040\311\312\317\"\nA\211\202*r\320 !q\210\321\322 \210\323\315\324 \"\261\210\212rq\210eb\210\325y\210`d{)c\210\326 \210+\327\330 \"*\207" [new-buf buf #1=#:--cl-var-- b inhibit-read-only anything-pattern "*grep*" nil get-buffer read-string "GrepBufferName: " anything-c-buffer-list y-or-n-p format "Buffer `%s' already exists overwrite? " "*grep " get-buffer-create t erase-buffer "-*- mode: grep -*-\n\n" "Grep Results for `%s':\n\n" 1 grep-mode message "Anything Grep Results saved in `%s' buffer" anything-buffer] 5 (#$ . 172493)]) #@94 Persistent action for `anything-do-grep'. With a prefix arg record CANDIDATE in `mark-ring'. (defalias 'anything-c-grep-persistent-action #[(candidate) "\203 \302 \303\304#\210\202\302 !\210\305 \207" [current-prefix-arg candidate anything-c-grep-action nil mark anything-match-line-color-current-line] 4 (#$ . 173234)]) #@144 Try to guess file extensions in FILES list when using grep recurse. These extensions will be added to command line with --include arg of grep. (defalias 'anything-c-grep-guess-extensions #[(files) "\306\307 @!\203\310 @\306\n#\202 \211\306\211 \306\211\f:\203`\f@\311 \312\"\211 \205> \313\230?\205>\314 P\211\203Y\235\204Y\235\204YC\244\fA\211\202!.\207" [glob-list files directory-files-no-dot-files-regexp lst #1=#:--cl-var-- i nil file-directory-p directory-files file-name-extension t "" "*" ext glob grep-find-ignored-files] 5 (#$ . 173566)]) #@274 Launch grep with a list of ONLY files. When RECURSE is given use -r option of grep and prompt user to set the --include args of grep. You can give more than one arg separated by space. e.g *.el *.py *.tex. If it's empty --exclude `grep-find-ignored-files' is used instead. (defalias 'anything-do-grep-1 #[(only &optional recurse zgrep) "\306\307\310!\"\311 ! ?\205\312\313\n\314# \205# ?\205#\315\316\f\"()* \2036 \2036+\202J \203?,\202J \203H+\202J--\317.(\203f(\320\230?\205d\312\321\322(!\314#(\323/!\203r\324/!\2100\206y10\325\326\327\330\331\332\333\334\3352B\336\306\317\337\340\341\342!\205\223\343\344BBB\"B\345BBBBBBBBC\346\347$.\207" [anything-compile-source-functions only exts zgrep globs recurse delq anything-compile-source--match-plugin copy-sequence anything-c-grep-guess-extensions mapconcat identity " " read-string "OnlyExt(*.[ext]): " nil "" #[(x) "\301\302!P\207" [x "--include=" shell-quote-argument] 3] split-string get-buffer kill-buffer anything :sources (name . "Grep") (header-name lambda (name) (concat name "(C-c ? Help)")) (candidates lambda nil (funcall anything-c-grep-default-function only include-files zgrep)) (filtered-candidate-transformer anything-c-grep-cand-transformer) (candidate-number-limit . 9999) (mode-line . anything-grep-mode-line-string) keymap action ("Find File" . anything-c-grep-action) ("Find file other frame" . anything-c-grep-other-frame) locate-library "elscreen" ("Find file in Elscreen" . anything-c-grep-jump-elscreen) (("Save results in grep buffer" . anything-c-grep-save-results) ("Find file other window" . anything-c-grep-other-window)) ((persistent-action . anything-c-grep-persistent-action) (persistent-help . "Jump to line (`C-u' Record in mark ring)") (requires-pattern . 3) (delayed)) :buffer "*anything grep*" include-files anything-c-grep-history minibuffer-history anything-c-default-zgrep-command anything-c-grep-default-recurse-command anything-c-grep-default-command anything-mp-highlight-delay anything-action-buffer anything-ff-default-directory default-directory anything-c-grep-map] 16 (#$ . 174161)]) (defalias 'anything-ff-zgrep-1 #[(flist recursive) "\306\216\206  \203l\307\n\f\"\206n\310\n\311\312\313\314\"\203!\315\2028\312\313\316\"\203,\317\2028\312\313\211\"\2037\320\2028\315\321\322!\211\211\311L\210)\211\323\324\325\326\327D\326D\330FEL\210)J\n!\210\237+\f#\202n ! \203w\331\"\332! \333#+\207" [anything-ff-default-directory default-directory def-dir recursive anything-c-rzgrep-cache fn ((byte-code "\301\211\207" [anything-c-zgrep-recurse-flag nil] 2)) gethash puthash nil eql full basename file-name-nondirectory relative file-relative-name identity make-symbol "----cl-ls-R----" lambda (&rest --cl-rest--) apply quote #[(#1=#:G66604 dir) "\306\307 #\211\310 :\203? @\311\f!\203&\312\f!\2048 J\f!\210\2028\313\314\315\f!\"\2038\f!B A\211\202 +\310\207" [dir directory-files-no-dot-files-regexp ls #2=#:--cl-var-- f #1# directory-files t nil file-directory-p file-symlink-p string-match ".*\\(.gz\\|.bz\\|.xz\\|.lzma\\)$" file-name-nondirectory fn result] 5] --cl-rest-- t anything-do-grep-1 zgrep result #3=#:--cl---cl-ls-R---- #4=#:v #5=#:v flist only anything-c-zgrep-recurse-flag] 10]) #@27 Split a grep output line. (defalias 'anything-c-grep-split-line #[(line) "\306\211\211\211\307\310\f\"\205I\311\312!r q\210\313\216\fc\210eb\210`\314u\210\315\316\306\317#\210\320 `S\"`\315\316\306\317#\210\320 `S\"\320`\321 \"+\n E,\207" [str lineno fname beg line #1=#:temp-buffer nil string-match "\\(.*\\)\\(:[0-9]+:\\)\\(.*\\)" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) 2 re-search-forward ":" t buffer-substring-no-properties point-at-eol] 4 (#$ . 177451)]) #@65 Filtered candidate transformer function for `anything-do-grep'. (defalias 'anything-c-grep-cand-transformer #[(candidates sources) "\306\211\306\211\306\211 :\203] @\211\205\307\n!\211@ A@\310 8\f\203V \203V\203V\311\312\f!\313\314\315\f%\316\311 \313\317#\316\320!\260\nBB A\211\202\237.\207" [candidates #1=#:--cl-var-- i split fname lineno nil anything-c-grep-split-line 2 propertize file-name-nondirectory face anything-grep-file help-echo ":" anything-grep-lineno anything-c-grep-highlight-match str #2=#:--cl-var--] 7 (#$ . 178001)]) #@69 Highlight in string STR all occurences matching `anything-pattern'. (defalias 'anything-c-grep-highlight-match #[(str) "\300\301\302\217\207" [nil (byte-code "\303\304!rq\210\305\216 c\210eb\210\306\n\307\310#\203-\311\225\311\224Z\311V\203-\312\311\224\311\225\313#\210\202\314 +\207" [#1=#:temp-buffer str anything-pattern generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) re-search-forward nil t 0 add-text-properties (face anything-grep-match) buffer-string] 4) ((error))] 3 (#$ . 178584)]) #@123 Go to next or precedent candidate file in anything grep/etags buffers. If N is positive go forward otherwise go backward. (defalias 'anything-c-goto-next-or-prec-file #[(n) "\203Lr\306 q\210\307\310 \311 {\312\"\211@ \313=\203\314\202 \315\316\317\215\210 \313=\203;m\203;\320\321!\210\322y\210\323 \202J \313W\205Jo\205J\313y\210\323 ,\207\324\325 !r\326\216\327 @\330\"\210\307\310 \311 {\312\"\211@ \313=\203p\314\202q\315\316\331\215\210 \313=\203\214m\203\214\320\321!\210\322y\210\323 \202\233 \313W\205\233o\205\233\313y\210\323 .\207" [anything-test-mode current-line-list current-fname n fn-b-o-f save-selected-window--state anything-buffer-get split-string point-at-bol point-at-eol ":" 1 eobp bobp break (byte-code " \204 y\210\303\n\304 \305#\204\306 \210\307\310\311\"\210\202\311\207" [fn-b-o-f n current-fname search-forward point-at-eol t anything-mark-current-line throw break nil] 4) re-search-backward "." 0 anything-mark-current-line internal--before-with-selected-window anything-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord (byte-code " \204 y\210\303\n\304 \305#\204\306 \210\307\310\311\"\210\202\311\207" [fn-b-o-f n current-fname search-forward point-at-eol t anything-mark-current-line throw break nil] 4)] 4 (#$ . 179152)]) #@54 Go to precedent file in anything grep/etags buffers. (defalias 'anything-c-goto-precedent-file #[nil "\300\301!\207" [anything-c-goto-next-or-prec-file -1] 2 (#$ . 180503) nil]) #@54 Go to precedent file in anything grep/etags buffers. (defalias 'anything-c-goto-next-file #[nil "\300\301!\207" [anything-c-goto-next-or-prec-file 1] 2 (#$ . 180687) nil]) #@55 Run grep persistent action from `anything-do-grep-1'. (defalias 'anything-c-grep-run-persistent-action #[nil "\300\301\302\"\210\303\301!\207" [anything-attrset jump-persistent anything-c-grep-persistent-action anything-execute-persistent-action] 3 (#$ . 180865) nil]) #@52 Run grep default action from `anything-do-grep-1'. (defalias 'anything-c-grep-run-default-action #[nil "\300\301!\207" [anything-c-quit-and-execute-action anything-c-grep-action] 2 (#$ . 181140) nil]) #@62 Run grep goto other window action from `anything-do-grep-1'. (defalias 'anything-c-grep-run-other-window-action #[nil "\300\301!\207" [anything-c-quit-and-execute-action anything-c-grep-other-window] 2 (#$ . 181347) nil]) #@57 Run grep save results action from `anything-do-grep-1'. (defalias 'anything-c-grep-run-save-buffer #[nil "\300\301!\207" [anything-c-quit-and-execute-action anything-c-grep-save-results] 2 (#$ . 181575) nil]) #@369 Run grep on all file--buffers or CANDIDATE if it is a file--buffer. If one of selected buffers is not a file--buffer, it is ignored and grep will run on all others file--buffers. If only one candidate is selected and it is not a file--buffer, switch to this buffer and run `anything-occur'. If a prefix arg is given run grep on all buffers ignoring non--file-buffers. (defalias 'anything-c-grep-buffers-1 #[(candidate &optional zgrep) "\206 \211\203\306 \202\307 \310  \311\211\311 :\203E @\312\313!!\211\203>\314!B A\211\202!\237,\211\203d\203]\315\311\316#\202\202\315!\202\202\317!\210\313!\203u\320!\210\321 \210\322=\205\202\323\f!,\207" [current-prefix-arg anything-current-prefix-arg prefarg cands win-conf #1=#:--cl-var-- buffer-list anything-marked-candidates current-window-configuration nil buffer-file-name get-buffer expand-file-name anything-do-grep-1 zgrep anything-c-switch-to-buffer kill-buffer anything-occur 1 set-window-configuration buf fname #2=#:--cl-var-- bufs candidate anything-action-buffer anything-exit-status] 5 (#$ . 181791)]) #@25 Action to grep buffers. (defalias 'anything-c-grep-buffers #[(candidate) "\301!\207" [candidate anything-c-grep-buffers-1] 2 (#$ . 182912)]) #@26 Action to zgrep buffers. (defalias 'anything-c-zgrep-buffers #[(candidate) "\301\302\"\207" [candidate anything-c-grep-buffers-1 zgrep] 3 (#$ . 183060)]) (defvar anything-c-pdfgrep-default-command "pdfgrep --color never -niH %s %s") (defvar anything-c-pdfgrep-default-function 'anything-c-pdfgrep-init) (defvar anything-c-pdfgrep-debug-command-line nil) #@59 Start an asynchronous pdfgrep process in ONLY-FILES list. (defalias 'anything-c-pdfgrep-init #[(only-files) "\306\307!\203\310\311 \"\202 !\312 \f\n#\203,r\313\314!q\210db\210\315 \316Qc\210)\317\320\321\322 #)\323\322!\210\324\325\321!\326\"\210*\207" [anything-ff-default-directory only-files fnargs anything-c-pdfgrep-default-command anything-pattern cmd-line anything-c-grep-prepare-candidates file-remote-p mapcar #[(x) "\301\302\"\207" [x file-remote-p localname] 3] format get-buffer-create "*any pdfgrep debug*" ">>> " "\n\n" (" " mode-line-buffer-identification " " (line-number-mode "%l") " " (:eval (propertize "(Pdfgrep Process Running) " 'face '((:foreground "red"))))) start-file-process-shell-command "pdfgrep-process" nil message set-process-sentinel get-process #[(process event) "\303\230\205+ \203r\304 q\210\305 \210)\202(\306\307 !r\310\216\311\n@\312\"\210\305 \210+\313\314!\207" [event anything-test-mode save-selected-window--state "finished\n" anything-buffer-get anything-update-move-first-line internal--before-with-selected-window anything-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord force-mode-line-update nil] 3] anything-c-pdfgrep-debug-command-line mode-line-format default-directory] 4 (#$ . 183421)]) #@43 Launch pdfgrep with a list of ONLY files. (defalias 'anything-do-pdfgrep-1 #[(only) "\306\307!\204\n\310\311!\210\312\313\314!\"\315\316\n!\203\317\n!\210 \206\"\f\320\321\322\323 \324\325&*\207" [anything-compile-source-functions anything-mp-highlight-delay anything-action-buffer anything-ff-default-directory default-directory anything-c-pdfgrep-map executable-find "pdfgrep" error "Error: No such program `pdfgrep'." delq anything-compile-source--match-plugin copy-sequence nil get-buffer kill-buffer anything :sources (((name . "PdfGrep") (candidates lambda nil (funcall anything-c-pdfgrep-default-function only)) (filtered-candidate-transformer anything-c-grep-cand-transformer) (candidate-number-limit . 9999) (mode-line . anything-pdfgrep-mode-line-string) (action . anything-c-pdfgrep-action) (persistent-help . "Jump to PDF Page") (requires-pattern . 3) (delayed))) :keymap :buffer "*anything grep*"] 7 (#$ . 184740)]) (defalias 'anything-c-pdfgrep-action #[(candidate) "\305!\211A@ @\306\307\310\311\f\312 B\313\nBD\"#+\207" [candidate split pageno fname anything-c-pdfgrep-default-read-command anything-c-grep-split-line start-file-process-shell-command "pdf-reader" nil format-spec 102 112] 9]) (defvar anything-yank-point nil) #@35 Yank text at point in minibuffer. (defalias 'anything-yank-text-at-point #[nil "\305\306\307K\310\216\307 M\210r q\210\f\204`\f\203\fb\210\311v\210\312\f`\"`)\307!,\207" [input #1=#:vnew #2=#:old anything-current-buffer anything-yank-point nil #[(word) "\304\305 !r\306\216\307@\310\"\210 \311 \210\312\313 G\314 $\210\n Pc,\207" [save-selected-window--state anything-pattern str word internal--before-with-selected-window minibuffer-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord delete-minibuffer-contents set-text-properties 0 nil] 5] insert-in-minibuffer ((byte-code "\301M\207" [#2# insert-in-minibuffer] 2)) 1 buffer-substring-no-properties] 3 (#$ . 186000) nil]) (defalias 'anything-reset-yank-point #[nil "\301\211\207" [anything-yank-point nil] 2]) (byte-code "\300\301\302\"\210\300\303\302\"\207" [add-hook anything-after-persistent-action-hook anything-reset-yank-point anything-cleanup-hook] 3) #@113 See (info "(emacs)File Conveniences"). Set `recentf-max-saved-items' to a bigger value if default is too small. (defvar anything-c-source-recentf (byte-code "\301\302\303\304B\305BBBB\207" [anything-generic-files-map (name . "Recentf") (init lambda nil (require 'recentf) (or recentf-mode (recentf-mode 1))) (candidates . recentf-list) keymap ((help-message . anything-generic-file-help-message) (mode-line . anything-generic-file-mode-line-string) (match anything-c-match-on-basename) (type . file))] 5) (#$ . 186983)) (defvar anything-c-source-ffap-guesser (byte-code "\301\302\303\304B\305BBBB\207" [anything-generic-files-map (name . "File at point") (init lambda nil (require 'ffap)) (candidates lambda nil (anything-aif (with-anything-current-buffer (ffap-guesser)) (list it))) keymap ((help-message . anything-generic-file-help-message) (mode-line . anything-generic-file-mode-line-string) (type . file))] 5)) #@35 Get (FILENAME . LINENO) at point. (defalias 'anything-c-ffap-file-line-at-point #[nil "\302\303 )\211\205$\212\304 \210\305 \302\306#\205#\307\310!\205# \311\312\313!!B))\207" [ffap-alist it nil ffap-file-at-point beginning-of-line search-forward t looking-at ":\\([0-9]+\\)" string-to-number match-string 1] 5 (#$ . 187908)]) (defalias 'anything-c-ffap-line-candidates #[nil "rq\210\304\305\306 \"\210)\307\305!\211\2052 \211\203!\n\211A\242\202(\310\311\312\nGD\"\313\314 \n# *BC)\207" [anything-current-buffer it line file anything-attrset ffap-line-location anything-c-ffap-file-line-at-point anything-attr signal wrong-number-of-arguments nil format "%s (line %d)"] 5]) (defalias 'anything-c-ffap-line-goto-line #[nil "\300\301!@\205\302\216\303\304\305\217)\207" [anything-attr ffap-line-location ((byte-code "\300\301\302\"\207" [anything-attrset ffap-line-location nil] 3)) nil (byte-code "\301\302\303\304\305!@!!!r\306\216\307@\310\"\210\311\304\305!A!+\207" [save-selected-window--state internal--before-with-selected-window get-buffer-window get-file-buffer anything-attr ffap-line-location ((internal--after-with-selected-window save-selected-window--state)) select-window norecord anything-goto-line] 5) ((error))] 3]) (byte-code "\300\301\302\"\210\300\303\302\"\207" [add-hook anything-after-action-hook anything-c-ffap-line-goto-line anything-after-persistent-action-hook] 3) (defvar anything-c-source-ffap-line (byte-code "\301\302\303\304B\305BBBB\207" [anything-map (name . "File/Lineno at point") (init lambda nil (require 'ffap)) (candidates . anything-c-ffap-line-candidates) keymap ((type . file))] 5)) (defalias 'anything-c-files-in-all-dired-candidates #[nil "\212\300\301\302\303\304\305\306 \"\"\")\207" [mapcan #[(dir) "<\203\207\301!\302\232\203\303\304\"\207\305\304\"\207" [dir file-name-nondirectory "" directory-files t file-expand-wildcards] 3] delq nil mapcar #[(buf) "q\210 \303=\205\n:\203\nA\207\n\207" [buf major-mode dired-directory dired-mode] 2] buffer-list] 7]) (defvar anything-c-source-files-in-all-dired '((name . "Files in all dired buffer.") (candidates . anything-c-files-in-all-dired-candidates) (type . file))) #@90 Source to find files instantly. See `anything-c-filelist-file-name' docstring for usage. (defvar anything-c-source-filelist '((name . "FileList") (grep-candidates . anything-c-filelist-file-name) (candidate-number-limit . 200) (requires-pattern . 4) (type . file)) (#$ . 190109)) #@99 All info pages on system. Will be calculated the first time you invoke anything with this source. (defvar anything-c-info-pages nil (#$ . 190395)) #@47 Collect candidates for initial Info node Top. (defalias 'anything-c-info-pages-init #[nil "\203\207\304\305\306\307!\210\310\311!r q\210\312\216\313\314\315\"\210eb\210\316\n\305\317#\2031\320\321! B\202 \322 \210+ \211*\207" [anything-c-info-pages topics info-topic-regexp #1=#:temp-buffer "\\* +\\([^:]+: ([^)]+)[^.]*\\)\\." nil require info generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) Info-find-node "dir" "top" re-search-forward t match-string-no-properties 1 kill-buffer] 4 (#$ . 190548)]) (defvar anything-c-source-info-pages '((name . "Info Pages") (init . anything-c-info-pages-init) (candidates . anything-c-info-pages) (action ("Show with Info" lambda (node-str) (info (replace-regexp-in-string "^[^:]+: " "" node-str)))) (requires-pattern . 2))) #@98 All man pages on system. Will be calculated the first time you invoke anything with this source. (defvar anything-c-man-pages nil (#$ . 191388)) #@66 Default action for jumping to a woman or man page from anything. (defalias 'anything-c-man-default-action #[(candidate) "\302!\303\304\305\217)\207" [candidate wfiles woman-file-name-all-completions err (byte-code "G\302V\203\303\304\305\306\307$!\207\310 !\207" [wfiles candidate 1 woman-find-file anything-comp-read "ManFile: " :must-match t woman] 6) ((error (byte-code "\302 \210\303\304 !)\207" [Man-notify-method candidate kill-buffer meek Man-getpage-in-background] 2)))] 3 (#$ . 191539)]) (defvar anything-c-source-man-pages '((name . "Manual Pages") (candidates lambda nil (if anything-c-man-pages anything-c-man-pages (setq anything-c-man-pages (ignore-errors (require 'woman) (woman-file-name "") (sort (mapcar 'car woman-topic-all-completions) 'string-lessp))))) (action ("Show with Woman" . anything-c-man-default-action)) (action-transformer lambda (actions candidate) (if (eq system-type 'darwin) '(("Show with Man" . man)) actions)) (requires-pattern . 2))) (defvar anything-M-x-input-history nil) #@27 Return alist of MODE-MAP. (defalias 'anything-M-x-get-major-mode-command-alist #[(mode-map) "\304\211\304\305\306 \"\210\n\237+\207" [str-key ismenu #1=#:--cl-var-- mode-map nil cl--map-keymap-recursively #[(key com) "\305!\306\307 \"\211?\205 B\fB\211\207" [key str-key ismenu com #1# key-description string-match ""] 4]] 4 (#$ . 192566)]) #@193 Guess the mode-map name according to MODE. Some modes don't use conventional mode-map name so we need to guess mode-map name. e.g python-mode ==> py-mode-map. Return nil if no mode-map found. (defalias 'anything-get-mode-map-from-mode #[(mode) "\306\307\310\"!\311!\312\313\314\n#\211G\315\316\315 \204H\f\317=\2030\315\211\211\2021\316\203H \317\fO\306\307\310 \313P\"!\fS\202\203Q \202S.\207" [mode mode-map mode-string mode-name count sub-name intern-soft format "%s-map" symbol-name replace-regexp-in-string "-mode" "" nil t 0 #1=#:--cl-var-- #2=#:--cl-var--] 6 (#$ . 192934)]) #@48 Return mode-map alist of current `major-mode'. (defalias 'anything-M-x-current-mode-map-alist #[nil "\302!\211\205\303 !\205\304 J!)\207" [major-mode map anything-get-mode-map-from-mode boundp anything-M-x-get-major-mode-command-alist] 3 (#$ . 193553)]) #@143 filtered-candidate-transformer to show bindings in emacs commands. Show global bindings and local bindings according to current `major-mode'. (defalias 'anything-M-x-transformer #[(candidates sources) "rq\210\306 \n\307\211\307\211 :\203f @\310\f \"@\311\312\313\f\"!\314\315\"\203C \203C\312\316\f\317 \320\321##\202Y\314\315\"\203O\f\202Y\312\316\f\317\320\321##\fBC\244 A\211\202\322\323\".\207" [anything-current-buffer local-map candidates #1=#:--cl-var-- cand local-key anything-M-x-current-mode-map-alist nil rassq substitute-command-keys format "\\[%s]" string-match "^M-x" "%s (%s)" propertize face anything-M-x-key-face sort #[(x y) "@ @\231\207" [x y] 2] key ls] 9 (#$ . 193820)]) (defvar anything-c-source-complex-command-history '((name . "Complex Command History") (candidates lambda nil (mapcar 'prin1-to-string command-history)) (type . sexp))) (defvar anything-c-source-extended-command-history '((name . "Emacs Commands History") (candidates lambda nil (anything-fast-remove-dups extended-command-history :test 'equal)) (type . command))) #@213 Source for completing and invoking Emacs commands. A command is a function with interactive spec that can be invoked with `M-x'. To get non-interactive functions listed, use `anything-c-source-emacs-functions'. (defvar anything-c-source-emacs-commands '((name . "Emacs Commands") (candidates lambda nil (let (commands) (mapatoms (lambda (a) (if (commandp a) (push (symbol-name a) commands)))) (sort commands 'string-lessp))) (type . command) (requires-pattern . 2)) (#$ . 194920)) #@40 Source for completing Emacs functions. (defvar anything-c-source-emacs-functions '((name . "Emacs Functions") (candidates lambda nil (let (commands) (mapatoms (lambda (a) (if (functionp a) (push (symbol-name a) commands)))) (sort commands 'string-lessp))) (type . function) (requires-pattern . 2)) (#$ . 195408)) #@171 The regexp for `anything-c-source-emacs-functions-with-abbrevs'. Regexp built from the current `anything-pattern' interpreting it as abbreviation. Only for internal use. (defvar anything-c-function-abbrev-regexp nil (#$ . 195728)) #@273 Return non-nil if `anything-pattern' is an abbreviation of the function CANDIDATE. Abbreviations are made by taking the first character from each word in the function's name, e.g. "bb" is an abbrev for `bury-buffer', "stb" is an abbrev for `anything-c-switch-to-buffer'. (defalias 'anything-c-match-function-by-abbrev #[(candidate) "\302 \"\207" [anything-c-function-abbrev-regexp candidate string-match] 3 (#$ . 195966)]) (defvar anything-c-source-emacs-functions-with-abbrevs (append anything-c-source-emacs-functions '((match anything-c-match-function-by-abbrev anything-c-string-match)) '((init lambda nil (defadvice anything-update (before anything-c-update-function-abbrev-regexp activate) (let ((char-list (append anything-pattern nil)) (str "^")) (dolist (c char-list) (setq str (concat str (list c) "[^-]*-"))) (setq str (concat (substring str 0 (1- (length str))) "$")) (setq anything-c-function-abbrev-regexp str))))))) (defvar anything-c-source-advice '((name . "Function Advice") (candidates . anything-c-advice-candidates) (action ("Toggle Enable/Disable" . anything-c-advice-toggle)) (persistent-action . anything-c-advice-persistent-action) (multiline) (persistent-help . "Describe function / C-u C-z: Toggle advice"))) (defalias 'anything-c-advice-candidates #[nil "\306\307!\210\310\211\310\211 :\203\251 @\211@\311\n!\312\310\211:\203\232@\312\f\313N\236A\310\211\310:\203\207@\211\3148\262\315\316\203d\317\202e\320\321\n\322\323#\324\310#$\fEBBA\211\202H\237,!\244A\211\202*\237+! \244 A\211\202 \237-\207" [ad-advised-functions #1=#:--cl-var-- fname #2=#:--cl-var-- function #3=#:--cl-var-- require advice nil intern reverse ad-advice-info 2 format "%s %s %s" "Enabled " "Disabled" propertize face font-lock-function-name-face ad-make-single-advice-docstring ad-advice-classes #4=#:--cl-var-- class #5=#:--cl-var-- #6=#:--cl-var-- enabled #7=#:--cl-var--] 11]) (defalias 'anything-c-advice-persistent-action #[(func-class-advice) "\203\302 !\207\303 @!\207" [current-prefix-arg func-class-advice anything-c-advice-toggle describe-function] 2]) (defalias 'anything-c-advice-toggle #[(func-class-advice) "\211G\306U\203 \211A\242\202\307\310\311 GD\" \211A\242 @\211\3128\262\2037\313\f\311\"\210\314\315!\210\202@\313\f\316\"\210\314\317!\210\320\n!\210 \205J\321 ,\207" [func-class-advice #1=#:--cl-rest-- function class advice anything-in-persistent-action 3 signal wrong-number-of-arguments nil 2 ad-advice-set-enabled message "Disabled" t "Enabled" ad-activate anything-c-advice-update-current-display-string] 5]) (defalias 'anything-c-advice-update-current-display-string #[nil "\300\301!\207" [anything-edit-current-selection-internal #[nil "\302\303!\203\n\304\202\302\304!\205\303\305\211\205!`\306v\210`|\210 c*\207" [realvalue newword looking-at "Disabled" "Enabled" nil 1] 3]] 2]) #@40 Source for completing Emacs variables. (defvar anything-c-source-emacs-variables '((name . "Emacs Variables") (candidates lambda nil (sort (all-completions "" obarray 'boundp) 'string-lessp)) (type . variable) (requires-pattern . 2)) (#$ . 198898)) #@78 Needs lacarte.el. http://www.emacswiki.org/cgi-bin/wiki/download/lacarte.el (defvar anything-c-source-lacarte '((name . "Lacarte") (init lambda nil (require 'lacarte)) (candidates lambda nil (delete '(nil) (lacarte-get-overall-menu-item-alist))) (candidate-number-limit . 9999) (action . anything-c-call-interactively)) (#$ . 199153)) (defvar anything-c-bookmarks-face1 'anything-ff-directory) (defvar anything-c-bookmarks-face2 'anything-ff-file) (defvar anything-c-bookmarks-face3 'anything-bookmarks-su-face) #@32 See (info "(emacs)Bookmarks"). (defvar anything-c-source-bookmarks '((name . "Bookmarks") (init lambda nil (require 'bookmark)) (candidates . bookmark-all-names) (type . bookmark)) (#$ . 199672)) #@32 See (info "(emacs)Bookmarks"). (defvar anything-c-source-bookmark-set '((name . "Set Bookmark") (dummy) (action . bookmark-set)) (#$ . 199874)) #@41 Needs bm.el. http://www.nongnu.org/bm/ (defvar anything-c-source-bm '((name . "Visible Bookmarks") (init . anything-c-bm-init) (candidates-in-buffer) (type . line)) (#$ . 200024)) #@43 Init function for `anything-c-source-bm'. (defalias 'anything-c-bm-init #[nil "\306\302\307\310#\205a\311 \312\313!\314\315 @ A\"\316\317\320$\307\211\205` @\320\n!\321\n!\322\n\304\"\2062\323 Z\324W\204W\325\326\327!\f S{$rq\210c\210*+ A\211\204!\307,\207" [buf bookmarks bm --dolist-tail-- annotation end require nil t bm-lists anything-candidate-buffer global sort* append < :key overlay-start overlay-end overlay-get "" 1 format "%5d: [%s]: %s\n" line-number-at-pos start str] 7 (#$ . 200211)]) #@32 See (info "(emacs)Bookmarks"). (defvar anything-c-source-bookmarks-ssh '((name . "Bookmarks-ssh") (init lambda nil (require 'bookmark)) (candidates lambda nil (anything-c-collect-bookmarks :ssh t)) (type . bookmark)) (#$ . 200742)) #@32 See (info "(emacs)Bookmarks"). (defvar anything-c-source-bookmarks-su '((name . "Bookmarks-root") (init lambda nil (require 'bookmark)) (candidates lambda nil (anything-c-collect-bookmarks :su t)) (filtered-candidate-transformer anything-c-highlight-bookmark-su) (type . bookmark)) (#$ . 200980)) #@32 See (info "(emacs)Bookmarks"). (defvar anything-c-source-bookmarks-local '((name . "Bookmarks-Local") (init lambda nil (require 'bookmark)) (candidates lambda nil (anything-c-collect-bookmarks :local t)) (filtered-candidate-transformer anything-c-adaptive-sort anything-c-highlight-bookmark) (type . bookmark)) (#$ . 201283)) #@31 (fn &key LOCAL SU SUDO SSH) (defalias 'anything-c-collect-bookmarks #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@ \203H @\313>\2031 AA\211\202\314>A@\203?\315\211\202\316\317 @\"\210\202)\320  \203\205\315\211:\203~@\321\322\"\204uBA\211\202]\237+\202*\n\203\275\315\211:\203\266@\321\323\"\203\255BA\211\202\225\237+\202* \203\365\315\211:\203\356@\321\324\"\203\345BA\211\202\315\237+\202*\f\205* \315\211! :\203& @\321\325\"\203!B! A\211 \202!\237+\"\326\"\327\".\207" [#1# local su sudo ssh #2=#:--cl-keys-- plist-member :local :su :sudo :ssh (:local :su :sudo :ssh :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:local :su :sudo :ssh)" bookmark-all-names string-match "^(ssh)\\|^(su)" "^(su)" "^(sudo)" "^(ssh)" sort string-lessp lis-all #3=#:--cl-var-- i #4=#:--cl-var-- #5=#:--cl-var-- #6=#:--cl-var-- #7=#:--cl-var-- #8=#:--cl-var-- #9=#:--cl-var-- #10=#:--cl-var-- lis-loc] 4 (#$ . 201615)]) (defalias 'anything-c-bookmark-root-logged-p #[nil "\300\301\215\207" [break (byte-code "\303\304\305 \"\306\211\205& @\307\310\311\n\"\"\203\312\313\314\"\210 A\211\204\f\306*\207" [i --dolist-tail-- anything-su-or-sudo mapcar buffer-name buffer-list nil string-match format "*tramp/%s ." throw break t] 5)] 2]) (defalias 'anything-c-highlight-bookmark-su #[(files source) "\302 \203\n\303 \"\207\304 \"\207" [files source anything-c-bookmark-root-logged-p anything-c-highlight-bookmark anything-c-highlight-not-logged] 3]) (defalias 'anything-c-highlight-not-logged #[(files source) "\305\211 :\203 @\306\n\307\f# B A\211\202 \237+\207" [files #1=#:--cl-var-- i #2=#:--cl-var-- anything-c-bookmarks-face3 nil propertize face] 5]) #@124 Used as `candidate-transformer' to colorize bookmarks. Work both with standard Emacs bookmarks and bookmark-extensions.el. (defalias 'anything-c-highlight-bookmark #[(bookmarks source) "\306\211\306\211\306\211 !\306\211\"#\306\211$\306\211%&\306' :\203\f @\307\n!\310\311!\2059\311\n!\310\312!\205C\312\n!\310\313!\205M\313\n! \310\314!\205X\314\n!!\310\315!\205c\315\n!\"\310\316!\205n\316\n!#\312\n!\317\n!$\320\n\321\"\322\230% \323=&$\203\226$\324\230\204\226\325\nP&\203\245\326\n\327\330\331 %\202 \203\264\326\n\327\332\331 %\202!\203\303\326\n\327\333\331 %\202#\204\315\"\203\327\326\n\327\334\331 %\202%\203\344\326\n\327\335#\202 \203\371\336 !\203\371\326\n\327(\331 %\202\326\n\327\337\331 %'B' A\211\202%'\237.\207" [bookmarks #1=#:--cl-var-- i isfile bufp handlerp nil bookmark-get-filename fboundp bmkext-get-buffer-name bookmark-get-handler bmkext-w3m-bookmark-p bmkext-gnus-bookmark-p bmkext-man-bookmark-p bmkext-woman-bookmark-p bookmark-get-annotation bookmark-prop-get type "addressbook" Info-bookmark-jump "" "*" propertize face anything-bmkext-info help-echo anything-bmkext-w3m anything-bmkext-gnus anything-bmkext-man ((:foreground "Tomato")) file-directory-p anything-bmkext-file isw3m isgnus isman iswoman isannotation isabook isinfo #2=#:--cl-var-- anything-c-bookmarks-face1] 7 (#$ . 203495)]) #@33 Jump to bookmark from keyboard. (defalias 'anything-c-bookmark-jump #[(candidate) "\303\n!)\207" [anything-current-prefix-arg current-prefix-arg candidate bookmark-jump] 2 (#$ . 204898)]) #@33 Jump to bookmark from keyboard. (defalias 'anything-c-bookmark-run-jump-other-window #[nil "\300\301!\207" [anything-c-quit-and-execute-action bookmark-jump-other-window] 2 (#$ . 205094) nil]) #@32 Delete bookmark from keyboard. (defalias 'anything-c-bookmark-run-delete #[nil "\300\301!\205 \302\303!\207" [y-or-n-p "Delete bookmark?" anything-c-quit-and-execute-action anything-delete-marked-bookmarks] 2 (#$ . 205293) nil]) #@59 Return a filtered `bookmark-alist' sorted alphabetically. (defalias 'anything-c-bmkext-filter-setup-alist #[(fn &rest args) "\203 \306\307\"\202 \211\310\211\310 :\2030 @\211@ C\244 A\211\202\311 \312\"-\207" [args fn alist #1=#:--cl-var-- i b apply #[(x) " !\207" [fn x] 2] nil sort string-lessp sa] 4 (#$ . 205529)]) #@43 Run `bmkext-edit-bookmark' from keyboard. (defalias 'anything-c-bmkext-run-edit #[nil "\300\301!\207" [anything-c-quit-and-execute-action bmkext-edit-bookmark] 2 (#$ . 205878) nil]) (defvar anything-c-source-bmkext-addressbook '((name . "Bookmark Addressbook") (init lambda nil (require 'bookmark-extensions) (bookmark-maybe-load-default-file)) (candidates . anything-c-bmkext-addressbook-setup-alist) (persistent-action lambda (candidate) (let ((bmk (anything-bookmark-get-bookmark-from-name candidate))) (bookmark--jump-via bmk 'pop-to-buffer))) (persistent-help . "Show contact - Prefix with C-u to append") (filtered-candidate-transformer anything-c-adaptive-sort anything-c-highlight-bookmark) (action ("Show Contact(s)" lambda (candidate) (let* ((contacts (anything-marked-candidates)) (current-prefix-arg (or anything-current-prefix-arg (> (length contacts) 1)))) (bookmark-jump (anything-bookmark-get-bookmark-from-name (car contacts))) (anything-aif (cdr contacts) (loop for bmk in it do (bookmark-jump (anything-bookmark-get-bookmark-from-name bmk)))))) ("Send Mail" lambda (candidate) (let* ((contacts (anything-marked-candidates)) (bmk (anything-bookmark-get-bookmark-from-name (car contacts))) (append (message-buffers))) (if append (addressbook-set-mail-buffer1 bmk 'append) (addressbook-set-mail-buffer1 bmk)) (setq contacts (cdr contacts)) (when contacts (loop for bmk in contacts do (addressbook-set-mail-buffer1 bmk 'append))))) ("Edit Bookmark" lambda (candidate) (let ((bmk (anything-bookmark-get-bookmark-from-name candidate))) (addressbook-bookmark-edit (assoc bmk bookmark-alist)))) ("Insert Email at point" lambda (candidate) (let* ((bmk (anything-bookmark-get-bookmark-from-name candidate)) (mlist (split-string (assoc-default 'email (assoc bmk bookmark-alist)) ", "))) (insert (if (> (length mlist) 1) (anything-comp-read "Insert Mail Address: " mlist :must-match t) (car mlist))))) ("Show annotation" lambda (candidate) (let ((bmk (anything-bookmark-get-bookmark-from-name candidate))) (bookmark-show-annotation bmk))) ("Edit annotation" lambda (candidate) (let ((bmk (anything-bookmark-get-bookmark-from-name candidate))) (bookmark-edit-annotation bmk))) ("Show Google map" lambda (candidate) (let* ((bmk (anything-bookmark-get-bookmark-from-name candidate)) (full-bmk (assoc bmk bookmark-alist))) (addressbook-google-map full-bmk)))))) #@48 Specialized filter function for bookmarks w3m. (defalias 'anything-c-bmkext-addressbook-setup-alist #[nil "\300\301!\207" [anything-c-bmkext-filter-setup-alist bmkext-addressbook-alist-only] 2 (#$ . 208249)]) (defvar anything-c-source-bookmark-w3m '((name . "Bookmark W3m") (init lambda nil (require 'bookmark-extensions) (bookmark-maybe-load-default-file)) (candidates . anything-c-bookmark-w3m-setup-alist) (filtered-candidate-transformer anything-c-adaptive-sort anything-c-highlight-bookmark) (type . bookmark))) #@48 Specialized filter function for bookmarks w3m. (defalias 'anything-c-bookmark-w3m-setup-alist #[nil "\300\301!\207" [anything-c-bmkext-filter-setup-alist bmkext-w3m-alist-only] 2 (#$ . 208772)]) (defvar anything-c-source-bookmark-images '((name . "Bookmark Images") (init lambda nil (require 'bookmark-extensions) (bookmark-maybe-load-default-file)) (candidates . anything-c-bookmark-images-setup-alist) (filtered-candidate-transformer anything-c-adaptive-sort anything-c-highlight-bookmark) (type . bookmark))) #@51 Specialized filter function for images bookmarks. (defalias 'anything-c-bookmark-images-setup-alist #[nil "\300\301!\207" [anything-c-bmkext-filter-setup-alist bmkext-image-file-alist-only] 2 (#$ . 209290)]) (defvar anything-c-source-bookmark-man '((name . "Bookmark Woman&Man") (init lambda nil (require 'bookmark-extensions) (bookmark-maybe-load-default-file)) (candidates . anything-c-bookmark-man-setup-alist) (filtered-candidate-transformer anything-c-adaptive-sort anything-c-highlight-bookmark) (type . bookmark))) #@48 Specialized filter function for bookmarks w3m. (defalias 'anything-c-bookmark-man-setup-alist #[nil "\300\301\302!\301\303!\"\207" [append anything-c-bmkext-filter-setup-alist bmkext-man-alist-only bmkext-woman-alist-only] 4 (#$ . 209818)]) (defvar anything-c-source-bookmark-gnus '((name . "Bookmark Gnus") (init lambda nil (require 'bookmark-extensions) (bookmark-maybe-load-default-file)) (candidates . anything-c-bookmark-gnus-setup-alist) (filtered-candidate-transformer anything-c-adaptive-sort anything-c-highlight-bookmark) (type . bookmark))) #@49 Specialized filter function for bookmarks gnus. (defalias 'anything-c-bookmark-gnus-setup-alist #[nil "\300\301!\207" [anything-c-bmkext-filter-setup-alist bmkext-gnus-alist-only] 2 (#$ . 210376)]) (defvar anything-c-source-bookmark-info '((name . "Bookmark Info") (init lambda nil (require 'bookmark-extensions) (bookmark-maybe-load-default-file)) (candidates . anything-c-bookmark-info-setup-alist) (filtered-candidate-transformer anything-c-adaptive-sort anything-c-highlight-bookmark) (type . bookmark))) #@49 Specialized filter function for bookmarks info. (defalias 'anything-c-bookmark-info-setup-alist #[nil "\300\301!\207" [anything-c-bmkext-filter-setup-alist bmkext-info-alist-only] 2 (#$ . 210891)]) (defvar anything-c-source-bookmark-files&dirs '((name . "Bookmark Files&Directories") (init lambda nil (require 'bookmark-extensions) (bookmark-maybe-load-default-file)) (candidates . anything-c-bookmark-local-files-setup-alist) (filtered-candidate-transformer anything-c-adaptive-sort anything-c-highlight-bookmark) (type . bookmark))) #@57 Specialized filter function for bookmarks locals files. (defalias 'anything-c-bookmark-local-files-setup-alist #[nil "\300\301!\207" [anything-c-bmkext-filter-setup-alist bmkext-local-file-alist-only] 2 (#$ . 211432)]) (defvar anything-c-source-bookmark-su-files&dirs '((name . "Bookmark Root-Files&Directories") (init lambda nil (require 'bookmark-extensions) (bookmark-maybe-load-default-file)) (candidates . anything-c-bookmark-su-files-setup-alist) (filtered-candidate-transformer anything-c-adaptive-sort anything-c-highlight-bookmark-su) (type . bookmark))) #@58 Specialized filter function for bookmarks su/sudo files. (defalias 'anything-c-bookmark-su-files-setup-alist #[nil "\306\307!\211\310\211\310\211\310 :\203O @\311\n!\211\2053\312\313!\2053\314 \315\216\316 \"*\211\205=\316 \"\211\203H\nB A\211\202\237.\207" [l #1=#:--cl-var-- i isfile istramp issu anything-c-bmkext-filter-setup-alist bmkext-remote-file-alist-only nil bookmark-get-filename boundp tramp-file-name-regexp match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match #2=#:--cl-var-- save-match-data-internal bmkext-su-or-sudo-regexp] 4 (#$ . 212002)]) (defvar anything-c-source-bookmark-ssh-files&dirs '((name . "Bookmark Ssh-Files&Directories") (init lambda nil (require 'bookmark-extensions) (bookmark-maybe-load-default-file)) (candidates . anything-c-bookmark-ssh-files-setup-alist) (filtered-candidate-transformer . anything-c-adaptive-sort) (type . bookmark))) #@54 Specialized filter function for bookmarks ssh files. (defalias 'anything-c-bookmark-ssh-files-setup-alist #[nil "\306\307!\211\310\211\310\211\310 :\203N @\311\n!\211\2053\312\313!\2053\314 \315\216\316 \"*\211\205<\316\317 \"\211\203G\nB A\211\202\237.\207" [l #1=#:--cl-var-- i isfile istramp isssh anything-c-bmkext-filter-setup-alist bmkext-remote-file-alist-only nil bookmark-get-filename boundp tramp-file-name-regexp match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "/ssh:" #2=#:--cl-var-- save-match-data-internal] 4 (#$ . 212973)]) (defvar anything-firefox-bookmark-url-regexp "\\(https\\|http\\|ftp\\|about\\|file\\)://[^ \"]*") (defvar anything-firefox-bookmarks-regexp ">\\([^><]+.[^]\\)") #@48 Guess the default Firefox user directory name. (defalias 'anything-get-firefox-user-init-dir #[nil "\302\303!\304Pr\305\306P!q\210eb\210\307\310\311\312#\205\313`\314 \"\315 \210)\316 P!*\207" [moz-dir moz-user-dir getenv "HOME" "/.mozilla/firefox/" find-file-noselect "profiles.ini" search-forward "Path=" nil t buffer-substring-no-properties point-at-eol kill-buffer file-name-as-directory] 4 (#$ . 213777)]) #@48 Return the path of the Firefox bookmarks file. (defalias 'anything-guess-firefox-bookmark-file #[nil "\300 \301P\207" [anything-get-firefox-user-init-dir "bookmarks.html"] 2 (#$ . 214200)]) #@78 Parse html bookmark FILE and return an alist with (title . url) as elements. (defalias 'anything-html-bookmarks-to-alist #[(file url-regexp bmk-regexp) "\306\211\211\307\310!r q\210\311\216\312\f!\210eb\210\313\314\306\315#\203G\316y\210\313 \306\315#\203.\317\316!\313\306\315#\203;\317\320! B\nB\306y\210\202+\n\237+\207" [title url bookmarks-alist #1=#:temp-buffer file url-regexp nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents re-search-forward "href=\\|^ *
\\([^><]+.[^]\\)") (defvar anything-w3m-bookmark-url-regexp "\\(https\\|http\\|ftp\\|file\\)://[^>]*") (defvar anything-c-w3m-bookmarks-alist nil) #@100 Needs w3m and emacs-w3m. w3m: http://w3m.sourceforge.net/ emacs-w3m: http://emacs-w3m.namazu.org/ (defvar anything-c-source-w3m-bookmarks '((name . "W3m Bookmarks") (init lambda nil (setq anything-c-w3m-bookmarks-alist (anything-html-bookmarks-to-alist w3m-bookmark-file anything-w3m-bookmark-url-regexp anything-w3m-bookmarks-regexp))) (candidates lambda nil (mapcar #'car anything-c-w3m-bookmarks-alist)) (filtered-candidate-transformer anything-c-adaptive-sort anything-c-highlight-w3m-bookmarks) (action ("Browse Url" lambda (candidate) (anything-c-w3m-browse-bookmark candidate)) ("Copy Url" lambda (elm) (kill-new (anything-c-w3m-bookmarks-get-value elm))) ("Browse Url Externally" lambda (candidate) (anything-c-w3m-browse-bookmark candidate t)) ("Delete Bookmark" lambda (candidate) (anything-c-w3m-delete-bookmark candidate)) ("Rename Bookmark" lambda (candidate) (anything-c-w3m-rename-bookmark candidate))) (persistent-action lambda (candidate) (if current-prefix-arg (anything-c-w3m-browse-bookmark candidate t) (anything-c-w3m-browse-bookmark candidate nil t))) (persistent-help . "Open URL with emacs-w3m in new tab / C-u \\[anything-execute-persistent-action]: Open URL with Firefox")) (#$ . 216398)) (defalias 'anything-c-w3m-bookmarks-get-value #[(elm) "\302\303\304\305 \"A#\207" [elm anything-c-w3m-bookmarks-alist replace-regexp-in-string "\"" "" assoc] 6]) (defalias 'anything-c-w3m-browse-bookmark #[(elm &optional use-external new-tab) "\203\305\202 \306\211\306=\205\n \307\f! \"*\207" [use-external fn new-tab arg elm anything-c-browse-url w3m-browse-url anything-c-w3m-bookmarks-get-value] 4]) (defalias 'anything-c-highlight-w3m-bookmarks #[(bookmarks source) "\304\211 :\203! @\305\n\306\307\310\311\n!% B A\211\202 \237+\207" [bookmarks #1=#:--cl-var-- i #2=#:--cl-var-- nil propertize face anything-w3m-bookmarks-face help-echo anything-c-w3m-bookmarks-get-value] 8]) #@47 Delete w3m bookmark from `w3m-bookmark-file'. (defalias 'anything-c-w3m-delete-bookmark #[(elm) "r\302!q\210eb\210\303 \304\305#\203\306 \210`\307 |\210\310 \210\311 \210\312 )\207" [w3m-bookmark-file elm find-file-literally re-search-forward nil t beginning-of-line line-end-position delete-blank-lines save-buffer kill-buffer] 4 (#$ . 218322)]) #@45 Rename w3m bookmark in `w3m-bookmark-file'. (defalias 'anything-c-w3m-rename-bookmark #[(elm) "\304\305\306#\307\310 \"r\311 !q\210eb\210\312\313P\314\315#\203+`Sb\210\316 G[!\210\nc\210\317 \210\320 +\207" [elm old-title new-title w3m-bookmark-file replace-regexp-in-string ">" "" read-string "NewTitle: " find-file-literally re-search-forward "<" nil t delete-char save-buffer kill-buffer] 4 (#$ . 218678)]) (defvar anything-c-source-elisp-library-scan '((name . "Elisp libraries (Scan)") (init anything-c-elisp-library-scan-init) (candidates-in-buffer) (action ("Find library" lambda (candidate) (find-file (find-library-name candidate))) ("Find library other window" lambda (candidate) (find-file-other-window (find-library-name candidate))) ("Load library" lambda (candidate) (load-library candidate))))) #@30 Init anything buffer status. (defalias 'anything-c-elisp-library-scan-init #[nil "\304\305!\306 r q\210\307\211\205$ @\310\311\n\"c\210 A\211\204\307-\207" [library-list anything-buffer library --dolist-tail-- anything-candidate-buffer global anything-c-elisp-library-scan-list nil format "%s\n"] 4 (#$ . 219499)]) #@116 Do completion for file names passed to `locate-file'. DIRS is directory to search path. STRING is string to match. (defalias 'anything-c-elisp-library-scan-list #[(&optional dirs string) "\204 \n\204\f\306\307\n!\310\311\312 !\"\313\211\313\211\203\227@\211\2044\203A\314\"\315!\203\216\316\317\n!\"\313\211\203\215@\203jP\202l\320 \"\203\204 \f\235\203\200\f\210\202\204 \fBA\211\204X*A\211\204'*\f,\207" [dirs load-path string load-file-rep-suffixes names name "" file-name-directory format "^.*\\.el%s$" regexp-opt nil expand-file-name file-directory-p file-name-all-completions file-name-nondirectory string-match match-regexp string-dir dir --dolist-tail-- default-directory file] 6 (#$ . 219831)]) (defvar anything-c-imenu-delimiter " / ") (defvar anything-c-imenu-index-filter nil) (make-variable-buffer-local 'anything-c-imenu-index-filter) (defvar anything-c-cached-imenu-alist nil) (make-variable-buffer-local 'anything-c-cached-imenu-alist) (defvar anything-c-cached-imenu-candidates nil) (make-variable-buffer-local 'anything-c-cached-imenu-candidates) (defvar anything-c-cached-imenu-tick nil) (byte-code "\301\302!\210\303\301\207" [imenu-auto-rescan make-variable-buffer-local anything-c-cached-imenu-tick t] 2) #@31 Create candidates with ENTRY. (defalias 'anything-imenu-create-candidates #[(entry) "A<\203\f\301\302A\"\207C\207" [entry mapcan #[(sub) "A:\203 \303\304\305!\"\207 @\n@QC\207" [sub entry anything-c-imenu-delimiter mapcar #[(subentry) "@ \nQ\207" [entry anything-c-imenu-delimiter subentry] 3] anything-imenu-create-candidates] 4]] 3 (#$ . 221142)]) #@27 See (info "(emacs)Imenu") (defvar anything-c-source-imenu '((name . "Imenu") (init lambda nil (require 'imenu)) (candidates . anything-c-imenu-candidates) (persistent-action lambda (elm) (anything-c-imenu-default-action elm) (unless (fboundp 'semantic-imenu-tag-overlay) (anything-match-line-color-current-line))) (persistent-help . "Show this entry") (action . anything-c-imenu-default-action)) (#$ . 221507)) (defalias 'anything-c-imenu-candidates #[nil "rq\210\305 \n =\203 \202 \306 \306\307\310\217\311\312 \"\211*\207" [anything-current-buffer tick anything-c-cached-imenu-tick anything-c-cached-imenu-candidates imenu--index-alist buffer-modified-tick nil (byte-code "\303\304\305  \203 !\202)\211\"\207" [index anything-c-imenu-index-filter anything-c-cached-imenu-alist mapcan anything-imenu-create-candidates imenu--make-index-alist] 4) ((error)) mapcar #[(x) ";\203\207@\207" [x] 1]] 3]) (byte-code "\300\211\207" [imenu-default-goto-function] 2) #@51 The default action for `anything-c-source-imenu'. (defalias 'anything-c-imenu-default-action #[(elm) "\306 \"\n\211\307\211\203 @\310 \" A\211\204*\311 !*\207" [elm anything-c-imenu-delimiter anything-c-cached-imenu-alist alist path --dolist-tail-- split-string nil assoc imenu] 4 (#$ . 222494)]) (defvar anything-c-ctags-modes '(c-mode c++-mode awk-mode csharp-mode java-mode javascript-mode lua-mode makefile-mode pascal-mode perl-mode cperl-mode php-mode python-mode scheme-mode sh-mode slang-mode sql-mode tcl-mode)) (defalias 'anything-c-source-ctags-init #[nil "\205q \n>\205q\306 \205qr\307\310!q\210\311\312\313 \"\203$\314\315 \"\202(\314\316 \"\317p#\210eb\210\320y\210e`|\210\317\211m\204o\321\322\323 \324#\203o`\211\321\325\323 \324#S{\326 \210\314\327 \"c\210\321\330\323 \324#\210`S\323 |\210\331y\210\202:+\317\207" [buffer-file-name major-mode anything-c-ctags-modes anything-buffer-file-name lineno-start lineno anything-current-buffer-is-modified anything-candidate-buffer local call-process-shell-command string-match "\\.el\\.gz$" format "ctags -e -u -f- --language-force=lisp --fields=n =(zcat %s) " "ctags -e -u -f- --fields=n %s " nil 2 search-forward "" point-at-eol t "," beginning-of-line "%5s:" "" 1] 6]) #@55 Needs Exuberant Ctags. http://ctags.sourceforge.net/ (defvar anything-c-source-ctags '((name . "Exuberant ctags") (init . anything-c-source-ctags-init) (candidates-in-buffer) (adjust) (type . line)) (#$ . 223761)) #@23 Etags file directory. (defvar anything-c-etags-tag-file-dir nil (#$ . 223982)) #@55 Store the last modification time of etags files here. (defvar anything-c-etags-mtime-alist nil (#$ . 224067)) #@59 Cache content of etags files used here for faster access. (defvar anything-c-etags-cache (make-hash-table :test 'equal) (#$ . 224183)) #@41 Return the path of etags file if found. (defalias 'anything-c-etags-get-tag-file #[(&optional directory) "\305\206 !\211\205\n\306\f\n\")\207" [directory default-directory current-dir anything-c-etags-tag-file-dir anything-c-etags-tag-file-name anything-c-etags-find-tag-file-directory expand-file-name] 4 (#$ . 224324)]) #@103 Try to find the directory containing tag file. If not found in CURRENT-DIR search in upper directory. (defalias 'anything-c-etags-find-tag-file-directory #[(current-dir) "\302\303K\304\216\303M\210\305\306\215+\207" [#1=#:vnew #2=#:old #[(dir) "\303 \"\211;\205\304\n!\205\305\n!)\207" [anything-c-etags-tag-file-name dir tag-path expand-file-name file-regular-p file-readable-p] 4] file-exists\? ((byte-code "\301M\207" [#2# file-exists\?] 2)) --cl-block-nil-- (byte-code "\303\304 !\204\"\nU\203\305\306\307\"\210\202T\310 \311P!\202 )\207" [count current-dir anything-c-etags-tag-file-search-limit 0 file-exists\? throw --cl-block-nil-- nil expand-file-name "../"] 3)] 2 (#$ . 224660)]) #@53 Create header name for this anything etags session. (defalias 'anything-c-source-etags-header-name #[(x) "\301rq\210\302 )P\207" [anything-current-buffer "Etags in " anything-c-etags-get-tag-file] 2 (#$ . 225378)]) #@67 Create the `anything-buffer' based on contents of etags tag FILE. (defalias 'anything-c-etags-create-buffer '(macro . #[(file) "\301\302D\303B\304BB\207" [file let* tag-fname (max (split (with-current-buffer (find-file-noselect tag-fname) (prog1 (split-string (buffer-string) "\n" 'omit-nulls) (setq max (line-number-at-pos (point-max))) (kill-buffer)))) (progress-reporter (make-progress-reporter "Loading tag file..." 0 max))) ((loop with fname with cand for i in split for count from 0 for elm = (unless (string-match "^\f" i) (anything-aif (string-match "" i) (substring i 0 it) i)) do (cond ((and elm (string-match "^\\(.+\\),[0-9]+" elm)) (setq fname (match-string 1 elm))) (elm (setq cand (concat fname ": " elm))) (t (setq cand nil))) when cand do (progn (insert (concat cand "\n")) (progress-reporter-update progress-reporter count))))] 3 (#$ . 225600)])) #@102 Feed `anything-buffer' using `anything-c-etags-cache' or tag file. If no entry in cache, create one. (defalias 'anything-c-etags-init #[nil "\306 \211\205r\307\310!q\210\311 \"\211\203\nc\202\312r\313 !q\210\314\315 \316\317#\320d!\321 \210)\322\323\324\f# \312\211!\" #\312$\324%\312&#:\203\317#@$\325\326$\"?\205v\325\327$\"\211\203s$\324\nO\202u$)\211&\203\216\325\330&\"\203\216\331\332&\"!\202\241&\203\236!\333&Q\"\202\241\312\"\"\203\302\"\316Pc\210 %\211\247\203\274\211@Y\205\300\334\"\266#A#%T%\202M.\n\335\315 #\210\336'\"\211\203\352\n\337!\241\202\337!B\211('\235\203\375'\202('B\211'))*)\207" [tagfile anything-c-etags-cache it tag-fname max split anything-c-etags-get-tag-file anything-candidate-buffer global gethash nil find-file-noselect split-string buffer-string "\n" omit-nulls line-number-at-pos kill-buffer make-progress-reporter "Loading tag file..." 0 string-match "^\f" "" "^\\(.+\\),[0-9]+" match-string 1 ": " progress-reporter-do-update puthash assoc anything-c-etags-mtime progress-reporter fname cand #1=#:--cl-var-- i count elm anything-c-etags-mtime-alist #2=#:x] 6 (#$ . 226474)]) #@28 Anything source for Etags. (defvar anything-c-source-etags-select '((name . "Etags") (header-name . anything-c-source-etags-header-name) (init . anything-c-etags-init) (candidates-in-buffer) (search anything-c-etags-search-fn) (mode-line . anything-etags-mode-line-string) (action . anything-c-etags-default-action) (persistent-action lambda (candidate) (anything-c-etags-default-action candidate) (anything-match-line-color-current-line))) (#$ . 227679)) #@55 Search function for `anything-c-source-etags-select'. (defalias 'anything-c-etags-search-fn #[(pattern) "\303\203\f\304 \n\"\202 \n\305\306#\207" [anything-c-etags-use-regexp-search anything-c-etags-search-regexp pattern re-search-forward format nil t] 4 (#$ . 228141)]) #@52 Anything default action to jump to an etags entry. (defalias 'anything-c-etags-default-action #[(candidate) "\305\306\"\307 @\n\" \211A@\262\310 !\210eb\210\311\f\312\313#\210\314\224b+\207" [candidate split anything-c-etags-tag-file-dir fname elm split-string ": " expand-file-name find-file search-forward nil t 0] 4 (#$ . 228421)]) #@43 Last modification time of etags tag FILE. (defalias 'anything-c-etags-mtime #[(file) "\301\302!8\211A@\207" [file 5 file-attributes] 3 (#$ . 228767)]) #@82 Check if tag FILE have been modified in this session. If FILE is nil return nil. (defalias 'anything-c-etags-file-modified-p #[(file) "\205\303 \"\211\205\n\304!U?)\207" [file anything-c-etags-mtime-alist last-modif assoc-default anything-c-etags-mtime] 4 (#$ . 228925)]) (defvar anything-semantic-candidates nil) (defalias 'anything-semantic-construct-candidates #[(tags depth) "\301\302\303\304#\205\305\306\307\310\"\"\207" [tags require semantic nil t apply append mapcar #[(tag) "<\205A\304!\305!\211;\203\n\306\230\204*\n\307\230\204* \310=\204* \311=\205@\312 \313_\314\"\315\316\317#PB\320\321! T\"B*\207" [tag class type depth semantic-tag-type semantic-tag-class "class" "namespace" function variable make-string 2 32 semantic-format-tag-summarize nil t anything-semantic-construct-candidates semantic-tag-components] 6]] 5]) (defalias 'anything-semantic-default-action #[(candidate) "\303 \"A\304\n!)\207" [candidate anything-semantic-candidates tag assoc semantic-go-to-tag] 3]) (defvar anything-c-source-semantic '((name . "Semantic Tags") (init lambda nil (setq anything-semantic-candidates (ignore-errors (anything-semantic-construct-candidates (semantic-fetch-tags) 0)))) (candidates lambda nil (if anything-semantic-candidates (mapcar 'car anything-semantic-candidates))) (persistent-action lambda (elm) (anything-semantic-default-action elm) (anything-match-line-color-current-line)) (persistent-help . "Show this entry") (action . anything-semantic-default-action) "Needs semantic in CEDET.\n\nsemantic: http://cedet.sourceforge.net/semantic.shtml\nCEDET: http://cedet.sourceforge.net/")) #@95 Needs simple-call-tree.el. http://www.emacswiki.org/cgi-bin/wiki/download/simple-call-tree.el (defvar anything-c-source-simple-call-tree-functions-callers '((name . "Function is called by") (init . anything-c-simple-call-tree-functions-callers-init) (multiline) (candidates . anything-c-simple-call-tree-candidates) (persistent-action . anything-c-simple-call-tree-persistent-action) (persistent-help . "Show function definitions by rotation") (action ("Find definition selected by persistent-action" . anything-c-simple-call-tree-find-definition))) (#$ . 230567)) (defvar anything-c-simple-call-tree-tick nil) (make-variable-buffer-local 'anything-c-simple-call-tree-tick) (defalias 'anything-c-simple-call-tree-analyze-maybe #[nil "\301 =?\205\302 \210\301 \211\207" [anything-c-simple-call-tree-tick buffer-chars-modified-tick simple-call-tree-analyze] 2]) (defalias 'anything-c-simple-call-tree-init-base #[#'message "\306\307!\210\310 \205G\311 \210 !r\312\313!q\210\n\314\211\205F\f@\315\316\317 A\320#P @ \315\230\2038\321\2029 \322\261\210)\fA\211\204\314,\207" [function simple-call-tree-alist list entry --dolist-tail-- funcs require simple-call-tree anything-current-buffer-is-modified anything-c-simple-call-tree-analyze-maybe anything-candidate-buffer local nil " " mapconcat identity "\n " " no functions." "\n\n" message] 6]) (defalias 'anything-c-simple-call-tree-functions-callers-init #[nil "\300\301\302\"\207" [anything-c-simple-call-tree-init-base simple-call-tree-invert " is called by\n"] 3]) (defalias 'anything-c-simple-call-tree-candidates #[nil "r\300 q\210\301\302 \303\")\207" [anything-candidate-buffer split-string buffer-string "\n\n"] 3]) (defvar anything-c-simple-call-tree-related-functions nil) (defvar anything-c-simple-call-tree-function-index 0) (defalias 'anything-c-simple-call-tree-persistent-action #[(candidate) "\304=\204\305\306\307\310\311\312 #\313\"\"\314 T\315 !\207" [last-command candidate anything-c-simple-call-tree-related-functions anything-c-simple-call-tree-function-index anything-execute-persistent-action delete "no functions." split-string replace-regexp-in-string " \\| is called by\\| calls " "" "\n" -1 anything-c-simple-call-tree-find-definition] 7]) (defalias 'anything-c-simple-call-tree-find-definition #[(candidate) "\302\303\304 G\" 8!!\207" [anything-c-simple-call-tree-function-index anything-c-simple-call-tree-related-functions find-function intern mod] 5]) #@95 Needs simple-call-tree.el. http://www.emacswiki.org/cgi-bin/wiki/download/simple-call-tree.el (defvar anything-c-source-simple-call-tree-callers-functions '((name . "Function calls") (init . anything-c-simple-call-tree-callers-functions-init) (multiline) (candidates . anything-c-simple-call-tree-candidates) (persistent-action . anything-c-simple-call-tree-persistent-action) (persistent-help . "Show function definitions by rotation") (action ("Find definition selected by persistent-action" . anything-c-simple-call-tree-find-definition))) (#$ . 233037)) (defalias 'anything-c-simple-call-tree-callers-functions-init #[nil "\300\301\302\"\207" [anything-c-simple-call-tree-init-base identity " calls \n"] 3]) (defvar anything-c-auto-document-data nil) (make-variable-buffer-local 'anything-c-auto-document-data) #@130 List Commands and Options with doc. It needs auto-document.el . http://www.emacswiki.org/cgi-bin/wiki/download/auto-document.el (defvar anything-c-source-commands-and-options-in-file '((name . "Commands/Options in file") (header-name lambda (x) (format "Commands/Options in %s" (buffer-local-value 'buffer-file-name anything-current-buffer))) (candidates . anything-command-and-options-candidates) (multiline) (action . imenu)) (#$ . 233859)) (defalias 'anything-command-and-options-candidates #[nil "rq\210\306\307\310\311#\203 \312=\203\313 \204\n\204 \204#\314\311!\210\315!\211G\316U\2036\f\211A\242\202=\317\320\310\fGD\"\f@\321 \310\211\310\211 !:\203\215@\211\211A\242\322! \323\324\325 \326\"#\327!#\330 \"B!B!A\211\202T!\237-\330\331 \"A#$\310\211%\310\211&'\310\211()$:\203\374$@\211'\211A'\242%'\211A'\242'@&\322%!(\323\332\325(\326*#\327!\333&!$\330(#\"B)B)$A\211$\202\260)\237.\"+\n)\207" [anything-current-buffer major-mode anything-c-auto-document-data imenu--index-alist #1=#:--cl-rest-- commands require auto-document nil t emacs-lisp-mode anything-current-buffer-is-modified imenu--make-index-alist adoc-construct 2 signal wrong-number-of-arguments append symbol-name format "Command: %s\n %s" propertize face adoc-first-line assoc "Variables" "Option: %s\n %s\n default = %s" adoc-prin1-to-string options #2=#:--cl-var-- doc command cmdname #3=#:--cl-var-- font-lock-function-name-face var-alist #4=#:--cl-var-- option default #5=#:--cl-var-- optname #6=#:--cl-var-- font-lock-variable-name-face] 9]) #@27 See (info "(emacs)Faces") (defvar anything-c-source-customize-face '((name . "Customize Face") (init lambda nil (unless (anything-candidate-buffer) (save-selected-window (list-faces-display)) (anything-candidate-buffer (get-buffer "*Faces*")))) (candidates-in-buffer) (get-line . buffer-substring) (action lambda (line) (customize-face (intern (car (split-string line))))) (requires-pattern . 3)) (#$ . 235480)) (defvar anything-c-source-colors '((name . "Colors") (init lambda nil (unless (anything-candidate-buffer) (save-selected-window (list-colors-display)) (anything-candidate-buffer (get-buffer "*Colors*")))) (candidates-in-buffer) (get-line . buffer-substring) (action ("Copy Name" lambda (candidate) (kill-new (anything-c-colors-get-name candidate))) ("Copy RGB" lambda (candidate) (kill-new (anything-c-colors-get-rgb candidate))) ("Insert Name" lambda (candidate) (with-anything-current-buffer (insert (anything-c-colors-get-name candidate)))) ("Insert RGB" lambda (candidate) (with-anything-current-buffer (insert (anything-c-colors-get-rgb candidate))))))) #@17 Get color name. (defalias 'anything-c-colors-get-name #[(candidate) "\302\303\304\305\306!rq\210\307\216\310 !c\210eb\210\311\312!\210`d|\210\313 +#\207" [#1=#:temp-buffer candidate replace-regexp-in-string " " "" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) capitalize search-forward-regexp "\\s-\\{2,\\}" buffer-string] 5 (#$ . 236557)]) #@16 Get color RGB. (defalias 'anything-c-colors-get-rgb #[(candidate) "\302\303\304\305\306!rq\210\307\216\310 !c\210db\210\311\312!\210`e|\210\313 +#\207" [#1=#:temp-buffer candidate replace-regexp-in-string " " "" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) capitalize search-backward-regexp "\\s-\\{2,\\}" buffer-string] 5 (#$ . 236970)]) #@97 Source for retrieving files matching the current input pattern with the tracker desktop search. (defvar anything-c-source-tracker-search '((name . "Tracker Search") (candidates lambda nil (start-process "tracker-search-process" nil "tracker-search" anything-pattern)) (type . file) (requires-pattern . 3) (delayed)) (#$ . 237382)) #@74 Source for retrieving files via Spotlight's command line utility mdfind. (defvar anything-c-source-mac-spotlight '((name . "mdfind") (candidates lambda nil (start-process "mdfind-process" nil "mdfind" anything-pattern)) (type . file) (requires-pattern . 3) (delayed)) (#$ . 237719)) (defvar anything-c-source-picklist '((name . "Picklist") (candidates lambda nil (mapcar 'car picklist-list)) (type . file))) #@53 Source for browse and insert contents of kill-ring. (defvar anything-c-source-kill-ring (byte-code "\301\302\303\304\305\306B\307BBBBBB\207" [anything-kill-ring-map (name . "Kill Ring") (init lambda nil (anything-attrset 'last-command last-command)) (candidates . anything-c-kill-ring-candidates) (filtered-candidate-transformer anything-c-kill-ring-transformer) (action . anything-c-kill-ring-action) keymap ((last-command) (migemo) (multiline))] 7) (#$ . 238133)) (defalias 'anything-c-kill-ring-candidates #[nil "\305\306\307#\310\211 :\203+ @\211G\fW\204$\311\312\n\"\204$\n B A\211\202 \237+\207" [kill-ring #1=#:--cl-var-- kill #2=#:--cl-var-- anything-kill-ring-threshold anything-fast-remove-dups :test equal nil string-match "^[\\s\\t]+$"] 5]) #@78 Display only the `anything-c-kill-ring-max-lines-number' lines of candidate. (defalias 'anything-c-kill-ring-transformer #[(candidates source) "\306\211\306 :\203` @\307\310!r q\210\311\216\nc\210\312ed\"+ \203U  V\203U\307\310!rq\210\313\216\nc\210eb\210e\212 y\210`){\314P+\nB\fB\202Y\n\fB A\211\202 \f\237,\207" [candidates #1=#:--cl-var-- i nlines #2=#:--cl-var-- #3=#:temp-buffer nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#3# buffer-name kill-buffer] 2)) count-lines ((byte-code "\301!\203\n\302!\210\301\207" [#4=#:temp-buffer buffer-name kill-buffer] 2)) "[...]" anything-c-kill-ring-max-lines-number #4#] 4 (#$ . 238905)]) #@133 Insert STR in `kill-ring' and set STR to the head. If this action is executed just after `yank', replace with STR as yanked string. (defalias 'anything-c-kill-ring-action #[(str) "\306 \"\307\310!\311=\204\312!\210\202\\\313`\314\313!W\n\203.\f\206%\315`\314\313!\"\210\2029\f\2063\315\314\313!`\"\210\316\317 `p\223\210\312!\210\320\321 \313#\210\n\203[\314\313!\317 `p\223\210b\210*\322!\207" [str kill-ring before inhibit-read-only yank-undo-function yank-window-start delete anything-attr last-command yank insert-for-yank t mark delete-region nil mark-marker set-window-start selected-window kill-new] 4 (#$ . 239608)]) (defalias 'anything-c-source-mark-ring-candidates #[nil "\306\307K\310\216\307M\210r\nq\210\311 \203\312 B\202 \313\f\f\313\211 \313\f:\203P\f@ \307 !\211 \235\204G C\244\fA\211\f\202, .\n\207" [#1=#:vnew #2=#:old anything-current-buffer mark-ring marks recip #[(pos) "\212b\210\302 \210\303\304\301!\305\"@\211\306\230\203\307\310\311\312 #*\207" [pos line beginning-of-line split-string thing-at-point "[\n ]" "" "" format "%7d: %s" line-number-at-pos] 5] get-marks ((byte-code "\301M\207" [#2# get-marks] 2)) mark mark-marker nil #3=#:--cl-var-- i m] 3]) (defvar anything-mark-ring-cache nil) (defvar anything-c-source-mark-ring '((name . "mark-ring") (init lambda nil (setq anything-mark-ring-cache (ignore-errors (anything-c-source-mark-ring-candidates)))) (candidates lambda nil (anything-aif anything-mark-ring-cache it)) (action ("Goto line" lambda (candidate) (anything-goto-line (string-to-number candidate)))) (persistent-action lambda (candidate) (anything-goto-line (string-to-number candidate)) (anything-match-line-color-current-line)) (persistent-help . "Show this line"))) (defvar anything-c-source-global-mark-ring '((name . "global-mark-ring") (candidates . anything-c-source-global-mark-ring-candidates) (action ("Goto line" lambda (candidate) (let ((items (split-string candidate ":"))) (anything-c-switch-to-buffer (second items)) (anything-goto-line (string-to-number (car items)))))) (persistent-action lambda (candidate) (let ((items (split-string candidate ":"))) (anything-c-switch-to-buffer (second items)) (anything-goto-line (string-to-number (car items))) (anything-match-line-color-current-line))) (persistent-help . "Show this line"))) (defalias 'anything-c-source-global-mark-ring-candidates #[nil "\306\307K\310\216\307M\210\n\311 \311\211\311 :\203V @\312\313\314\315\316!\"\"\2064\316!??\205<\307!\211\203O\f\235\204O\fC\244 A\211\202\f. \207" [#1=#:vnew #2=#:old global-mark-ring marks recip #3=#:--cl-var-- #[(m) "r\302!q\210b\210\303 \210\304\211\305\230\203\306\202!\307\310\301!\311\"@\312\313\314 \302! $*\207" [m line marker-buffer beginning-of-line nil "" "" split-string thing-at-point "[\n ]" format "%7d:%s: %s" line-number-at-pos] 6] buf-fn ((byte-code "\301M\207" [#2# buf-fn] 2)) nil string-match "^ " format "%s" marker-buffer i gm] 7]) #@31 See (info "(emacs)Registers") (defvar anything-c-source-register '((name . "Registers") (candidates . anything-c-register-candidates) (action-transformer . anything-c-register-action-transformer) (multiline) (action)) (#$ . 242652)) #@56 Collecting register contents and appropriate commands. (defalias 'anything-c-register-candidates #[nil "\306\211\306\211\3061 :\203 @\211\211A\242\307 !\n\247\203-\310\n!\311\312E\202\313\n!\203T\314\n!\2112\204A\315C\202P\316\3172!\320\310\321\n!!R\322\311E)\202\n:\203f\323\n@!\203f\324\322D\202\n:\203x\325\n@!\203x\326\322D\202\n:\203\220\n@\327=\203\220\330\331\nA!\332Q\322D\202\n:\203\257\n@\333=\203\257\334\nA@\320\310\nAA@!\332\260\322D\202\n:\203\323\335\336\nG\"3\335\3373\340\341\342\n@C\343#\344 \345Z\"#)\311D\202\n;\203\366\346\n\347\nG4^#\nG4V\203\355\350\202\356\351P\311\352\353F\202\354\n!\203\355\356D\202\357\335\360\f @# ABB1B1 A\211\2021\237.\207" [register-alist #1=#:--cl-var-- val char key string-actions nil single-key-description int-to-string insert-register increment-register markerp marker-buffer "a marker in no buffer" "a buffer position:" buffer-name ", position " marker-position jump-to-register window-configuration-p "window configuration." frame-configuration-p "frame configuration." file "file:" prin1-to-string "." file-query "file:a file-query reference: file " format "%4d" "%s: %s\n" truncate-string-to-width mapconcat identity "^J" window-width 15 substring-no-properties 0 "[...]" "" append-to-register prepend-to-register vectorp "Undo-tree entry." undo-tree-restore-state-from-register "GARBAGE!" "register %3s: %s" #2=#:--cl-var-- buf lines anything-c-register-max-offset] 9 (#$ . 242891)]) #@45 Decide actions by the contents of register. (defalias 'anything-c-register-action-transformer #[(actions register-and-functions) "\306 A\307\211\307\n:\203'\n@\211\236\211\203 \fA B\nA\211\202\f \237-\207" [func-actions register-and-functions #1=#:--cl-var-- func cell #2=#:--cl-var-- ((insert-register "Insert Register" lambda (c) (insert-register (car c))) (jump-to-register "Jump to Register" lambda (c) (jump-to-register (car c))) (append-to-register "Append Region to Register" lambda (c) (append-to-register (car c) (region-beginning) (region-end))) (prepend-to-register "Prepend Region to Register" lambda (c) (prepend-to-register (car c) (region-beginning) (region-end))) (increment-register "Increment Prefix Arg to Register" lambda (c) (increment-register anything-current-prefix-arg (car c))) (undo-tree-restore-state-from-register "Restore Undo-tree register" (lambda (c) (and (fboundp 'undo-tree-restore-state-from-register) (undo-tree-restore-state-from-register (car c)))))) nil] 3 (#$ . 244405)]) #@47 Collect candidates for latex math completion. (defalias 'anything-c-latex-math-candidates #[nil "\211AA\262\306\211\306 :\203T @\211\306\211 \f :\203B @ \307 !\203; \310H \311HB\fB\f A\211\202\f\237+\312 !\f\244 A\211\202\f\237,\207" [LaTeX-math-menu #1=#:--cl-var-- i elm #2=#:--cl-var-- #3=#:--cl-var-- nil vectorp 0 1 reverse s #4=#:--cl-var--] 4 (#$ . 245437)]) (defvar anything-c-source-latex-math '((name . "Latex Math Menu") (init lambda nil (with-anything-current-buffer (LaTeX-math-mode 1))) (candidate-number-limit . 9999) (candidates . anything-c-latex-math-candidates) (action lambda (candidate) (call-interactively candidate)))) #@47 Show TODO/FIXME/DRY comments in current file. (defvar anything-c-source-fixme '((name . "TODO/FIXME/DRY comments") (headline . "^.*\\<\\(TODO\\|FIXME\\|DRY\\)\\>.*$") (adjust) (recenter)) (#$ . 246113)) #@89 Show RD headlines. RD is Ruby's POD. http://en.wikipedia.org/wiki/Ruby_Document_format (defvar anything-c-source-rd-headline '((name . "RD HeadLine") (headline "^= \\(.+\\)$" "^== \\(.+\\)$" "^=== \\(.+\\)$" "^==== \\(.+\\)$") (condition memq major-mode '(rdgrep-mode rd-mode)) (migemo) (subexp . 1)) (#$ . 246322)) #@44 Show Oddmuse headlines, such as EmacsWiki. (defvar anything-c-source-oddmuse-headline '((name . "Oddmuse HeadLine") (headline "^= \\(.+\\) =$" "^== \\(.+\\) ==$" "^=== \\(.+\\) ===$" "^==== \\(.+\\) ====$") (condition memq major-mode '(oddmuse-mode yaoddmuse-mode)) (migemo) (subexp . 1)) (#$ . 246645)) #@43 Show DEFUN/DEFVAR in Emacs C source file. (defvar anything-c-source-emacs-source-defun '((name . "Emacs Source DEFUN") (headline . "DEFUN\\|DEFVAR") (condition string-match "/emacs2[0-9].+/src/.+c$" (or buffer-file-name ""))) (#$ . 246955)) #@121 Show descriptions (desc) in Emacs Lisp Expectations. http://www.emacswiki.org/cgi-bin/wiki/download/el-expectations.el (defvar anything-c-source-emacs-lisp-expectations '((name . "Emacs Lisp Expectations") (headline . "(desc[ ]\\|(expectations") (condition eq major-mode 'emacs-lisp-mode)) (#$ . 247203)) #@204 Show top-level forms, level 4 comments and linkd stars (optional) in Emacs Lisp. linkd.el is optional because linkd stars are extracted by regexp. http://www.emacswiki.org/cgi-bin/wiki/download/linkd.el (defvar anything-c-source-emacs-lisp-toplevels '((name . "Emacs Lisp Toplevel / Level 3 Comment / Linkd Star / interactive") (headline . "^(\\|(@\\*\\|^;;;\\|(interactive\\b") (get-line . buffer-substring) (condition eq major-mode 'emacs-lisp-mode) (adjust)) (#$ . 247516)) (defvar anything-yaoddmuse-use-cache-file nil) (defvar anything-c-yaoddmuse-cache-file "~/.emacs.d/yaoddmuse-cache.el") (defvar anything-c-yaoddmuse-ew-cache nil) (defalias 'anything-yaoddmuse-get-candidates #[nil "\203 \302\303\304\217\207\305\306!\210\307\310 \"\207" [anything-yaoddmuse-use-cache-file yaoddmuse-pages-hash nil (byte-code "\204 \303 !\210\304\305\n\"\207" [anything-c-yaoddmuse-ew-cache anything-c-yaoddmuse-cache-file yaoddmuse-pages-hash load gethash "EmacsWiki"] 3) ((error)) yaoddmuse-update-pagename t gethash "EmacsWiki"] 3]) #@75 Needs yaoddmuse.el. http://www.emacswiki.org/emacs/download/yaoddmuse.el (defvar anything-c-source-yaoddmuse-emacswiki-edit-or-view '((name . "Yaoddmuse Edit or View (EmacsWiki)") (candidates . anything-yaoddmuse-get-candidates) (action ("Edit page" lambda (candidate) (yaoddmuse-edit "EmacsWiki" candidate)) ("Browse page" lambda (candidate) (yaoddmuse-browse-page "EmacsWiki" candidate)) ("Browse page other window" lambda (candidate) (if (one-window-p) (split-window-vertically)) (yaoddmuse-browse-page "EmacsWiki" candidate)) ("Browse diff" lambda (candidate) (yaoddmuse-browse-page-diff "EmacsWiki" candidate)) ("Copy URL" lambda (candidate) (kill-new (yaoddmuse-url "EmacsWiki" candidate)) (message "Have copy page %s's URL to yank." candidate)) ("Create page" lambda (candidate) (yaoddmuse-edit "EmacsWiki" anything-input)) ("Update cache" lambda (candidate) (if anything-yaoddmuse-use-cache-file (progn (anything-yaoddmuse-cache-pages t) (setq anything-c-yaoddmuse-ew-cache (gethash "EmacsWiki" yaoddmuse-pages-hash))) (yaoddmuse-update-pagename)))) (action-transformer anything-c-yaoddmuse-action-transformer)) (#$ . 248556)) #@75 Needs yaoddmuse.el. http://www.emacswiki.org/emacs/download/yaoddmuse.el (defvar anything-c-source-yaoddmuse-emacswiki-post-library '((name . "Yaoddmuse Post library (EmacsWiki)") (init anything-yaoddmuse-init) (candidates-in-buffer) (action ("Post library and Browse" lambda (candidate) (yaoddmuse-post-file (find-library-name candidate) "EmacsWiki" (file-name-nondirectory (find-library-name candidate)) nil t)) ("Post library" lambda (candidate) (yaoddmuse-post-file (find-library-name candidate) "EmacsWiki" (file-name-nondirectory (find-library-name candidate)))))) (#$ . 249698)) #@55 Allow the use of `install-elisp' only on elisp files. (defalias 'anything-c-yaoddmuse-action-transformer #[(actions candidate) "\302\303\"\203\f\304 \305\"\207 \207" [candidate actions string-match ".el$" append (("Install Elisp" lambda (elm) (install-elisp-from-emacswiki elm)))] 3 (#$ . 250291)]) #@128 Fetch the list of files on emacswiki and create cache file. If load is non--nil load the file and feed `yaoddmuse-pages-hash'. (defalias 'anything-yaoddmuse-cache-pages #[(&optional load) "\306 \210\212\307!\210\310 \210\311c\210\312\313 \"\314\n:\203+\n@\315 @\316Qc\210\nA\211\202*\317c\210\320 \210\321p!\210\f\204> \205A\305!)\207" [anything-c-yaoddmuse-cache-file yaoddmuse-pages-hash #1=#:--cl-var-- i current-prefix-arg load yaoddmuse-update-pagename find-file erase-buffer "(puthash \"EmacsWiki\" '(" gethash "EmacsWiki" nil "(\"" "\") " ") yaoddmuse-pages-hash)\n" save-buffer kill-buffer] 4 (#$ . 250599) nil]) #@30 Init anything buffer status. (defalias 'anything-yaoddmuse-init #[nil "\304\305!\306 r q\210\307\211\203# @\310\311\n\"c\210 A\211\204*\312\307ed#+\207" [library-list anything-buffer library --dolist-tail-- anything-candidate-buffer global yaoddmuse-get-library-list nil format "%s\n" sort-lines] 5 (#$ . 251237)]) (defvar anything-c-source-eev-anchor '((name . "Anchors") (candidates lambda nil (ignore-errors (with-anything-current-buffer (loop initially (goto-char (point-min)) while (re-search-forward (format ee-anchor-format "\\([^.].+\\)") nil t) for anchor = (match-string-no-properties 1) collect (cons (format "%5d:%s" (line-number-at-pos (match-beginning 0)) (format ee-anchor-format anchor)) anchor))))) (persistent-action lambda (item) (ee-to item) (anything-match-line-color-current-line)) (migemo) (persistent-help . "Show this entry") (action ("Goto link" . ee-to)))) #@157 Show Org headlines. org-mode is very very much extended text-mode/outline-mode. See (find-library "org.el") See http://orgmode.org for the latest version. (defvar anything-c-source-org-headline (byte-code "\300\301\302\303\304\305\306\"\"B\307BB\207" [(name . "Org HeadLine") headline mapcar #[(num) "\301\302\"\207" [num format "^\\*\\{%d\\} \\(.+?\\)\\([ ]*:[a-zA-Z0-9_@:]+:\\)?[ ]*$"] 3] number-sequence 1 8 ((condition eq major-mode 'org-mode) (migemo) (subexp . 1) (persistent-action lambda (elm) (anything-c-action-line-goto elm) (org-cycle)) (action-transformer lambda (actions candidate) '(("Go to Line" . anything-c-action-line-goto) ("Refile to this Headline" . anything-c-org-headline-refile) ("Insert Link to This Headline" . anything-c-org-headline-insert-link-to-headline))))] 7) (#$ . 252138)) (defalias 'anything-c-org-headline-insert-link-to-headline #[(lineno-and-content) "\212\302@!\210\303 !\205\304\305\306\307!P!)c\207" [lineno-and-content org-complex-heading-regexp anything-goto-line looking-at org-make-link-string "*" match-string 4] 4]) #@49 Refile current org entry to LINENO-AND-CONTENT. (defalias 'anything-c-org-headline-refile #[(lineno-and-content) "rq\210\303 \210\304 @!\210\305\306\211\"\210\306\307 *\207" [anything-current-buffer lineno-and-content org-yank-adjusted-subtrees org-cut-subtree anything-goto-line org-end-of-subtree t org-yank] 3 (#$ . 253216)]) (defvar anything-c-source-org-keywords '((name . "Org Keywords") (init . anything-c-org-keywords-init) (candidates . anything-c-org-keywords-candidates) (action . anything-c-org-keywords-insert) (persistent-action . anything-c-org-keywords-show-help) (persistent-help . "Show an example and info page to describe this keyword.") (keywords-examples) (keywords))) (defvar anything-c-org-keywords-info-location '(("#+TITLE:" . "(org)Export options") ("#+AUTHOR:" . "(org)Export options") ("#+DATE:" . "(org)Export options") ("#+EMAIL:" . "(org)Export options") ("#+DESCRIPTION:" . "(org)Export options") ("#+KEYWORDS:" . "(org)Export options") ("#+LANGUAGE:" . "(org)Export options") ("#+TEXT:" . "(org)Export options") ("#+TEXT:" . "(org)Export options") ("#+OPTIONS:" . "(org)Export options") ("#+BIND:" . "(org)Export options") ("#+LINK_UP:" . "(org)Export options") ("#+LINK_HOME:" . "(org)Export options") ("#+LATEX_HEADER:" . "(org)Export options") ("#+EXPORT_SELECT_TAGS:" . "(org)Export options") ("#+EXPORT_EXCLUDE_TAGS:" . "(org)Export options") ("#+INFOJS_OPT" . "(org)Javascript support") ("#+BEGIN_HTML" . "(org)Quoting HTML tags") ("#+BEGIN_LaTeX" . "(org)Quoting LaTeX code") ("#+ORGTBL" . "(org)Radio tables") ("#+HTML:" . "(org)Quoting HTML tags") ("#+LaTeX:" . "(org)Quoting LaTeX code") ("#+BEGIN:" . "(org)Dynamic blocks") ("#+BEGIN_EXAMPLE" . "(org)Literal examples") ("#+BEGIN_QUOTE" . "(org)Paragraphs") ("#+BEGIN_VERSE" . "(org)Paragraphs") ("#+BEGIN_SRC" . "(org)Literal examples") ("#+CAPTION" . "(org)Tables in HTML export") ("#+LABEL" . "(org)Tables in LaTeX export") ("#+ATTR_HTML" . "(org)Links") ("#+ATTR_LaTeX" . "(org)Images in LaTeX export"))) (defalias 'anything-c-org-keywords-init #[nil "\301\302!?\205&\303\304!\210\305\302\306\307\310\311\312 \313\"\"\307\314\"\"\"\210\305\315\307\316\301\302!\"\"\207" [org-additional-option-like-keywords anything-attr keywords-examples require org anything-attrset append mapcar #[(x) "\301\302\"\210\303\304\"\303\305\"B\207" [x string-match "^#\\+\\(\\([A-Z_]+:?\\).*\\)" match-string 2 1] 4] org-split-string org-get-current-options "\n" list keywords car] 8]) (defalias 'anything-c-org-keywords-candidates #[nil "\301\302\"\303=\204\301\302\"\304=\205\305\306!\207" [anything-current-buffer buffer-local-value major-mode org-mode message-mode anything-attr keywords] 3]) (defalias 'anything-c-org-keywords-insert #[(keyword) "\303\304\"\203-\305 \203-\306 \307  b\210\310\311\304\312#\313\261\210\nb\210\314\315\261\210\212\313c+\207\303\304\"\203F\314\315\261\210\212\310\311\304\312#\313\261)\207\314\315\261\207" [keyword end beg string-match "BEGIN" anything-region-active-p region-beginning region-end "\n#+" replace-regexp-in-string "END" "\n" "#+" " "] 5]) (defalias 'anything-c-org-keywords-show-help #[(keyword) "\302\303\304P \"\206 \305!\210\306\304P\307\310#\210\311 \210\312\313\314\315\316!\"A\206%\317\"\207" [keyword anything-c-org-keywords-info-location info assoc-default "#+" "(org)In-buffer settings" search-forward nil t anything-persistent-highlight-point message "%s" assoc anything-attr keywords-examples ""] 6]) #@87 Return a list of all names in the bbdb database. The format is "Firstname Lastname". (defalias 'anything-c-bbdb-candidates #[nil "\300\301\302 \"\207" [mapcar #[(bbdb-record) "\301\302\303\304H\305\306HQ#\207" [bbdb-record replace-regexp-in-string "\\s-+$" "" 0 " " 1] 7] bbdb-records] 3 (#$ . 256700)]) #@133 Action transformer that returns only an entry to add the current `anything-pattern' as new contact. All other actions are removed. (defalias 'anything-c-bbdb-create-contact #[(actions candidate) "\302\230\203\303\207 \207" [candidate actions "*Add to contacts*" (("Add to contacts" lambda (actions) (bbdb-create-internal (read-from-minibuffer "Name: " anything-c-bbdb-name) (read-from-minibuffer "Company: ") (read-from-minibuffer "Email: ") nil nil (read-from-minibuffer "Note: "))))] 2 (#$ . 257014)]) #@37 Return record that match CANDIDATE. (defalias 'anything-c-bbdb-get-record #[(candidate) "\301\302\"\210\303q\210\304 \207" [candidate bbdb nil "*BBDB*" bbdb-current-record] 3 (#$ . 257528)]) #@24 Only for internal use. (defvar anything-c-bbdb-name nil (#$ . 257726)) #@43 Needs BBDB. http://bbdb.sourceforge.net/ (defvar anything-c-source-bbdb '((name . "BBDB") (candidates . anything-c-bbdb-candidates) (action ("Send a mail" . anything-c-bbdb-compose-mail) ("View person's data" . anything-c-bbdb-view-person-action)) (filtered-candidate-transformer lambda (candidates source) (setq anything-c-bbdb-name anything-pattern) (if (not candidates) (list "*Add to contacts*") candidates)) (action-transformer lambda (actions candidate) (anything-c-bbdb-create-contact actions candidate))) (#$ . 257803)) #@58 View BBDB data of single CANDIDATE or marked candidates. (defalias 'anything-c-bbdb-view-person-action #[(candidate) "\305 \211\203'G\306\211\205# @\307\310\n!!\210 A\211\204\306+\202,\307\310\f!!)\207" [it bbdb-append-records i --dolist-tail-- candidate anything-marked-candidates nil bbdb-redisplay-one-record anything-c-bbdb-get-record] 4 (#$ . 258338)]) #@64 Return a list of all mail addresses of records in bbdb buffer. (defalias 'anything-c-bbdb-collect-mail-addresses #[nil "rq\210 \305\211\n:\203'\n@\306 @!\203 \307 @!\fB\nA\211\202 \f\237,\207" [bbdb-buffer-name bbdb-records #1=#:--cl-var-- i #2=#:--cl-var-- nil bbdb-record-net bbdb-dwim-net-address] 3 (#$ . 258715)]) #@49 Compose a mail with all records of bbdb buffer. (defalias 'anything-c-bbdb-compose-mail #[(candidate) "\303!\210\304 \305\306 \307#\310\n!*\207" [candidate address-list address-str anything-c-bbdb-view-person-action anything-c-bbdb-collect-mail-addresses mapconcat identity ",\n " compose-mail] 4 (#$ . 259050)]) (defvar anything-eldoc-active-minibuffers-list nil) (defvar anything-eval-expression-input-history nil) (defvar anything-c-source-evaluation-result '((name . "Evaluation Result") (dummy) (multiline) (mode-line . "C-RET: nl-and-indent, tab: reindent, C-tab:complete, C-p/n: next/prec-line.") (filtered-candidate-transformer lambda (candidates source) (list (condition-case nil (with-anything-current-buffer (pp-to-string (eval (read anything-pattern)))) (error "Error")))) (action ("Copy result to kill-ring" lambda (candidate) (with-current-buffer anything-buffer (let ((end (save-excursion (goto-char (point-max)) (search-backward "\n") (point)))) (kill-region (point) end)))) ("copy sexp to kill-ring" lambda (candidate) (kill-new anything-input))))) (defalias 'anything-eval-new-line-and-indent #[nil "\300 \210\301 \207" [newline lisp-indent-line] 1 nil nil]) #@75 Store minibuffer buffer name in `anything-eldoc-active-minibuffers-list'. (defalias 'anything-eldoc-store-minibuffer #[nil "\302\303 !r\304\216\305@\306\"\210\307 B\211+\207" [save-selected-window--state anything-eldoc-active-minibuffers-list internal--before-with-selected-window minibuffer-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord buffer-name] 3 (#$ . 260239)]) #@57 Return eldoc in mode-line for current minibuffer input. (defalias 'anything-eldoc-show-in-eval #[nil "\306\307 !r\310\216\311@\312\"\210\313 +\211\n\235\205cr q\210\314 )\211\205@\315\316!r\fq\210\317\216 c\210db\210\320\321!\204=\322u\210\323 +\324 \325 !\206W\326@\211A@\262\"\211\205b!,)\207" [save-selected-window--state buf anything-eldoc-active-minibuffers-list str-all #1=#:temp-buffer sym internal--before-with-selected-window minibuffer-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord buffer-name minibuffer-completion-contents generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) looking-back ")\\|\"" -1 eldoc-current-symbol eldoc-fnsym-in-current-sexp eldoc-get-var-docstring eldoc-get-fnsym-args-string info-fn doc anything-c-eldoc-in-minibuffer-show-fn] 5 (#$ . 260671)]) #@34 Display string STR in mode-line. (defalias 'anything-c-show-info-in-mode-line #[(str) "\305 r\306\216r q\210\307\nP\310 \210\311\f!\210)\310 ,\207" [save-selected-window--state anything-buffer str mode-line-format anything-c-show-info-in-mode-line-delay internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) " " force-mode-line-update sit-for] 2 (#$ . 261595)]) (defvar anything-c-source-calculation-result '((name . "Calculation Result") (dummy) (filtered-candidate-transformer lambda (candidates source) (list (condition-case nil (calc-eval anything-pattern) (error "error")))) (action ("Copy result to kill-ring" . kill-new)))) (defvar anything-ggs-max-length-real-flag 0) (defvar anything-ggs-max-length-num-flag 0) #@106 Fetch suggestions for INPUT from XML buffer. Return an alist with elements like (data . number_results). (defalias 'anything-c-google-suggest-fetch #[(input) "\306\211\n\307 !P\310\311K\312\216\311 M\210\2035\313\314!rq\210\315\216\316\317\320\321\320\f%\210\311 +\202>r\322\f!q\210\311 ),\207" [anything-ggs-max-length-real-flag anything-ggs-max-length-num-flag anything-c-google-suggest-url input request #1=#:vnew 0 url-hexify-string #[nil "\306\307ed\"@\310\"\211\311\211\311\211\311\211 :\203a @\312\313\n\"A@@A\312\314\n\"A@@A\315\f!G G\211V\203G V\203Q  \fBC\244 A\211\202.\207" [result-alist #2=#:--cl-var-- i data nqueries lqueries xml-get-children xml-parse-region CompleteSuggestion nil assoc suggestion num_queries anything-c-ggs-set-number-result ldata cont anything-ggs-max-length-real-flag anything-ggs-max-length-num-flag] 5] fetch ((byte-code "\301M\207" [#3=#:old fetch] 2)) generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#4=#:temp-buffer buffer-name kill-buffer] 2)) call-process "curl" nil t url-retrieve-synchronously #3# anything-google-suggest-use-curl-p #4#] 7 (#$ . 262377)]) #@64 Set candidates with result and number of google results found. (defalias 'anything-c-google-suggest-set-candidates #[(&optional request-prefix) "\306\203\f\307 Q\206 !\211\310\211\310\211\310\211\310\211\310 :\203\204 @\211\211A\242\311\f!\211GW\203NGZ\202O\312\313\314\"P GZ\313\315\\\314\"\316\317 $\211 BB A\211\202+\237. \211\310\211 !\320\"\310#:\203\304@\211 \211A \242! \232\211#?\211\"\203\304A\211\202\234#-\203\317\202\337\321\322\323$\323\324\260$BC\")\207" [request-prefix anything-pattern suggested-results #1=#:--cl-var-- numresult real anything-c-google-suggest-fetch " " nil anything-c-ggs-set-number-result 0 make-string 32 2 format "%s%s(%s results)" t append "Search for " "'" " on Google" fnumresult nspaces align-fnumresult interval spaces display #2=#:--cl-var-- anything-ggs-max-length-num-flag anything-ggs-max-length-real-flag suggestions #3=#:--cl-var-- dat disp #4=#:--cl-flag-- #5=#:--cl-var-- anything-input] 8 (#$ . 263568)]) (defalias 'anything-c-ggs-set-number-result #[(num) "\203M\247\203 \305!\306\307\310\311#!\312\313\312 :\203@ @\314\f\nC\" \315U\2037\314\f\316C\"\317 A T\202\320\321\310\322\323\306\f!\310##,\207\324\207" [num #1=#:--cl-var-- i count C number-to-string reverse split-string "" t nil 1 append 3 "," 0 replace-regexp-in-string "^," mapconcat identity "?"] 7]) #@165 *The browse url function you prefer to use with google suggest. When nil, use the first browser function available See `anything-browse-url-default-browser-alist'. (defvar anything-c-google-suggest-default-browser-function nil (#$ . -265014)) #@57 Default action to jump to a google suggested candidate. (defalias 'anything-c-google-suggest-action #[(candidate) "\305 !P \211\203\f\n!\202\306\n!*\207" [anything-c-google-suggest-search-url candidate arg anything-c-google-suggest-default-browser-function it url-hexify-string anything-c-browse-url] 4 (#$ . 265263)]) #@53 Default function to use in anything google suggest. (defvar anything-c-google-suggest-default-function 'anything-c-google-suggest-set-candidates (#$ . 265595)) (defvar anything-c-source-google-suggest '((name . "Google Suggest") (candidates lambda nil (funcall anything-c-google-suggest-default-function)) (action ("Google Search" . anything-c-google-suggest-action)) (volatile) (requires-pattern . 3) (delayed))) #@53 Try to emacs lisp complete with google suggestions. (defalias 'anything-c-google-suggest-emacs-lisp #[nil "\300\301!\207" [anything-c-google-suggest-set-candidates "emacs lisp"] 2 (#$ . 266015)]) #@112 Fetch Yahoo suggestions for INPUT from XML buffer. Return an alist with elements like (data . number_results). (defalias 'anything-c-yahoo-suggest-fetch #[(input) "\305 !P\306\307K\310\216\307 M\210r\311\n!q\210\307 -\207" [anything-c-yahoo-suggest-url input request #1=#:vnew #2=#:old url-hexify-string #[nil "\304\305ed\"@\306\"\211\307\211 :\203% @\211AA@ B A\211\202 \237,\207" [result-alist #3=#:--cl-var-- i #4=#:--cl-var-- xml-get-children xml-parse-region Result nil] 5] fetch ((byte-code "\301M\207" [#2# fetch] 2)) url-retrieve-synchronously] 3 (#$ . 266218)]) #@42 Set candidates with Yahoo results found. (defalias 'anything-c-yahoo-suggest-set-candidates #[nil "\302!\211\206\303 \304\305\305\306\260BC\")\207" [anything-input suggestions anything-c-yahoo-suggest-fetch append "Search for " "'" " on Yahoo"] 8 (#$ . 266810)]) #@56 Default action to jump to a Yahoo suggested candidate. (defalias 'anything-c-yahoo-suggest-action #[(candidate) "\302\303 !P!\207" [anything-c-yahoo-suggest-search-url candidate anything-c-browse-url url-hexify-string] 4 (#$ . 267086)]) (defvar anything-c-source-yahoo-suggest '((name . "Yahoo Suggest") (candidates . anything-c-yahoo-suggest-set-candidates) (action ("Yahoo Search" . anything-c-yahoo-suggest-action)) (volatile) (requires-pattern . 3) (delayed))) (require 'browse-url) (defvar w3m-command "/usr/bin/w3m") #@34 *Default url to use as home url. (defvar anything-c-home-url "http://www.google.fr" (#$ . -267616)) (defvar ac-browse-url-chromium-program "chromium-browser") (defvar ac-browse-url-uzbl-program "uzbl-browser") #@74 *Alist of (executable . function) to try to find a suitable url browser. (defvar anything-browse-url-default-browser-alist (byte-code "\306B \307B\n\310B \311B\f\312B \313B\314B\315B\316B\317B\320B\257 \207" [w3m-command browse-url-firefox-program ac-browse-url-chromium-program ac-browse-url-uzbl-program browse-url-kde-program browse-url-gnome-moz-program w3m-browse-url browse-url-firefox ac-browse-url-chromium ac-browse-url-uzbl browse-url-kde browse-url-gnome-moz browse-url-mozilla browse-url-galeon browse-url-netscape browse-url-mosaic browse-url-text-xterm browse-url-mozilla-program browse-url-galeon-program browse-url-netscape-program browse-url-mosaic-program browse-url-xterm-program] 12) (#$ . -267832)) #@57 Browse URL with NAME browser. (fn URL NAME &rest ARGS) (defalias 'anything-c-generic-browser #[(url name &rest args) "\304 Q\305\306\"\210\307\310\n\311\312 C\"%\210\313\314\n!\315\")\207" [name url proc args " " message "Starting %s..." apply start-process nil append set-process-sentinel get-process #[(process event) "\302\230\205 \303\304 #\207" [event process "finished\n" message "%s process %s"] 4]] 8 (#$ . 268569)]) #@40 Browse URL with google chrome browser. (defalias 'ac-browse-url-chromium #[(url) "\302 \"\207" [url ac-browse-url-chromium-program anything-c-generic-browser] 3 (#$ . 269009) "sURL: "]) #@31 Browse URL with uzbl browser. (defalias 'ac-browse-url-uzbl #[(url &optional ignore) "\302 \303#\207" [url ac-browse-url-uzbl-program anything-c-generic-browser "-u"] 4 (#$ . 269202) "sURL: "]) #@58 Find the first available browser and ask it to load URL. (defalias 'anything-browse-url-default-browser #[(url &rest args) "\306\211\307\306 :\2032 @\211\211A\242\211\205#\310 !\205#\n\211?\211\2032 A\211\202 -\211\f\203E\311\f #\202H\312\313!)\207" [anything-browse-url-default-browser-alist #1=#:--cl-var-- fn exe #2=#:--cl-flag-- #3=#:--cl-var-- nil t executable-find apply error "No usable browser found" default-browser-fn url args] 5 (#$ . 269403)]) #@32 Default command to browse URL. (defalias 'anything-c-browse-url #[(url &rest args) "\203 \303 \n\"\207\304 \n\"\207" [browse-url-browser-function url args browse-url anything-browse-url-default-browser] 3 (#$ . 269890)]) #@111 *The browse url function you prefer to use with surfraw. When nil, fallback to `browse-url-browser-function'. (defvar anything-surfraw-default-browser-function nil (#$ . -270120)) (defvar anything-surfraw-engines-history nil) (defvar anything-surfraw-input-history nil) #@65 Return list of all engines and descriptions handled by surfraw. (defalias 'anything-c-build-elvi-list #[nil "\301\302!rq\210\303\216\304\305\306\307\306\310%\210\311\312 \313\"+A\207" [#1=#:temp-buffer generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process "surfraw" nil t "-elvi" split-string buffer-string "\n"] 6 (#$ . 270396)]) #@71 Change the information of current emms-stream bookmark from anything. (defalias 'anything-emms-stream-edit-bookmark #[(elm) "\306\n \"\307\310\f@\"\307\311\fA@\"\307\312\313\314\f8!\" \307\315\316\317\320\f!@\"\"!\321 \"\322\216\323 \210\324\325 P\326\327#\205Y\330 \210\331 \210\332 \333 !!$\210\334 \210\335 \210\336 !.\207" [anything-current-buffer cur-buf elm emms-stream-list bookmark name assoc read-from-minibuffer "Description: " "URL: " "Feed Descriptor: " int-to-string 2 "Type (url, streamlist, or lastfm): " format "%s" last current-window-configuration ((set-window-configuration #1=#:wconfig)) emms-streams re-search-forward "^" nil t beginning-of-line emms-stream-delete-bookmark emms-stream-add-bookmark string-to-number emms-stream-save-bookmarks-file emms-stream-quit anything-c-switch-to-buffer url fd type #1#] 6 (#$ . 270804)]) #@46 Delete emms-streams bookmarks from anything. (defalias 'anything-emms-stream-delete-bookmark #[(candidate) "\306 \211\307\211 :\203 @\310\n\f\"@ B A\211\202\n \237+\311\312 \313#\314\315\316\311\317 \320#\"!\205^\321 \322\216\323 \210eb\210\324\307\325#\203V\326 \210\327 \210\202D\330 \210\331 \210*\307+\207" [cands #1=#:--cl-var-- bm #2=#:--cl-var-- emms-stream-list bmks anything-marked-candidates nil assoc mapconcat regexp-quote "\\|^" y-or-n-p format "Really delete radios\n -%s: ? " identity "\n -" current-window-configuration ((set-window-configuration #3=#:wconfig)) emms-streams re-search-forward t beginning-of-line emms-stream-delete-bookmark emms-stream-save-bookmarks-file emms-stream-quit bmk-reg #3#] 8 (#$ . 271674)]) (defvar anything-c-source-emms-streams '((name . "Emms Streams") (init lambda nil (emms-stream-init)) (candidates lambda nil (declare (special emms-stream-list)) (mapcar 'car emms-stream-list)) (action ("Play" lambda (elm) (declare (special emms-stream-list)) (let* ((stream (assoc elm emms-stream-list)) (fn (intern (concat "emms-play-" (symbol-name (car (last stream)))))) (url (second stream))) (funcall fn url))) ("Delete" . anything-emms-stream-delete-bookmark) ("Edit" . anything-emms-stream-edit-bookmark)) (filtered-candidate-transformer . anything-c-adaptive-sort))) (defvar anything-c-source-emms-dired '((name . "Music Directory") (candidates lambda nil (cddr (directory-files emms-source-file-default-directory))) (action ("Play Directory" lambda (item) (emms-play-directory (expand-file-name item emms-source-file-default-directory))) ("Open dired in file's directory" lambda (item) (anything-c-open-dired (expand-file-name item emms-source-file-default-directory)))) (filtered-candidate-transformer . anything-c-adaptive-sort))) (defalias 'anything-c-emms-files-modifier #[(candidates source) "\306\307ed\"\211\310\211\310 :\203* @\311\303\n\"\211\203# \fB A\211\202\f\237-!\310\211:\203k@\211A \235\203[\312\n@\313\314#\nABC\244\202b\nC\244A\211\202:\315!,\207" [cur-list #1=#:--cl-var-- i name #2=#:--cl-var-- current-playlist with-current-emms-playlist emms-playlist-tracks-in-region nil assoc-default propertize face anything-emms-playlist reverse candidates #3=#:--cl-var-- lis] 6]) #@24 Play current playlist. (defalias 'anything-c-emms-play-current-playlist #[nil "\300\301 \302 \"\207" [with-current-emms-playlist emms-playlist-first emms-playlist-mode-play-smart] 3 (#$ . 273983)]) (defvar anything-c-source-emms-files '((name . "Emms files") (candidates lambda nil (loop for v being the hash-values in emms-cache-db for name = (assoc-default 'name v) for artist = (or (assoc-default 'info-artist v) "unknown") for genre = (or (assoc-default 'info-genre v) "unknown") for tracknum = (or (assoc-default 'info-tracknumber v) "unknown") for song = (or (assoc-default 'info-title v) "unknown") for info = (concat artist " - " genre " - " tracknum ": " song) unless (string-match "^\\(http\\|mms\\):" name) collect (cons info name))) (filtered-candidate-transformer . anything-c-emms-files-modifier) (candidate-number-limit . 9999) (action ("Play file" . emms-play-file) ("Add to Playlist and play (C-u clear current)" lambda (candidate) (when anything-current-prefix-arg (emms-playlist-current-clear)) (emms-playlist-new) (mapc 'emms-add-playlist-file (anything-marked-candidates)) (unless emms-player-playing-p (anything-c-emms-play-current-playlist)))))) #@30 List online Jabber contacts. (defalias 'anything-c-jabber-online-contacts #[nil "\303\304 \303\211\2031\n@\211\305N\203* \306N\203\" \306N B\202'\307 ! BB\nA\211\204 \303+\207" [jids item --dolist-tail-- nil jabber-concat-rosters connected name symbol-name] 3 (#$ . 275158)]) (defvar anything-c-source-jabber-contacts '((name . "Jabber Contacts") (init lambda nil (require 'jabber)) (candidates lambda nil (mapcar 'car (anything-c-jabber-online-contacts))) (action lambda (x) (jabber-chat-with (jabber-read-account) (symbol-name (cdr (assoc x (anything-c-jabber-online-contacts)))))))) (defvar anything-source-select-buffer "*anything source select*") (defvar anything-c-source-call-source '((name . "Call anything source") (candidate-number-limit) (candidates lambda nil (loop for vname in (all-completions "anything-c-source-" obarray) for var = (intern vname) for name = (ignore-errors (assoc-default 'name (symbol-value var))) if name collect (cons (format "%s `%s'" name (propertize vname 'face 'font-lock-variable-name-face)) var))) (action ("Invoke anything with selected source" lambda (candidate) (setq anything-candidate-number-limit 9999) (anything candidate nil nil nil nil anything-source-select-buffer)) ("Describe variable" . describe-variable) ("Find variable" . find-variable)) (persistent-action . describe-variable) (persistent-help . "Show description of this source"))) #@49 Call anything source within `anything' session. (defalias 'anything-call-source-from-anything #[nil "\301\302\303!\207" [anything-input-idle-delay 0 anything-set-sources (anything-c-source-call-source)] 2 (#$ . 276569) nil]) (defvar anything-c-source-anything-commands '((name . "Preconfigured Anything") (candidates . anything-c-anything-commands-candidates) (type . command) (candidate-number-limit))) (defalias 'anything-c-anything-commands-candidates #[nil "\304 \305\211\305:\203=@\211\211A\242\306\n\305\307#\203*\310\311\312\n\211 $!\2021\310\311\313\n #!\nB BA\211\202\n \237,\207" [#1=#:--cl-var-- desc cmd #2=#:--cl-var-- anything-c-list-preconfigured-anything nil where-is-internal t substitute-command-keys format "M-x %s (\\[%s]) : %s" "\\[%s] : %s"] 7]) #@118 Create the initial anything occur buffer. If region is active use region as buffer contents instead of whole buffer. (defalias 'anything-c-occur-init #[nil "r\302\303!q\210\304 \210rq\210\305 \203\306 \307 {\202ed{)\211c*\207" [anything-current-buffer buf-contents anything-candidate-buffer global erase-buffer anything-region-active-p region-beginning region-end] 3 (#$ . 277361)]) (defalias 'anything-c-occur-get-line #[(s e) "\302\303\304S! {#\207" [s e format "%7d:%s" line-number-at-pos] 5]) #@253 Query replace regexp starting from CANDIDATE. If region is active ignore CANDIDATE and replace only in region. With a prefix arg replace only matches surrounded by word boundaries, i.e Don't replace inside a word, regexp is surrounded with \bregexp\b. (defalias 'anything-c-occur-query-replace-regexp #[(candidate) "\303 \204 \304\n!\210\305\306\307 !\")\207" [anything-input regexp candidate anything-region-active-p anything-c-action-line-goto apply query-replace-regexp anything-c-query-replace-args] 4 (#$ . 277873)]) #@59 Run `query-replace-regexp' in anything occur from keymap. (defalias 'anything-occur-run-query-replace-regexp #[nil "\300\301!\207" [anything-c-quit-and-execute-action anything-c-occur-query-replace-regexp] 2 (#$ . 278404) nil]) (defvar anything-c-source-occur (byte-code "\301\302\303\304\305\306\307\310\311\312B\313BBBBBBBBBB\207" [anything-occur-map (name . "Occur") (init . anything-c-occur-init) (candidates-in-buffer) (migemo) (get-line . anything-c-occur-get-line) (display-to-real . anything-c-display-to-real-line) (action ("Go to Line" . anything-c-action-line-goto) ("Query replace regexp (C-u Not inside word.)" . anything-c-occur-query-replace-regexp)) (recenter) (mode-line . anything-occur-mode-line) keymap ((requires-pattern . 1) (delayed))] 11)) #@124 Select line if it match the regexp corresponding to current `major-mode'. Line is parsed for BEG position to END position. (defalias 'anything-c-browse-code-get-line #[(beg end) " {\306\n \"\f\307\230\203\202S\f \f\205.\310\f \"\205.\311\312\313 ! #+\207" [beg end major-mode anything-c-browse-code-regexp-alist anything-pattern num-line assoc-default "" string-match format "%4d:%s" line-number-at-pos regexp str-line] 4 (#$ . 279176)]) (defvar anything-c-source-browse-code '((name . "Browse code") (init lambda nil (anything-candidate-buffer anything-current-buffer) (with-anything-current-buffer (jit-lock-fontify-now))) (candidate-number-limit . 9999) (candidates-in-buffer) (get-line . anything-c-browse-code-get-line) (type . line) (recenter))) #@86 Do many create actions from `anything-pattern'. See also `anything-create--actions'. (defvar anything-c-source-create '((name . "Create") (dummy) (action) (action-transformer . anything-create--actions)) (#$ . 279950)) #@54 Run `anything-create' from `anything' as a fallback. (defalias 'anything-create-from-anything #[nil "\301\302\303#\207" [anything-pattern anything-run-after-quit anything-create nil] 4 (#$ . 280175) nil]) #@69 Default actions for `anything-create' / `anything-c-source-create'. (defalias 'anything-create--actions #[(&rest ignored) "\301\302\303\304\"\"\207" [anything-create--actions-private remove-if-not #[(pair) ":\205 \301A!\207" [pair functionp] 2] append (("find-file" . find-file) ("find-file other window" . find-file-other-window) ("New buffer" . anything-c-switch-to-buffer) ("New buffer other window" . switch-to-buffer-other-window) ("Bookmark Set" . bookmark-set) ("Set Register" lambda (x) (set-register (read-char "Register: ") x)) ("Insert Linkd star" . linkd-insert-star) ("Insert Linkd Tag" . linkd-insert-tag) ("Insert Linkd Link" . linkd-insert-link) ("Insert Linkd Lisp" . linkd-insert-lisp) ("Insert Linkd Wiki" . linkd-insert-wiki) ("Google Search" . google))] 5 (#$ . 280387)]) (defvar anything-c-source-minibuffer-history '((name . "Minibuffer History") (header-name lambda (name) (format "%s (%s)" name minibuffer-history-variable)) (candidates lambda nil (let ((history (loop for i in (symbol-value minibuffer-history-variable) unless (string= "" i) collect i))) (if (consp (car history)) (mapcar 'prin1-to-string history) history))) (migemo) (action lambda (candidate) (delete-minibuffer-contents) (insert candidate)))) (defvar anything-c-source-elscreen '((name . "Elscreen") (candidates lambda nil (if (cdr (elscreen-get-screen-to-name-alist)) (sort (loop for sname in (elscreen-get-screen-to-name-alist) append (list (format "[%d] %s" (car sname) (cdr sname)))) #'(lambda (a b) (compare-strings a nil nil b nil nil))))) (action ("Change Screen" lambda (candidate) (elscreen-goto (- (aref candidate 1) (aref "0" 0)))) ("Kill Screen(s)" lambda (candidate) (dolist (i (anything-marked-candidates)) (elscreen-goto (- (aref i 1) (aref "0" 0))) (elscreen-kill))) ("Only Screen" lambda (candidate) (elscreen-goto (- (aref candidate 1) (aref "0" 0))) (elscreen-kill-others))))) #@62 Top command (batch mode). %s is replaced with `frame-width'. (defvar anything-c-top-command "COLUMNS=%s top -b -n 1" (#$ . 282289)) (defvar anything-c-source-top '((name . "Top (Press C-c C-u to refresh)") (init . anything-c-top-init) (candidates-in-buffer) (display-to-real . anything-c-top-display-to-real) (persistent-action . anything-c-top-sh-persistent-action) (persistent-help . "SIGTERM") (action ("kill (TERM)" lambda (pid) (anything-c-top-sh (format "kill -TERM %s" pid))) ("kill (KILL)" lambda (pid) (anything-c-top-sh (format "kill -KILL %s" pid))) ("Copy PID" lambda (pid) (kill-new pid))))) (defalias 'anything-c-top-sh #[(cmd) "\301\302\303!#\207" [cmd message "Executed %s\n%s" shell-command-to-string] 5]) (defalias 'anything-c-top-sh-persistent-action #[(pid) "\301 \210\302\303\304\"!\210\305 \207" [pid delete-other-windows anything-c-top-sh format "kill -TERM %s" anything-force-update] 4]) (defalias 'anything-c-top-init #[nil "r\302\303!q\210\304\305\306 \203\307\202\310Z\"\311p#)\207" [anything-c-top-command anything-enable-digit-shortcuts anything-candidate-buffer global call-process-shell-command format frame-width 4 0 nil] 5]) (defalias 'anything-c-top-display-to-real #[(line) "\301!@\207" [line split-string] 2]) (defvar anything-c-source-absolute-time-timers '((name . "Absolute Time Timers") (candidates . timer-list) (type . timer))) (defvar anything-c-source-idle-time-timers '((name . "Idle Time Timers") (candidates . timer-idle-list) (type . timer))) (defalias 'anything-c-timer-real-to-display #[(timer) "\306\307\"\211G\310U\203 \211A\242\202\311\312\307 GD\" \211A\242 \211A\242 \211A\242 \211A\242 \211A\242 \211A\242 @\313\314 \f E\203\\\315\316\"\202a\315\317\")\320\321\322#%. \207" [timer #1=#:--cl-rest-- triggered t1 t2 t3 append nil 8 signal wrong-number-of-arguments format "%s repeat=%5S %s(%s)" format-time-string "idle-for=%5s" "%m/%d %T" mapconcat prin1-to-string " " repeat-delay func args idle-delay time] 10]) #@72 Return a pair with current X screen number and current X display name. (defalias 'anything-c-xrandr-info #[nil "\303\304!rq\210\305\216\306\307\310p\310\311%\210\310\211eb\210\212\312\313\310\314#\203&\315\316!)\312\317\310\314#\2033\315\320!\n -D\207" [#1=#:temp-buffer output screen generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process "xrandr" nil "--current" re-search-forward "\\(^Screen \\)\\([0-9]\\):" t match-string 2 "^\\(.*\\) connected" 1] 6 (#$ . 284315)]) #@33 Return current X screen number. (defalias 'anything-c-xrandr-screen #[nil "\300 @\207" [anything-c-xrandr-info] 1 (#$ . 284869)]) #@32 Return current X display name. (defalias 'anything-c-xrandr-output #[nil "\300 \211A@\207" [anything-c-xrandr-info] 2 (#$ . 285005)]) (defvar anything-c-source-xrandr-change-resolution '((name . "Change Resolution") (candidates lambda nil (with-temp-buffer (call-process "xrandr" nil (current-buffer) nil "--screen" (anything-c-xrandr-screen) "-q") (goto-char 1) (loop with modes = nil while (re-search-forward " \\([0-9]+x[0-9]+\\)" nil t) for mode = (match-string 1) unless (member mode modes) collect mode into modes finally return modes))) (action ("Change Resolution" lambda (mode) (call-process "xrandr" nil nil nil "--screen" (anything-c-xrandr-screen) "--output" (anything-c-xrandr-output) "--mode" mode))))) #@31 Show current font temporarily (defalias 'anything-c-persistent-xfont-action #[(elm) "\303\304\305 \"A\306\216\307 \310\"\210\311\312!+\207" [elm default-font current-font assoc font frame-parameters ((set-frame-font current-font)) set-frame-font keep-size sit-for 2] 3 (#$ . 285730)]) (defvar anything-c-xfonts-cache nil) (defvar anything-c-source-xfonts '((name . "X Fonts") (init lambda nil (unless anything-c-xfonts-cache (setq anything-c-xfonts-cache (x-list-fonts "*")))) (candidates . anything-c-xfonts-cache) (action ("Copy to kill ring" lambda (elm) (kill-new elm)) ("Set Font" lambda (elm) (kill-new elm) (set-frame-font elm 'keep-size) (message "New font have been copied to kill ring"))) (persistent-action . anything-c-persistent-xfont-action) (persistent-help . "Switch to this font temporarily"))) (defvar anything-c-ucs-max-len 0) #@56 Calculate the length of longest `ucs-names' candidate. (defalias 'anything-c-calculate-ucs-max-len #[nil "\305\306 \307\211\307 :\203+ @\211\211A\242\211G\211V\203$\f A\211\202\f-\207" [count #1=#:--cl-var-- v n len 0 ucs-names nil] 3 (#$ . 286585)]) #@83 Initialize an anything buffer with ucs symbols. Only math* symbols are collected. (defalias 'anything-c-ucs-init #[nil "\306V\204 \307 r\310\311\312!!q\210\313 \314\211\314\211 :\203P @\211\211A\242\211G\fZ\315\\ \316\230\204I \317\320 \321\"Qc\210\322\n!\210\323c\210 A\211\202.\314\207" [anything-c-ucs-max-len #1=#:--cl-var-- v n len diff 0 anything-c-calculate-ucs-max-len anything-candidate-buffer get-buffer-create "*anything ucs*" ucs-names nil 2 "" ":" make-string 32 ucs-insert "\n"] 6 (#$ . 286858)]) (defalias 'anything-c-ucs-forward-char #[(candidate) "rq\210\301u)\207" [anything-current-buffer 1] 1]) (defalias 'anything-c-ucs-backward-char #[(candidate) "rq\210\301u)\207" [anything-current-buffer -1] 1]) (defalias 'anything-c-ucs-delete-backward #[(candidate) "rq\210\301\302!)\207" [anything-current-buffer delete-char -1] 2]) (defalias 'anything-c-ucs-insert-char #[(candidate) "rq\210\302\303\304\305 \306\"\211A@\262#c)\207" [anything-current-buffer candidate replace-regexp-in-string " " "" split-string ":"] 6]) (defalias 'anything-c-ucs-persistent-insert #[nil "\300\301\302\"\210\303\301!\207" [anything-attrset action-insert anything-c-ucs-insert-char anything-execute-persistent-action] 3 nil nil]) (defalias 'anything-c-ucs-persistent-forward #[nil "\300\301\302\"\210\303\301!\207" [anything-attrset action-forward anything-c-ucs-forward-char anything-execute-persistent-action] 3 nil nil]) (defalias 'anything-c-ucs-persistent-backward #[nil "\300\301\302\"\210\303\301!\207" [anything-attrset action-back anything-c-ucs-backward-char anything-execute-persistent-action] 3 nil nil]) (defalias 'anything-c-ucs-persistent-delete #[nil "\300\301\302\"\210\303\301!\207" [anything-attrset action-delete anything-c-ucs-delete-backward anything-execute-persistent-action] 3 nil nil]) #@49 Source for collecting `ucs-names' math symbols. (defvar anything-c-source-ucs '((name . "Ucs names") (init . anything-c-ucs-init) (candidate-number-limit . 9999) (candidates-in-buffer) (mode-line . anything-c-ucs-mode-line-string) (action ("Insert" . anything-c-ucs-insert-char) ("Forward char" . anything-c-ucs-forward-char) ("Backward char" . anything-c-ucs-backward-char) ("Delete char backward" . anything-c-ucs-delete-backward))) (#$ . 288697)) (defvar anything-c-source-emacs-process '((name . "Emacs Process") (candidates lambda nil (mapcar #'process-name (process-list))) (persistent-action lambda (elm) (delete-process (get-process elm)) (anything-delete-current-selection)) (persistent-help . "Kill Process") (action ("Kill Process" lambda (elm) (delete-process (get-process elm)))))) (defvar anything-c-source-time-world '((name . "Time World List") (init lambda nil (let ((anything-buffer (anything-candidate-buffer 'global))) (with-current-buffer anything-buffer (display-time-world-display display-time-world-list)))) (candidates-in-buffer))) (defvar anything-c-source-apt '((name . "APT") (init . anything-c-apt-init) (candidates-in-buffer) (candidate-transformer anything-c-apt-candidate-transformer) (display-to-real . anything-c-apt-display-to-real) (requires-pattern . 2) (update . anything-c-apt-refresh) (action ("Show package description" . anything-c-apt-cache-show) ("Install package" . anything-c-apt-install) ("Reinstall package" . anything-c-apt-reinstall) ("Remove package" . anything-c-apt-uninstall) ("Purge package" . anything-c-apt-purge)) (persistent-action . anything-c-apt-persistent-action) (persistent-help . "Show package description"))) (defvar anything-c-apt-query "emacs") (defvar anything-c-apt-search-command "apt-cache search '%s'") (defvar anything-c-apt-show-command "apt-cache show '%s'") (defvar anything-c-apt-installed-packages nil) (defvar anything-c-apt-all-packages nil) (defvar anything-c-apt-input-history nil) #@36 Refresh installed candidates list. (defalias 'anything-c-apt-refresh #[nil "\302\211\211\207" [anything-c-apt-installed-packages anything-c-apt-all-packages nil] 3 (#$ . 290669)]) #@35 Persistent action for APT source. (defalias 'anything-c-apt-persistent-action #[(candidate) "\301!\207" [candidate anything-c-apt-cache-show] 2 (#$ . 290857)]) #@75 Show installed CANDIDATES and the ones to deinstall in a different color. (defalias 'anything-c-apt-candidate-transformer #[(candidates) "\306\211\306 :\203A @\307\n!\310 \"\311\230\203%\312\n\313\314#\2027\310 \"\315\230\2036\312\n\313\316#\2027\n\fB A\211\202 \f\237,\207" [candidates #1=#:--cl-var-- cand name #2=#:--cl-var-- anything-c-apt-installed-packages nil anything-c-apt-display-to-real assoc-default "deinstall" propertize face anything-apt-deinstalled "install" anything-apt-installed] 5 (#$ . 291024)]) #@37 Initialize list of debian packages. (defalias 'anything-c-apt-init #[nil "\306 \205\n?\205v\307\310!\210\311\312!r q\210\313\216\314\315\316p#\210\317\320 \321\322#\316\211\316\f:\203Q\f@\317 !\211@\211A@\262BB\fA\211\202/\237.r\323\324\325\326!!!q\210\327 \210\314\325\"\316p#)\307\330!\210\331\332!)\207" [query anything-c-apt-installed-packages anything-c-apt-all-packages #1=#:temp-buffer #2=#:--cl-var-- i "" message "Loading package list..." generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process-shell-command "dpkg --get-selections" nil split-string buffer-string "\n" t anything-candidate-buffer get-buffer-create format "*anything-apt*" erase-buffer "Loading package list done" sit-for 0.5 p #3=#:--cl-var-- anything-c-apt-search-command] 5 (#$ . 291564)]) #@91 Return only name of a debian package. LINE is displayed like: package name - description. (defalias 'anything-c-apt-display-to-real #[(line) "\301\302\"@\207" [line split-string " - "] 3 (#$ . 292437)]) #@109 Run shell command COMMAND to describe package. If a buffer named COMMAND already exists, just switch to it. (defalias 'anything-c-shell-command-if-needed #[(command) "\302!\303\304!!\210 ?\205\305!c)\207" [command buf get-buffer anything-c-switch-to-buffer get-buffer-create shell-command-to-string] 3 (#$ . 292648)]) #@42 Show information on apt package PACKAGE. (defalias 'anything-c-apt-cache-show #[(package) "\302\303 \"!\207" [anything-c-apt-show-command package anything-c-shell-command-if-needed format] 4 (#$ . 292978)]) #@49 Run 'apt-get install' shell command on PACKAGE. (defalias 'anything-c-apt-install #[(package) "\300\301\302\"\207" [anything-c-apt-generic-action :action install] 3 (#$ . 293192)]) #@61 Run 'apt-get install --reinstall' shell command on PACKAGE. (defalias 'anything-c-apt-reinstall #[(package) "\300\301\302\"\207" [anything-c-apt-generic-action :action reinstall] 3 (#$ . 293379)]) #@48 Run 'apt-get remove' shell command on PACKAGE. (defalias 'anything-c-apt-uninstall #[(package) "\300\301\302\"\207" [anything-c-apt-generic-action :action uninstall] 3 (#$ . 293582)]) #@47 Run 'apt-get purge' shell command on PACKAGE. (defalias 'anything-c-apt-purge #[(package) "\300\301\302\"\207" [anything-c-apt-generic-action :action purge] 3 (#$ . 293772)]) #@84 Run 'apt-get ACTION'. Support install, remove and purge actions. (fn &key ACTION) (defalias 'anything-c-apt-generic-action #[(&rest #1=#:--cl-rest--) "\306\307\"A@\n\2033\n@\310>\203\nAA\211\202\n\311>A@\203*\312\211\202\n\313\314\n@\"\210\202 )\315\316\317!\320\"\210\321 \210\322 \323\"\203I\324\202m\322 \325\"\203T\326\202m\322 \327\"\203_\330\202m\322 \331\"\203j\332\202m\313\333!`\312\334\335\336 \337#(db\210( Pc\210`\340\341\342\343 !\"!\203\236\312\211)*\344 \210\345 \202\247 \f|\210\346 \210\347 -\207" [#1# action #2=#:--cl-keys-- cand-list end beg plist-member :action (:action :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:action)" ansi-term getenv "SHELL" "anything apt" term-line-mode memql 'install "sudo apt-get install " 'reinstall "sudo apt-get install --reinstall " 'uninstall "sudo apt-get remove " 'purge "sudo apt-get purge " "Unknow action" mapconcat #[(x) "\301\302\"\207" [x format "'%s'"] 3] anything-marked-candidates " " y-or-n-p format "%s package" symbol-name term-char-mode term-send-input term-send-eof kill-buffer command anything-c-external-commands-list anything-c-apt-installed-packages] 8 (#$ . 293953)]) (defvar anything-c-gentoo-use-flags nil) (defvar anything-c-gentoo-buffer "*anything-gentoo-output*") (defvar anything-c-cache-gentoo nil) (defvar anything-c-cache-world nil) (defvar anything-c-source-gentoo '((name . "Portage sources") (init lambda nil (get-buffer-create anything-c-gentoo-buffer) (unless anything-c-cache-gentoo (anything-c-gentoo-setup-cache)) (unless anything-c-cache-world (setq anything-c-cache-world (anything-c-gentoo-get-world))) (anything-c-gentoo-init-list)) (candidates-in-buffer) (match . identity) (candidate-transformer anything-c-highlight-world) (action ("Show package" lambda (elm) (anything-c-gentoo-eshell-action elm "eix")) ("Show history" lambda (elm) (if (member elm anything-c-cache-world) (anything-c-gentoo-eshell-action elm "genlop -qe") (message "No infos on packages not yet installed"))) ("Copy in kill-ring" . kill-new) ("insert at point" . insert) ("Browse HomePage" lambda (elm) (let ((urls (anything-c-gentoo-get-url elm))) (browse-url (anything-comp-read "Url: " urls :must-match t)))) ("Show extra infos" lambda (elm) (if (member elm anything-c-cache-world) (anything-c-gentoo-eshell-action elm "genlop -qi") (message "No infos on packages not yet installed"))) ("Show use flags" lambda (elm) (anything-c-gentoo-default-action elm "equery" "-C" "u") (font-lock-add-keywords nil '(("^+.*" . font-lock-variable-name-face))) (font-lock-mode 1)) ("Run emerge pretend" lambda (elm) (anything-c-gentoo-eshell-action elm "emerge -p")) ("Emerge" lambda (elm) (anything-gentoo-install elm :action 'install)) ("Unmerge" lambda (elm) (anything-gentoo-install elm :action 'uninstall)) ("Show dependencies" lambda (elm) (anything-c-gentoo-default-action elm "equery" "-C" "d")) ("Show related files" lambda (elm) (anything-c-gentoo-default-action elm "equery" "files")) ("Refresh" lambda (elm) (anything-c-gentoo-setup-cache) (setq anything-c-cache-world (anything-c-gentoo-get-world)))))) #@30 (fn CANDIDATE &key ACTION) (defalias 'anything-gentoo-install #[(candidate &rest #1=#:--cl-rest--) "\306\307\"A@\n\2033\n@\310>\203\nAA\211\202\n\311>A@\203*\312\211\202\n\313\314\n@\"\210\202 )\312\315\316\317!\320\"\210\321 \210\322 \323\"\203K\324\202Y\322 \325\"\203V\326\202Y\313\327!\330\331\332 \333#`\312db\210Pc\210`\334 \210\335 -\207" [#1# action #2=#:--cl-keys-- anything-c-external-commands-list end beg plist-member :action (:action :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:action)" ansi-term getenv "SHELL" "Gentoo emerge" term-line-mode memql 'install "sudo emerge -av " 'uninstall "sudo emerge -avC " "Unknow action" mapconcat identity anything-marked-candidates " " term-char-mode term-send-input elms command] 6 (#$ . 297103)]) #@60 Gentoo default action that use `anything-c-gentoo-buffer'. (defalias 'anything-c-gentoo-default-action #[(elm command &rest args) " \235\203\306\n!\210\307 \210\310 C\"\311\312 \313\314\313\f&)\207\315\316!\207" [elm anything-c-cache-world anything-c-gentoo-buffer args com-list command anything-c-switch-to-buffer erase-buffer append apply call-process nil t message "No infos on packages not yet installed"] 7 (#$ . 297928)]) (defvar anything-c-source-use-flags '((name . "Use Flags") (init lambda nil (unless anything-c-gentoo-use-flags (anything-c-gentoo-setup-use-flags-cache)) (anything-c-gentoo-get-use)) (candidates-in-buffer) (match . identity) (candidate-transformer anything-c-highlight-local-use) (action ("Description" lambda (elm) (anything-c-switch-to-buffer anything-c-gentoo-buffer) (erase-buffer) (apply #'call-process "euse" nil t nil `("-i" ,elm)) (font-lock-add-keywords nil `((,elm . font-lock-variable-name-face))) (font-lock-mode 1)) ("Enable" lambda (elm) (anything-c-gentoo-eshell-action elm "*sudo -p Password: euse -E")) ("Disable" lambda (elm) (anything-c-gentoo-eshell-action elm "*sudo -p Password: euse -D")) ("Remove" lambda (elm) (anything-c-gentoo-eshell-action elm "*sudo -p Password: euse -P")) ("Show which dep use this flag" lambda (elm) (anything-c-switch-to-buffer anything-c-gentoo-buffer) (erase-buffer) (apply #'call-process "equery" nil t nil `("-C" "h" ,elm)))))) #@49 Initialize buffer with all packages in Portage. (defalias 'anything-c-gentoo-init-list #[nil "\305\306!\307\300!r q\210\n\310\211\205$\f@\211\311Pc\210\fA\211\204\310-\207" [portage-buf buf anything-c-cache-gentoo i --dolist-tail-- get-buffer-create "*anything-gentoo*" anything-candidate-buffer nil "\n"] 3 (#$ . 299350)]) #@34 Set up `anything-c-cache-gentoo' (defalias 'anything-c-gentoo-setup-cache #[nil "\302\303\304!rq\210\305\216\306\307\310\311\310\312%\210\313 +!\211\207" [#1=#:temp-buffer anything-c-cache-gentoo split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process "eix" nil t "--only-names" buffer-string] 7 (#$ . 299689)]) (defalias 'anything-c-gentoo-eshell-action #[(elm command) "\306\307!\203\n\310\307!\210\311\312!\210\313!\211\2035\314\n \"\2035\315 \316\216\317\320!\210\321\322\323\f #!\210*\317\307!\202<\321\322\323\f #!)\207" [anything-current-buffer buf-fname tramp-file-name-regexp #1=#:wconfig command elm get-buffer "*EShell Command Output*" kill-buffer message "Wait searching..." buffer-file-name string-match current-window-configuration ((set-window-configuration #1#)) pop-to-buffer "*scratch*" eshell-command format "%s %s"] 6]) #@39 Initialize buffer with all use flags. (defalias 'anything-c-gentoo-get-use #[nil "\305\306!\307\300!r q\210\n\310\211\205$\f@\211\311Pc\210\fA\211\204\310-\207" [use-buf buf anything-c-gentoo-use-flags i --dolist-tail-- get-buffer-create "*anything-gentoo-use*" anything-candidate-buffer nil "\n"] 3 (#$ . 300625)]) #@37 Setup `anything-c-gentoo-use-flags' (defalias 'anything-c-gentoo-setup-use-flags-cache #[nil "\302\303\304!rq\210\305\216\306\307\310\311\310\312%\210\313 +!\211\207" [#1=#:temp-buffer anything-c-gentoo-use-flags split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process "eix" nil t "--print-all-useflags" buffer-string] 7 (#$ . 300956)]) #@40 Return a list of urls from eix output. (defalias 'anything-c-gentoo-get-url #[(elm) "\306\307\310!rq\210\311\216\312\313\314\315\314 \316\317&\210\320 +!\314\n\314\211\f:\203D\f@\321\322 \"\203= \235\204= C\244\fA\211\202$ -\207" [#1=#:temp-buffer elm url-list all #2=#:--cl-var-- i split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process "eix" nil t "--format" "\n" buffer-string string-match "^http://.*"] 10 (#$ . 301382)]) #@54 Return list of all installed package on your system. (defalias 'anything-c-gentoo-get-world #[nil "\301\302\303!rq\210\304\216\305\306\307\310\307\311%\210\312 +!\207" [#1=#:temp-buffer split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process "qlist" nil t "-I" buffer-string] 7 (#$ . 301922)]) (defalias 'anything-c-gentoo-get-local-use #[nil "\301\302\303!rq\210\304\216\305\306\307\310\307\311\312&\210\313 +!\207" [#1=#:temp-buffer split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process "portageq" nil t "envvar" "USE" buffer-string] 8]) #@34 Highlight all installed package. (defalias 'anything-c-highlight-world #[(eix) "\305\211 :\203* @\211\f\235\203\306\n\307\310# B\202#\n B A\211\202 \237+\207" [eix #1=#:--cl-var-- i #2=#:--cl-var-- anything-c-cache-world nil propertize face anything-gentoo-match-face] 5 (#$ . 302635)]) (defalias 'anything-c-highlight-local-use #[(use-flags) "\305  \306\211\n:\203-\n@\211\235\203\"\307 \310\311#\fB\202& \fB\nA\211\202\n\f\237,\207" [local-uses use-flags #1=#:--cl-var-- i #2=#:--cl-var-- anything-c-gentoo-get-local-use nil propertize face anything-gentoo-match-face] 5]) (defvar anything-c-source-ratpoison-commands '((name . "Ratpoison Commands") (init . anything-c-ratpoison-commands-init) (candidates-in-buffer) (action ("Execute the command" . anything-c-ratpoison-commands-execute)) (display-to-real . anything-c-ratpoison-commands-display-to-real) (candidate-number-limit))) (defalias 'anything-c-ratpoison-commands-init #[nil "\300 ?\205Fr\300\301!q\210\212\302\303\304p\304\305\306&\210)\307\310\304\311#\203'\312\313!\210\202db\210\212\302\303\304p\304\305\314&\210)\307\310\304\311#\205E\312\315!\210\2026)\207" [anything-candidate-buffer global call-process "ratpoison" nil "-c" "help" re-search-forward "^\\([^ ]+\\) \\(.+\\)$" t replace-match " \\1: \\2" "help top" "\\1: \\2"] 7]) (defalias 'anything-c-ratpoison-commands-display-to-real #[(display) "\301\302\"\205\f\303\225\304O\207" [display string-match ": " 0 nil] 3]) (defalias 'anything-c-ratpoison-commands-execute #[(candidate) "\301\302\303\211\211\304&\207" [candidate call-process "ratpoison" nil "-ic"] 7]) #@969 Convert COLLECTION to list removing elements that don't match TEST. See `anything-comp-read' about supported COLLECTION arguments. SORT-FN is a predicate to sort COLLECTION. ALISTP when non--nil will not use `all-completions' to collect candidates because it doesn't handle alists correctly for anything. i.e In `all-completions' the keys (cars of elements) are the possible completions. In anything we want to use the cdr instead like (display . real). e.g (setq A '((a . 1) (b . 2) (c . 3))) ==>((a . 1) (b . 2) (c . 3)) (anything-comp-read "test: " A :alistp nil :exec-when-only-one t :initial-input "a") ==>"a" (anything-comp-read "test: " A :alistp t :exec-when-only-one t :initial-input "1") ==>"1" See docstring of `all-completions' for more info. If COLLECTION is an `obarray', a TEST should be needed. See `obarray'. (defalias 'anything-comp-read-get-candidates #[(collection &optional test sort-fn alistp) " =\203\n\203\306\307\n#\202\341\310!\203I\n\203I\311\312\211 \fT\211 GW\203B \fH\n !\203%  B \202% \237,\202\341\310!\203}\311\312\211T\211GW\203vH\211B\202Z\237,\202\341\203\264\n\203\264\312\211:\203\255@\n !\203\244 BA\211\202\220\237+\202\3419\203\304\313!\203\304J\202\341\203\315\202\341\203\335\n\203\335\306\307\n#\202\341\306\307\"\203\361\314\"\202\363)\207" [collection obarray test #1=#:--cl-vec-- #2=#:--cl-idx-- i all-completions "" vectorp -1 nil boundp sort #3=#:--cl-var-- #4=#:--cl-vec-- #5=#:--cl-idx-- #6=#:--cl-var-- alistp #7=#:--cl-var-- #8=#:--cl-var-- cands sort-fn] 5 (#$ . 304281)]) #@112 Default filter candidate function for `anything-comp-read'. Do nothing, just return candidate list unmodified. (defalias 'anything-cr-default-transformer #[(candidates source) "\207" [candidates] 1 (#$ . 306069)]) #@2928 Read a string in the minibuffer, with anything completion. It is anything `completing-read' equivalent. - PROMPT is the prompt name to use. - COLLECTION can be a list, vector, obarray or hash-table. It can be also a function that receives three arguments: the values string, predicate and t. See `all-completions' for more details. Keys description: - TEST: A predicate called with one arg i.e candidate. - INITIAL-INPUT: Same as input arg in `anything'. - PRESELECT: See preselect arg of `anything'. - DEFAULT: This option is used only for compatibility with regular Emacs `completing-read'. - BUFFER: Name of anything-buffer. - MUST-MATCH: Candidate selected must be one of COLLECTION. - REQUIRES-PATTERN: Same as anything attribute, default is 0. - HISTORY: A list containing specific history, default is nil. When it is non--nil, all elements of HISTORY are displayed in a special source before COLLECTION. - INPUT-HISTORY: A symbol. the minibuffer input history will be stored there, if nil or not provided, `minibuffer-history' will be used instead. - PERSISTENT-ACTION: A function called with one arg i.e candidate. - PERSISTENT-HELP: A string to document PERSISTENT-ACTION. - MODE-LINE: A string or list to display in mode line. (See `anything-mode-line-string') - KEYMAP: A keymap to use in this `anything-comp-read'. (The keymap will be shared with history source) - NAME: The name related to this local source. - EXEC-WHEN-ONLY-ONE: Bound `anything-execute-action-at-once-if-one' to non--nil. (possibles values are t or nil). - VOLATILE: Use volatile attribute (enabled by default). - SORT: A predicate to give to `sort' e.g `string-lessp'. - FC-TRANSFORMER: A `filtered-candidate-transformer' function. - MARKED-CANDIDATES: If non--nil return candidate or marked candidates as a list. - ALISTP: (default is non--nil) See `anything-comp-read-get-candidates'. - CANDIDATES-IN-BUFFER: when non--nil use a source build with `anything-candidates-in-buffer' which is much faster. Argument VOLATILE have no effect when CANDIDATES-IN-BUFFER is non--nil. Any prefix args passed during `anything-comp-read' invocation will be recorded in `anything-current-prefix-arg', otherwise if prefix args were given before `anything-comp-read' invocation, the value of `current-prefix-arg' will be used. That's mean you can pass prefix args before or after calling a command that use `anything-comp-read' See `anything-M-x' for example. (fn PROMPT COLLECTION &key TEST INITIAL-INPUT DEFAULT PRESELECT (BUFFER "*Anything Completions*") MUST-MATCH (REQUIRES-PATTERN 0) (HISTORY nil) INPUT-HISTORY (PERSISTENT-ACTION nil) (PERSISTENT-HELP "DoNothing") (MODE-LINE anything-mode-line-string) (KEYMAP anything-map) (NAME "Anything Completions") CANDIDATES-IN-BUFFER EXEC-WHEN-ONLY-ONE (VOLATILE t) SORT (FC-TRANSFORMER 'anything-cr-default-transformer) (MARKED-CANDIDATES nil) (ALISTP t)) (defalias 'anything-comp-read #[(prompt collection &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"\206$\314A@\306\315\"A@@\306\316\"\2067\317A@A\306\320\"A@<\306\321\"A@B\306\322\"A@?\306\323\"\206[\324A@C\306\325\"\206j\326DDA@E\306\327\"\206y\326FDA@G\306\330\"\206\205\331A@4\306\332\"A@H\306\333\"A@I\306\334\"\206\241\335A@J\306\336\"A@K\306\337\"\206\265\340A@L\306\341\"A@M\306\342\"\206\311\343A@NOO\203O@\344>\203\347OAA\211O\202\322\345>A@\203\366\326\211O\202\322\346\347O@\"\210\202\320)\350P!\203 \351P!\210\352Q\353KR\354\216\353QM\210@\355=\203%\356@@S@\205<\357 T\360T\361\362#\210T)\211U\203P\363UG\206LF\"\202WG\206WFF\364\365\3664\"B\367\370\326\371\372\373\374\326\211N\257DC\375BBF\376\377?B\201CCB\201EEB\201^\353B\257V\3644B\201_\201`LD\201AAB\377?B\201CCB\201EEB\201^\353B\257W\3644B\201a\201b\201`LD\201AAB\377?B\201CCB\201EEB\201^\353B\257 XVH\203\364X\202J\203\201cW\201d\"\202WDYIZ\201e\201fY\201g\n\311 \312\f\201h[\201i\201j\327F\320B9\2055B\313 &\206x\\\201k=\203b@\356=\203b]\201l\230\203] \203] \202_]\206x\\\201m=\204t@\204t \206x\201n . \207" [#1# test initial-input default preselect buffer plist-member :test :initial-input :default :preselect :buffer (nil "*Anything Completions*") :must-match :requires-pattern (nil 0) :history :input-history :persistent-action :persistent-help (nil "DoNothing") :mode-line nil :keymap :name (nil "Anything Completions") :candidates-in-buffer :exec-when-only-one :volatile (nil t) :sort :fc-transformer (nil anything-cr-default-transformer) :marked-candidates :alistp (nil t) (:test :initial-input :default :preselect :buffer :must-match :requires-pattern :history :input-history :persistent-action :persistent-help :mode-line :keymap :name :candidates-in-buffer :exec-when-only-one :volatile :sort :fc-transformer :marked-candidates :alistp :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:test :initial-input :default :preselect :buffer :must-match :requires-pattern :history :input-history :persistent-action :persistent-help :mode-line :keymap :name :candidates-in-buffer :exec-when-only-one :volatile :sort :fc-transformer :marked-candidates :alistp)" get-buffer kill-buffer #[(candidate) "\203\302 \207 \207" [marked-candidates candidate anything-marked-candidates] 1] action-fn ((byte-code "\301M\207" [#2=#:old action-fn] 2)) confirm-after-completion confirm make-sparse-keymap define-key " " anything-confirm-and-exit-minibuffer make-composed-keymap name format "%s History" candidates lambda let all anything-comp-read-get-candidates history ((delete #3="" (anything-fast-remove-dups (if (and default (not (string= default #3#))) (delq nil (cons default (delete default all))) all) :test 'equal))) (filtered-candidate-transformer lambda (candidates sources) (loop for i in candidates do (set-text-properties 0 (length i) nil i) collect i)) persistent-action must-match requires-pattern input-history persistent-help anything-mode-line-string mode-line anything-map keymap candidates-in-buffer exec-when-only-one volatile sort fc-transformer marked-candidates alistp #4=#:--cl-keys-- anything-action-buffer #5=#:vnew #2# minibuffer-completion-confirm map must-match-map src-hist src src-1 src-list anything-execute-action-at-once-if-one prompt anything-exit-status anything-pattern action (candidates lambda nil (let ((cands (anything-comp-read-get-candidates collection test sort alistp))) (unless (or must-match (string= anything-pattern #3#)) (setq cands (append (list anything-pattern) cands))) (if (and default (not (string= default #3#))) (delq nil (cons default (delete default cands))) cands))) filtered-candidate-transformer (init lambda nil (let ((cands (anything-comp-read-get-candidates collection test sort alistp))) (unless (or must-match (string= anything-pattern #3#)) (setq cands (append (list anything-pattern) cands))) (with-current-buffer (anything-candidate-buffer 'global) (loop for i in (if (and default (not (string= default #3#))) (delq nil (cons default (delete default cands))) cands) do (insert (concat i "\n")))))) (candidates-in-buffer) append ((volatile)) anything :sources :input :prompt :resume noresume 0 #3# 1 keyboard-quit] 20 (#$ . 306292)]) (defvar anything-completion-mode-string " AC") (defvar anything-completion-mode-quit-message "Anything completion disabled") (defvar anything-completion-mode-start-message "Anything completion enabled") #@64 Specialized function for fast symbols completion in `ac-mode'. (defalias 'anything-completing-read-symbols #[(prompt collection test require-match init hist default inherit-input-method name buffer) "\306\307\300B\310B\311 \312\n\313 \314\f\315\316\317 \206\320&\206\321 \207" [name prompt buffer init hist default anything :sources ((init lambda nil (with-current-buffer (anything-candidate-buffer 'global) (goto-char (point-min)) (when (and default (stringp default) (not (string= default "nil")) (not (string= default #1=""))) (insert (concat default "\n"))) (loop with all = (all-completions #1# collection test) for sym in all unless (and default (eq sym default)) do (insert (concat sym "\n"))))) (persistent-action . anything-lisp-completion-persistent-action) (persistent-help . "Show brief doc in mode-line") (candidates-in-buffer) (action . identity)) :prompt :buffer :input :history :resume noresume :default #1# keyboard-quit] 15 (#$ . 313843)]) #@228 Call `anything-comp-read' with same args as `completing-read'. Extra optional arg CANDS-IN-BUFFER mean use `candidates-in-buffer' method which is faster. It should be used when candidate list don't need to rebuild dynamically. (defalias 'anything-completing-read-default-1 #[(prompt collection test require-match init hist default inherit-input-method name buffer &optional cands-in-buffer exec-when-only-one) "\242\206\306\n \307\f\310 \311 \312 \313\314\315\316\317\230\203/ \320=\204+ \321=\203/\322\2020\323\324\325\326\327\206@\317\330;\205K\331!&)\207" [hist history prompt collection test require-match anything-comp-read :test :history :input-history :must-match :alistp nil :name :requires-pattern "" confirm confirm-after-completion 1 0 :candidates-in-buffer :exec-when-only-one :buffer :default :initial-input regexp-quote name default cands-in-buffer exec-when-only-one buffer init] 28 (#$ . 314814)]) #@76 Same as `anything-completing-read-default-1' but use candidates-in-buffer. (defalias 'anything-completing-read-with-cands-in-buffer #[(prompt collection test require-match init hist default inherit-input-method name buffer) "\306\307\"\310\n \f \n \f \311& )\207" [collection cands prompt test require-match init all-completions "" anything-completing-read-default-1 t hist default inherit-input-method name buffer] 12 (#$ . 315762)]) #@265 An anything replacement of `completing-read'. This function should be used only as a `completing-read-function'. Don't use it directly, use instead `anything-comp-read' in your programs. See documentation of `completing-read' and `all-completions' for details. (defalias 'anything-completing-read-default #[(prompt collection &optional predicate require-match initial-input hist def inherit-input-method) "\300\301\215\207" [--cl-block-anything-completing-read-default-- (byte-code "\306 !\307\310\n\" \f\236\211\243\211\205\306! !\"#$%\257&\311&\n D\"'\312\211()* +\313\314,\",\315=\203Y\316 \203s\204s\317\320\321\216\322\323!\210\324-&\")\"\210\325=\204\210;\203\214\326\327\"\204\214\322\323!\210\330\216\203\241.\203\241\324'\"\202\347\203\304\316=\203\304&>\331\332 #\240\210\324&\"\202\347\203\322\324&\"\202\347\333 !\"#$%\n &\n.\207" [this-command current-command str-command buf-name anything-completing-read-handlers-alist entry symbol-name format "*ac-mode-%s*" append nil remove minibuffer-completion-help ido ido-completing-read throw --cl-block-anything-completing-read-default-- ((ac-mode 1)) ac-mode -1 apply completing-read string-match "^anything" ((byte-code "\302\303!\210\302\207" [current-command this-command ac-mode 1] 2)) all-completions "" anything-completing-read-default-1 def-com str-defcom prompt collection predicate require-match initial-input hist def inherit-input-method def-args any-args anything-completion-mode-start-message anything-completion-mode-quit-message minibuffer-completion-table minibuffer-completion-predicate minibuffer-setup-hook completing-read-function anything-completion-mode] 12)] 2 (#$ . 316213)]) #@46 An anything replacement of `read-file-name'. (defalias 'anything-generic-read-file-name #[(prompt &optional dir default-filename mustmatch initial predicate) "\300\301\215\207" [--cl-block-anything-generic-read-file-name-- (byte-code "\205<\203@\202\211\206\n\206 \206\f\211\205%\306 !%&'\307'!\211(\310()\"B)\311\312(\"*'+\236\211,\243-\307-!./ 0\n1\2572\3132(*D\"34\314\21156\3147-\203\212\315-!G\316V\203\212\317--\320=\203\224\321-,\203\257-\204\257\322\323\324\216\325\326!\210\32782\")\"\210-\330=\204\313-\321=\204\313.;\203\317\331\332.\"\204\317\325\326!\210\333\216-\203\3629\203\362-\321=\204\362-\317=\204\362\327-3\"\2023-\203 -\321=\203 \334\335!\210\327-2\"\2023-\330=\203\327-2\"\2023\336/\337(\340*\341\306 \"\342\314\3430\3441& 7)7.\207" [default-filename default initial dir default-directory init expand-file-name symbol-name remove format "*ac-mode-%s*" append nil help-function-arglist 8 incompatible ido ido-read-file-name throw --cl-block-anything-generic-read-file-name-- ((ac-mode 1)) ac-mode -1 apply read-file-name string-match "^anything" ((byte-code "\303\304!\210\305\203 \304\202\306!\210 \303\207" [ido-state current-command this-command ac-mode 1 ido-mode -1] 2)) ido-mode 1 anything-c-read-file-name :name :buffer :initial-input :alistp :must-match :test ini-input this-command current-command str-command anything-file-completion-sources buf-name anything-completing-read-handlers-alist entry def-com str-defcom prompt mustmatch predicate def-args any-args ido-state anything-completion-mode-start-message anything-completion-mode-quit-message fname read-file-name-function anything-completion-mode] 15)] 2 (#$ . 317981)]) #@293 Non-nil if Anything-Completion mode is enabled. See the command `anything-completion-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `anything-completion-mode'. (custom-declare-variable 'anything-completion-mode nil '(#$ . 319758) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'anything :type 'boolean) #@646 Toggle generic anything completion. All functions in Emacs that use `completing-read' or `read-file-name' and friends will use anything interface when this mode is turned on. However you can modify this behavior for functions of your choice with `anything-completing-read-handlers-alist'. Called with a positive arg, turn on unconditionally, with a negative arg turn off. You can turn it on with `ac-mode'. Some crap emacs functions may not be supported, e.g `ffap-alternate-file' and maybe others You can add such functions to `anything-completing-read-handlers-alist' with a nil value. Note: This mode will work only partially on Emacs23. (defalias 'anything-completion-mode #[(&optional arg) "\306  \307=\203\n?\202\310 !\311V\211\203#\312\313\314 !\210\2028\315\316!\205*\316\315\317!\2052\317\314!\210\320\321\n\203B\322\202C\323\"\210\324\325!\203h\326\302!\210\306 \203[\306 \232\203h\314\327\n\203e\330\202f\331\"\210)\332 \210\n\207" [#1=#:last-message arg anything-completion-mode completing-read-function read-file-name-function anything-completion-mode-start-message current-message toggle prefix-numeric-value 0 anything-completing-read-default anything-generic-read-file-name message fboundp completing-read-default read-file-name-default run-hooks anything-completion-mode-hook anything-completion-mode-on-hook anything-completion-mode-off-hook called-interactively-p any customize-mark-as-set "Anything-Completion mode %sabled" "en" "dis" force-mode-line-update anything-completion-mode-quit-message] 4 (#$ . 320227) (list (or current-prefix-arg 'toggle))]) #@189 Hook run after entering or leaving `anything-completion-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar anything-completion-mode-hook nil (#$ . 321836)) (byte-code "\301\302\303\304\300!\205\n\305\211%\210\306\307\302\"\207" [anything-completion-mode-map add-minor-mode anything-completion-mode anything-completion-mode-string boundp nil defalias ac-mode] 6) #@40 Anything source for Eshell completion. (defvar anything-c-source-esh '((name . "Eshell completions") (init lambda nil (setq pcomplete-current-completions nil pcomplete-last-completion-raw nil) (remove-hook 'minibuffer-setup-hook 'eshell-mode)) (candidates . anything-esh-get-candidates) (action . anything-ec-insert)) (#$ . 322295)) (defvar anything-ec-target "") #@188 Replace text at point with CANDIDATE. The function that call this should set `anything-ec-target' to thing at point. This is the same as `ac-insert', just inlined here for compatibility. (defalias 'anything-ec-insert #[(candidate) "` \203\303 \304\305#\203`{ \230\203`|\210)\306\n!c\207" [pt anything-ec-target candidate search-backward nil t anything-quote-whitespace] 4 (#$ . 322666)]) #@57 Get candidates for eshell completion using `pcomplete'. (defalias 'anything-esh-get-candidates #[nil "\300\301\215\207" [pcompleted (byte-code "\306\211\306\211\306\211rq\210\307 \306\310\311\217\312\"\306\211\306:\203\207@\205W\313!\203O\202W\314\315!\"\211\203v\313!\204k\316!\203vC\244\202~C\244A\211\2025\203\250\317\230\204\250\316!\203\250\320\314\"C\"\202\252.\207" [pcomplete-stub pcomplete-seen pcomplete-norm-func pcomplete-args pcomplete-last pcomplete-index nil pcomplete-completions (byte-code "\301\302 \"\206 \207" [anything-pattern try-completion pcomplete-entries] 3) ((error (byte-code "\301\302 !@\303!\205 )\207" [fc last pcomplete-parse-arguments file-name-directory] 2))) all-completions file-remote-p expand-file-name file-name-directory file-exists-p "" append pcomplete-autolist pcomplete-suffix-list anything-current-buffer table entry #1=#:--cl-var-- i file-cand ls default-directory] 5)] 2 (#$ . 323069)]) #@37 Anything source for Eshell history. (defvar anything-c-source-eshell-history (byte-code "\301\302\303\304B\305BBBB\207" [anything-eshell-history-map (name . "Eshell history") (init lambda nil (let (eshell-hist-ignoredups) (eshell-write-history eshell-history-file-name t) (with-current-buffer (anything-candidate-buffer 'global) (insert-file-contents eshell-history-file-name))) (remove-hook 'minibuffer-setup-hook 'eshell-mode)) (candidates-in-buffer) keymap ((filtered-candidate-transformer lambda (candidates sources) (reverse candidates)) (candidate-number-limit . 9999) (action lambda (candidate) (eshell-kill-input) (insert candidate)))] 5) (#$ . 324113)) (defalias 'anything-c-show-completion #[nil "rq\210\302 \303\304 #)\207" [anything-current-buffer anything-c-show-completion-overlay overlay-put display anything-get-selection] 4]) (defalias 'anything-c-show-completion-init-overlay #[(beg end) "\205\304 \n\"\211\205\305 \306\307#\207" [anything-c-turn-on-show-completion beg end anything-c-show-completion-overlay make-overlay overlay-put face anything-lisp-show-completion] 4]) #@76 A special resized anything window is used depending on position in BUFFER. (defalias 'anything-c-show-completion-display-function #[(buffer) "\306\307 !r\310\216\311@\312\"\210\313\314\315 `\316#\317 \203\317\202\320#\321 Z \n\f^]\322\323\324!\210\325\326 \203?\327 \202D\330\322\"\".\207" [save-selected-window--state header-line-format screen-size anything-c-show-completion-min-window-height def-size window-min-height internal--before-with-selected-window selected-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord + count-screen-lines window-start t 1 0 window-height nil recenter -1 set-window-buffer active-minibuffer-window minibuffer-selected-window split-window upper-height split-window-keep-point buffer] 5 (#$ . 325219)]) #@282 Show anything candidate in an overlay at point. BEG and END are the beginning and end position of the current completion in `anything-current-buffer'. BODY is an anything call where we want to enable show completion. If `anything-c-turn-on-show-completion' is nil just do nothing. (defalias 'with-anything-show-completion '(macro . #[(beg end &rest body) "\303\304\305\306\307 E\303\310\nBBE\311BBE\207" [beg end body let ((anything-move-selection-after-hook (and anything-c-turn-on-show-completion (append (list 'anything-c-show-completion) anything-move-selection-after-hook)))) unwind-protect progn anything-c-show-completion-init-overlay ((anything-display-function (if anything-c-show-completion-use-special-display 'anything-c-show-completion-display-function 'anything-default-display-buffer))) ((and anything-c-turn-on-show-completion (delete-overlay anything-c-show-completion-overlay)))] 8 (#$ . 326030)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put with-anything-show-completion lisp-indent-function 2 edebug-form-spec t] 4) #@43 Anything lisp symbol completion at point. (defalias 'anything-lisp-completion-at-point #[nil "\306 \211@`\307\233\310 \311\"\312 \205\n\205\313 \n\"\314\3158\f#\316\211 \317!\235\"\203s#\205G\320\321C$\"$\322\216\323 \n\"\210%\203Y\324\202Z\325&\326\327\330\331\"\203l\332P\202n$+\202v\333\334!. \207" [data beg end plist pred lgst-len lisp-completion-at-point 3 plist-get :predicate 0 buffer-substring-no-properties all-completions 2 t anything-compile-source--match-plugin append anything-c-show-completion ((byte-code "\203\302 !\210\302\207" [anything-c-turn-on-show-completion anything-c-show-completion-overlay delete-overlay] 2)) anything-c-show-completion-init-overlay anything-c-show-completion-display-function anything-default-display-buffer anything :sources ((name . "Lisp completion") (init lambda nil (with-current-buffer (anything-candidate-buffer 'global) (loop for sym in candidates for len = (length sym) when (> len lgst-len) do (setq lgst-len len) do (insert (concat sym "\n"))))) (candidates-in-buffer) (persistent-action . anything-lisp-completion-persistent-action) (persistent-help . "Show brief doc in mode-line") (filtered-candidate-transformer anything-lisp-completion-transformer) (action lambda (candidate) (delete-region beg end) (insert candidate))) :input " " message "[No Match]" target candidates anything-quit-if-no-candidate anything-execute-action-at-once-if-one anything-compile-source-functions anything-match-plugin-enabled anything-c-turn-on-show-completion anything-move-selection-after-hook anything-c-show-completion-use-special-display anything-display-function] 7 (#$ . 327091) nil]) (defalias 'anything-lisp-completion-persistent-action #[(candidate) "\303\304\305\306\307\310\n!!\311\312#!*\207" [mode-line-in-non-selected-windows cursor-in-echo-area candidate t nil anything-c-show-info-in-mode-line propertize anything-c-get-first-line-documentation intern face anything-lisp-completion-info] 5]) #@54 Anything candidates transformer for lisp completion. (defalias 'anything-lisp-completion-transformer #[(candidates source) "\306\211\306\211\306 :\203Z @\307\n!\310 !\203#\311\202>\312 !\203-\313\202>\314 !\2037\315\202>\316 !\205>\317\320\nGZ\321\"\n \fQ\nBB A\211\202\237.\207" [candidates #1=#:--cl-var-- c sym annot spaces nil intern commandp " (Com)" fboundp " (Fun)" boundp " (Var)" facep " (Face)" make-string 32 #2=#:--cl-var-- lgst-len] 4 (#$ . 329092)]) #@99 Return first line documentation of symbol SYM. If SYM is not documented, return "Not documented". (defalias 'anything-c-get-first-line-documentation #[(sym) "\303!\203 \304\305\"\202(\306!\203\307\310\305#\202(\311!\203'\312!\202(\313\211\203K \314\230\204K\315 \313\305\316#)\266\203\204K\317 \320\"@\202L\321)\207" [sym doc inhibit-changing-match-data fboundp documentation t boundp documentation-property variable-documentation facep face-documentation nil "" "^\n\n" string-match split-string "\n" "Not documented"] 8 (#$ . 329594)]) #@99 Get symbol name before point. Borrowed from anything-complete.el, inlined here for compatibility. (defalias 'anything-c-thing-before-point #[nil "\212`\301\302\303\304\211\305 #\306#\205\307\310\225\"*\207" [beg re-search-backward "\\_<" field-beginning nil point-at-bol t buffer-substring-no-properties 0] 6 (#$ . 330160)]) #@30 Complete file name at point. (defalias 'anything-c-complete-file-name-at-point #[nil "\306\307\310!!``GZ\311\211\312\205\313\314C\"\315\216\316\n \"\210\2030\317\2021\320\321\322\323#+\324 !.\207" [init end beg anything-quit-if-no-candidate anything-execute-action-at-once-if-one completion substring-no-properties thing-at-point filename t nil append anything-c-show-completion ((byte-code "\203\302 !\210\302\207" [anything-c-turn-on-show-completion anything-c-show-completion-overlay delete-overlay] 2)) anything-c-show-completion-init-overlay anything-c-show-completion-display-function anything-default-display-buffer anything-c-read-file-name "FileName: " :initial-input anything-c-insert-file-name-completion-at-point anything-c-turn-on-show-completion anything-move-selection-after-hook anything-c-show-completion-use-special-display anything-display-function] 5 (#$ . 330495) nil]) (defvar anything-lisp-completion-counter 0) #@333 First call indent and second call complete lisp symbol. The second call should happen before `anything-lisp-completion-or-indent-delay', after this delay, next call will indent again. After completion, next call is always indent. See that like click and double mouse click. One hit indent, two quick hits maybe indent and complete. (defalias 'anything-lisp-completion-at-point-or-indent #[(arg) "\303=\203\n\304\202  T\305\216 \306V\203\307 \202\310\n!*\207" [tab-always-indent anything-lisp-completion-counter arg complete t ((byte-code "\302\303\304#\210 \305=\203\306\303\207" [anything-lisp-completion-or-indent-delay anything-lisp-completion-counter run-with-timer nil #[nil "\301\211\207" [anything-lisp-completion-counter 0] 2] 2 0] 4)) 1 anything-lisp-completion-or-file-name-at-point indent-for-tab-command] 2 (#$ . 331464) "P"]) #@123 Complete lisp symbol or filename at point. Filename completion happen if filename is started in or between double quotes. (defalias 'anything-lisp-completion-or-file-name-at-point #[nil "\301\302\303!!\211\203!\304\305\"\203!\212\306\307\310 \311#)\203!\312 \202#\313 )\207" [tap substring-no-properties thing-at-point filename string-match "^\\(~/\\|/\\|[a-zA-Z]:/\\).*" search-backward "\"" point-at-bol t anything-c-complete-file-name-at-point anything-lisp-completion-at-point] 5 (#$ . 332325) nil]) #@58 Init candidates buffer for `anything-c-apropos' sources. (defalias 'anything-c-apropos-init #[(test default) "r\306\307!q\210eb\210\203%;\203%\310\230\204% \311!!\203%\312Pc\210\313\314\n #\211\315\f:\203M\f@\203A =\204F \312Pc\210\fA\211\2020,\315\207" [default test obarray all #1=#:--cl-var-- sym anything-candidate-buffer global "nil" intern "\n" all-completions "" nil] 5 (#$ . 332841)]) (defvar anything-external-command-history nil) #@230 Returns a list of all external commands the user can execute. If `anything-c-external-commands-list' is non-nil it will return its contents. Else it calculates all external commands and sets `anything-c-external-commands-list'. (defalias 'anything-c-external-commands-list-1 #[(&optional sort) "\203\207\306\307\310! \"\311\n\311\211\311\f:\203\203\f@\312 !\203v\313 !\203v\314 \315\"\311\211\311:\203p@\316!\211 \235\204g\317!\204g\320!\203gBA\211\202=\237,\321 \"\fA\211\202\203\217\322 \323\"\202\220 .\211\207" [anything-c-external-commands-list path-separator paths completions #1=#:--cl-var-- dir split-string getenv "PATH" nil file-exists-p file-accessible-directory-p directory-files t file-name-nondirectory file-directory-p file-executable-p append sort string-lessp lsdir #2=#:--cl-var-- i bn #3=#:--cl-var--] 4 (#$ . 333308)]) #@234 Generic command that run asynchronously EXE. If EXE is already running just jump to his window if `anything-raise-command' is non--nil. When FILE argument is provided run EXE with FILE. In this case EXE must be provided as "EXE %s". (defalias 'anything-run-or-raise #[(exe &optional file) "\306\307!\211\211\310\311\312\313\n#!@L\210)\306\314!\211\211 \203%J\315 Q\202'JL\210)\316 J!\203I#\203A\317\320#J\"!\202\315\321\322J\"\202\315$%\323&\324'\323(%:\203v%@&J\211(?\211'\203v%A\211%\202X(,\203\301\325\326J\"\210 \203\242\327 J\323\320\n\330)\331=\203\232\332 !\202\233 !\"#\210\202\252\327 J\323J#\210\333\316 J!\334\335\336\337\340D\337 D\337D\341\257E\"\210J\342J$\"B\211$*\207" [#1=#:--cl-real-com-- #2=#:v exe #3=#:--cl-proc-- #4=#:v file make-symbol "--real-com--" split-string replace-regexp-in-string "%s" "" "--proc--" " " get-process shell-command format error "Error: %s is already running" nil t message "Starting %s..." start-process-shell-command shell-quote-argument windows-nt anything-w32-prepare-filename set-process-sentinel lambda (&rest --cl-rest--) apply quote #[(#5=#:G66605 #6=#:G66606 process event) "\304\230\203 \203\305\nJ!\204\306\307 \310\"!\210\311\312 \"\207" [event anything-raise-command #6# process "finished\n" anything-c-get-pid-from-process-name shell-command format "emacs" message "%s process...Finished."] 4] --cl-rest-- delete anything-raise-command anything-c-external-commands-list #7=#:--cl-var-- i #8=#:--cl-flag-- #9=#:--cl-var-- system-type] 10 (#$ . 334223)]) #@59 Returns a list of buffer names corresponding to FILENAME. (defalias 'anything-c-file-buffers #[(filename) "\306!\307\310 \307\211\203.\f@\311 !\211\203&\n \230\203&\312 ! B)\fA\211\204\307 ,\207" [filename buf-list name buf --dolist-tail-- bfn expand-file-name nil buffer-list buffer-file-name buffer-name] 3 (#$ . 335795)]) (defalias 'anything-revert-buffer #[(candidate) "rq\210\301 \204\302\303!!?\205\304\305\211\")\207" [candidate buffer-modified-p verify-visited-file-modtime get-buffer revert-buffer t] 3]) (defalias 'anything-revert-marked-buffers #[(ignore) "\300\301\302 \"\207" [mapc anything-revert-buffer anything-marked-candidates] 3]) (defalias 'anything-kill-marked-buffers #[(ignore) "\300\301\302 \"\207" [mapc kill-buffer anything-marked-candidates] 3]) #@100 Delete the given file after querying the user. Ask to kill buffers associated with that file, too. (defalias 'anything-c-delete-file #[(file &optional error-if-dot-file-p) "\203\306 !\203\307\310!\210\311 ! \312W\203W\313 !\204=\314 !\203=\315 \316\f#\203=\317\320\321 \"!\203]\322 \323\"\210\202]\313 !\204P\314 !\203P\322 !\210\202]\324 !\210\202]\325 \326 #\210\n\205\212\n\327\211\205\211@\317\320\330\"!\203\331!\210A\211\204k\327*)\207" [error-if-dot-file-p file buffers emacs-major-version dired-re-no-dot delete-by-moving-to-trash anything-ff-dot-file-p error "Error: Cannot operate on `.' or `..'" anything-c-file-buffers 24 file-symlink-p file-directory-p directory-files t y-or-n-p format "Recursive delete of `%s'? " delete-directory recursive delete-file dired-delete-file dired-recursive-deletes nil "Kill buffer %s, too? " kill-buffer buf --dolist-tail--] 5 (#$ . 336596)]) #@125 Get the command to use for FILENAME from mailcap files. The command is like and is meant to use with `format'. (defalias 'anything-get-mailcap-for-file #[(filename) "\304 \210\305!\211\205\306 !\211\205\307\n!\211;\205 +\207" [filename ext mime result mailcap-parse-mailcaps file-name-extension mailcap-extension-to-mime mailcap-mime-info] 3 (#$ . 337529)]) #@160 Try to find a default program to open FILENAME. Try first in `anything-c-external-programs-associations' and then in mailcap file if nothing found return nil. (defalias 'anything-get-default-program-for-file #[(filename) "\305!\306 \n\"\211\203 \307\230\204 \310P\202,\f\203)\311!\203)\f\310P\202,\312!*\207" [filename ext anything-c-external-programs-associations def-prog anything-c-default-external-file-browser file-name-extension assoc-default "" " %s" file-directory-p anything-get-mailcap-for-file] 4 (#$ . 337917)]) #@189 Open FILE with an external program. Try to guess which program to use with `anything-get-default-program-for-file'. If not found or a prefix arg is given query the user which tool to use. (defalias 'anything-c-open-file-externally #[(file) "\306!\307\310!\311 !\f\204 \204$\312\313\n\314\315\316\317\320 &\321\202)\322\323\324 #\211#\325P$ \204n\326 !\203n\327\330\331#\"!\203n\332\333 ! \"\211%\203Y\334% \" )\333 !\335\336#\"B B \337\340 \"\210\341$\"\210#\334# &\321\211'(&:\203\244&@'\342'!\203\233'(B(&A\211&\202\204(\237+\"B\211-\207" [file fname collection def-prog anything-current-prefix-arg anything-external-command-history expand-file-name anything-c-external-commands-list-1 sort anything-get-default-program-for-file anything-comp-read "Program: " :must-match t :name "Open file Externally" :history nil replace-regexp-in-string " %s\\| '%s'" "" " %s" file-exists-p y-or-n-p format "Do you want to make `%s' the default program for this kind of files? " assoc file-name-extension delete read-string "Program (Add args maybe and confirm): " customize-save-variable anything-c-external-programs-associations anything-run-or-raise executable-find real-prog-name program it #1=#:--cl-var-- i #2=#:--cl-var--] 10 (#$ . 338461)]) #@66 Open file CANDIDATE or open anything marked files in background. (defalias 'anything-c-find-file-or-marked #[(candidate) "\306 \307\211G\310V\203\311\312 A\"\210\313 @!\202c\314\f!\204_ \203_\315 \f\"\204_\315\316\f\"\203_\317\320\321\f\"!\205c\322\f!\314!\203S\323\324\325!\"\210\202X\326\f\327\"\210)\330\f!\202c\331 @!+\207" [anything-ff-newfile-prompt-p find-file-wildcards ffap-newfile-prompt marked candidate ffap-url-regexp anything-marked-candidates nil 1 mapc find-file-noselect find-file file-exists-p string-match "/$" y-or-n-p format "Create directory `%s'? " directory-file-name error "Mkdir: Unable to create directory `%s': file exists." anything-c-basename make-directory parent anything-find-files-1 find-file-at-point dirfname] 5 (#$ . 339752)]) (defalias 'anything-delete-marked-files #[(ignore) "\305 \211G\306\307\310 \311\312\313##!\204\314\315!\202>\316\211\2039 @\317\320\nG\316\n$\210\321\n\f\"\210 A\211\204\"*\314\322 \"*\207" [files len i --dolist-tail-- anything-ff-signal-error-on-dot-files anything-marked-candidates y-or-n-p format "Delete *%s File(s):\n%s" mapconcat #[(f) "\301\302\"\207" [f format "- %s\n"] 3] "" message "(No deletions performed)" nil set-text-properties 0 anything-c-delete-file "%s File(s) deleted"] 9]) #@120 Ediff 2 marked buffers or CANDIDATE and `anything-current-buffer'. With optional arg MERGE call `ediff-merge-buffers'. (defalias 'anything-ediff-marked-buffers #[(candidate &optional merge) "\305 G\306\211\307\n\310\"\203\311\312!\210\202@\307\n\313\"\203& \305 @\202@\307\n\314\"\203<\305 @\305 \211A@\262\202@\311\315!\210\f\203K\316 \"\202O\317 \"+\207" [buf2 buf1 lg-lst anything-current-buffer merge anything-marked-candidates nil eql 0 error "Error:You have to mark at least 1 buffer" 1 2 "Error:To much buffers marked!" ediff-merge-buffers ediff-buffers] 3 (#$ . 341053)]) #@92 Ediff merge `anything-current-buffer' with CANDIDATE. See `anything-ediff-marked-buffers'. (defalias 'anything-ediff-marked-buffers-merge #[(candidate) "\301\302\"\207" [candidate anything-ediff-marked-buffers t] 3 (#$ . 341658)]) #@129 Return bookmark name even if it is a bookmark with annotation. e.g prepended with *. Return nil if bmk is not a valid bookmark. (defalias 'anything-bookmark-get-bookmark-from-name #[(bmk) "\303\304\305#\306 \n\"\203 \202\306\n\"\205)\207" [bmk bookmark bookmark-alist replace-regexp-in-string "*" "" assoc] 4 (#$ . 341897)]) #@47 Delete this bookmark or all marked bookmarks. (defalias 'anything-delete-marked-bookmarks #[(ignore) "\302 \303\211\205 @\304\305!\306\"\210 A\211\204 \303*\207" [i --dolist-tail-- anything-marked-candidates nil bookmark-delete anything-bookmark-get-bookmark-from-name batch] 4 (#$ . 342238)]) (defalias 'anything-require-or-error #[(feature function) "\302\303\304#\206 \305\306 #\207" [feature function require nil t error "Need %s to use `%s'."] 4]) #@69 Open buffer in new screen, if marked buffers open all in elscreens. (defalias 'anything-find-buffer-on-elscreen #[(candidate) "\305\306\307\"\210\310 \211\203/\311\211\205+\n@\312\313 !\314\"\315 !\210)\nA\211\204\311*\202:\312\313\f!\314\"\315 !))\207" [it i --dolist-tail-- target-screen candidate anything-require-or-error elscreen anything-find-buffer-on-elscreen anything-marked-candidates nil elscreen-find-screen-by-buffer get-buffer create elscreen-goto] 4 (#$ . 342708)]) (defalias 'anything-elscreen-find-file #[(file) "\301\302\303\"\210\304!\207" [file anything-require-or-error elscreen anything-elscreen-find-file elscreen-find-file] 3]) #@72 Convert filename FILE to something usable by external w32 executables. (defalias 'anything-w32-prepare-filename #[(file) "\301\302\303\301\304\305\306\211%\306\307%\207" [file replace-regexp-in-string "/" "\\" "/cygdrive/\\(.\\)" "\\1:" nil t] 9 (#$ . 343380)]) (defalias 'anything-w32-shell-execute-open-file #[(file) "\301\302\303!\"\207" [file w32-shell-execute "open" anything-w32-prepare-filename] 4 nil "fOpen file:"]) #@51 Open FILE with the default tool on this platform. (defalias 'anything-c-open-file-with-default-tool #[(file) "\302=\203\n\303 !\207\304\305\306\307=\203\310\202$\311=\204#\312=\205$\313 $\207" [system-type file windows-nt anything-w32-shell-execute-open-file start-process "anything-c-open-file-with-default-tool" nil gnu/linux "xdg-open" darwin macos "open"] 5 (#$ . 343813)]) #@89 Opens a dired buffer in FILE's directory. If FILE is a directory, open this directory. (defalias 'anything-c-open-dired #[(file) "\301!\203\n\302!\207\302\303!!\210\304!\207" [file file-directory-p dired file-name-directory dired-goto-file] 3 (#$ . 344207)]) (defalias 'anything-c-display-to-real-line #[(candidate) "\301\302\"\203\303\304\305\"!\304\306\"D\207\307\310!\207" [candidate string-match "^ *\\([0-9]+\\):\\(.*\\)$" string-to-number match-string 1 2 error "Line number not found"] 4]) (defalias 'anything-c-action-line-goto #[(lineno-and-content) "\302\303\304\305\306!!\307\310\306!\203 \204\311\202\312C\"#\207" [lineno-and-content anything-in-persistent-action apply anything-goto-file-line anything-interpret-value anything-attr target-file append anything-attr-defined find-file-other-window find-file] 7]) #@69 (fn FILE-LINE-CONTENT &optional (FIND-FILE-FUNCTION #'find-file)) (defalias 'anything-c-action-file-line-goto #[(file-line-content &rest #1=#:--cl-rest--) "\203\f\211A\242\202 \303\203\304\305\306\307G\\D\"\210\310\311\n;\203*\312\n!A\202+\n\")\207" [#1# find-file-function file-line-content find-file signal wrong-number-of-arguments anything-c-action-file-line-goto 2 apply anything-goto-file-line anything-c-filtered-candidate-transformer-file-line-1] 5 (#$ . 345055)]) (require 'compile) (defalias 'anything-c-filtered-candidate-transformer-file-line #[(candidates source) "\301\302\303\304\"\"\207" [candidates delq nil mapcar anything-c-filtered-candidate-transformer-file-line-1] 5]) (defalias 'anything-c-filtered-candidate-transformer-file-line-1 #[(candidate) "\306\307\"\205@\310\311\"\310\312\"\310\313\"\314\315\316 \317\f#\316\n\317 # $\320 \321\322\323!!\2068\324 \2058\325\323\324 \"\"\326\n! E+B\207" [candidate content lineno filename compilation-info-face compilation-line-face string-match "^\\(.+?\\):\\([0-9]+\\):\\(.*\\)$" match-string 1 2 3 format "%s:%s\n %s" propertize face expand-file-name anything-interpret-value anything-attr default-directory anything-candidate-buffer buffer-local-value string-to-number] 7]) #@71 (fn FILE LINENO CONTENT &optional (FIND-FILE-FUNCTION #'find-file)) (defalias 'anything-goto-file-line #[(file lineno content &rest #1=#:--cl-rest--) "\203\f\211A\242\202 \306\203\307\310\311\312G\\D\"\210\313\314!\211\203'\n \210) \2030 !\210\315\316!\203B\317\f \315\320!?#\210\202K\321\f\322\315\320!?#\210\313\323!\211\203V\n \210)\205^\324 )\207" [#1# find-file-function it file lineno content find-file signal wrong-number-of-arguments anything-goto-file-line 4 anything-attr before-jump-hook anything-attr-defined adjust anything-c-goto-line-with-adjustment recenter anything-goto-line nil after-jump-hook anything-match-line-color-current-line anything-in-persistent-action] 6 (#$ . 346328)]) (defalias 'anything-find-file-as-root #[(candidate) "\302\303\304\305 !R!\207" [anything-su-or-sudo candidate find-file "/" "::" expand-file-name] 6]) (defalias 'anything-find-many-files #[(ignore) "\300\301\302 \"\207" [mapc find-file anything-marked-candidates] 3]) (defalias 'anything-c-goto-line-with-adjustment #[(line line-content &optional show-top) "\306\211\211\211\307\306\f\310=\203\311\202\312\313 !P\314\306#\210`\211\204,e b\210\315! \204O \nZb\210o\204O\316 \n\\\310#\n\317_\2023 \204_\316\306\310#\204_\320\321!\210,\f\310=\203o\315\322!\203o\323u\210\324 \207" [pat found offset startpos selective-display line-content nil 1000 t "\\(^\\| \\) *" "^ *" regexp-quote anything-goto-line looking-at re-search-forward 3 error "not found" " " 1 beginning-of-line line show-top] 5]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\300\307\305\310#\210\300\311\302\312#\210\300\313\305\314#\210\300\315\316\317#\207" [anything-document-attribute default-directory "type . file-line" "`default-directory' to interpret file." before-jump-hook "type . file-line / line" "Function to call before jumping to the target location." after-jump-hook "Function to call after jumping to the target location." adjust "Search around line matching line contents." recenter "`recenter' after jumping." target-file "type . line" "Goto line of target-file."] 4) #@154 Execute CMD-OR-NAME as Emacs command. It is added to `extended-command-history'. `anything-current-prefix-arg' is used as the command's prefix argument. (defalias 'anything-c-call-interactively #[(cmd-or-name) "\211;\203 \202\306 !)\307\211;\203 \202\306 !)\n\"B \2119\203/ \2022\310 !)\fK;\203B\311\fK!\202K\f\f\312\216\313\f!)*\207" [cmd-or-name str-or-sym extended-command-history anything-current-prefix-arg cmd current-prefix-arg symbol-name delete intern execute-kbd-macro ((byte-code "\301\302\303\304\305%\207" [cmd run-with-timer 0.1 nil set last-repeatable-command] 6)) call-interactively this-command] 5 (#$ . 348452)]) #@33 Set value to VAR interactively. (defalias 'anything-c-set-variable #[(var) "\2119\203 \202\303 !)\211\304\305\306\"\307\nJ!\"L)\207" [var str-or-sym sym intern eval-minibuffer format "Set %s: " prin1-to-string] 6 (#$ . 349112) nil]) (defvar anything-match-line-overlay-face nil) (defvar anything-match-line-overlay nil) #@42 Highlight and underline current position (defalias 'anything-match-line-color-current-line #[(&optional start end buf face rec) "\206\306 \206 \307 T\nE\f\204\310\311 \"\202\"\310\312\f #\210)\313\f\305 \206, #\210\2058b\210\314 \207" [start end buf args anything-match-line-overlay face line-beginning-position line-end-position apply make-overlay move-overlay overlay-put recenter anything-match-line-overlay-face rec] 4 (#$ . 349446)]) (byte-code "\301\302\303\"\210\304\301\207" [anything-match-line-overlay-face defalias anything-persistent-highlight-point anything-match-line-color-current-line anything-overlay-line-face] 3) (defalias 'anything-match-line-cleanup #[nil "\205 \301!\210\302\211\207" [anything-match-line-overlay delete-overlay nil] 2]) (defalias 'anything-match-line-update #[nil "\205\n\301!\210\302 \207" [anything-match-line-overlay delete-overlay anything-match-line-color-current-line] 2]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [add-hook anything-cleanup-hook anything-match-line-cleanup anything-after-persistent-action-hook anything-match-line-update] 3) #@101 Add action to load the file CANDIDATE if it is an emacs lisp file. Else return ACTIONS unmodified. (defalias 'anything-c-transform-file-load-el #[(actions candidate) "\302!\303\235\203 \304 \305\"\207 \207" [candidate actions file-name-extension ("el" "elc") append (("Load Emacs Lisp File" . load-file))] 3 (#$ . 350574)]) #@106 Add an action to browse the file CANDIDATE if it in a html file or URL. Else return ACTIONS unmodified. (defalias 'anything-c-transform-file-browse-url #[(actions candidate) "\303\304\305 \"\203\nB\202\304\306 \"\203\307\nC\"\202\n)\207" [browse-action candidate actions ("Browse with Browser" . browse-url) string-match "^http\\|^ftp" "\\.html?$" append] 3 (#$ . 350908)]) #@113 Add an action to call the function CANDIDATE interactively if it is a command. Else return ACTIONS unmodified. (defalias 'anything-c-transform-function-call-interactively #[(actions candidate) "\302\303!!\203 \304 \305\"\207 \207" [candidate actions commandp intern-soft append (("Call Interactively" . anything-c-call-interactively))] 3 (#$ . 351301)]) #@109 If CANDIDATE's `car' is a command, then add an action to evaluate it and put it onto the `command-history'. (defalias 'anything-c-transform-sexp-eval-command-sexp #[(actions candidate) "\302\303!@!\203 \304 B\207 \207" [candidate actions commandp read ("Eval and put onto command-history" lambda (sexp) (let ((sym (read sexp))) (eval sym) (setq command-history (cons sym command-history))))] 3 (#$ . 351665)]) (defalias 'anything-c-skip-boring-buffers #[(buffers) "\302 \"\207" [buffers anything-c-boring-buffer-regexp anything-c-skip-entries] 3]) #@183 [DEPRECATED] Skip current buffer in buffer lists. This transformer should not be used as this is now handled directly in `anything-c-buffer-list' and `anything-c-highlight-buffers'. (defalias 'anything-c-skip-current-buffer #[(buffers) "\203 \303\304 !\n\"\207\n\207" [anything-allow-skipping-current-buffer anything-current-buffer buffers remove buffer-name] 3 (#$ . 352223)]) #@117 Buffers matching `anything-c-boring-buffer-regexp' will be displayed with the `file-name-shadow' face if available. (defalias 'anything-c-shadow-boring-buffers #[(buffers) "\302 \"\207" [buffers anything-c-boring-buffer-regexp anything-c-shadow-entries] 3 (#$ . 352610)]) #@223 Functions to setup display string for buffer. Function has one argument, buffer name. If it returns string, use it. If it returns nil, display buffer name. See `anything-c-buffer-display-string--compilation' for example. (defvar anything-c-buffer-display-string-functions '(anything-c-buffer-display-string--compilation anything-c-buffer-display-string--shell anything-c-buffer-display-string--eshell) (#$ . 352890)) #@96 Setup display string for buffer candidates using `anything-c-buffer-display-string-functions'. (defalias 'anything-c-transform-buffer-display-string #[(buffers) "\305\211\305 :\2039 @\211:\203\n B\202$\nq\210\306\307\n\"\f\203.\f\nB\202/\n B A\211\202 \237,\207" [buffers #1=#:--cl-var-- buf #2=#:--cl-var-- disp nil run-hook-with-args-until-success anything-c-buffer-display-string-functions] 4 (#$ . 353314)]) (defalias 'anything-c-buffer-display-string--compilation #[(buf) "@\211\205 \304\305\n $)\207" [compilation-arguments it buf default-directory format "%s: %s [%s]"] 6]) (defalias 'anything-c-buffer-display-string--eshell #[(buf) "\303=\205\304\305 \306\307\310\217\n$\207" [major-mode buf default-directory eshell-mode format "%s: %s [%s]" nil (ring-ref eshell-history-ring 0) ((error))] 6]) (defalias 'anything-c-buffer-display-string--shell #[(buf) "\303=\205\304\305 \306\307\310\217\n$\207" [major-mode buf default-directory shell-mode format "%s: %s [%s]" nil (ring-ref comint-input-ring 0) ((error))] 6]) #@113 Files matching `anything-c-boring-file-regexp' will be displayed with the `file-name-shadow' face if available. (defalias 'anything-c-shadow-boring-files #[(files) "\302 \"\207" [files anything-c-boring-file-regexp anything-c-shadow-entries] 3 (#$ . 354372)]) #@65 Files matching `anything-c-boring-file-regexp' will be skipped. (defalias 'anything-c-skip-boring-files #[(files) "\302 \"\207" [files anything-c-boring-file-regexp anything-c-skip-entries] 3 (#$ . 354639)]) #@31 Current file will be skipped. (defalias 'anything-c-skip-current-file #[(files) "\302\303! \"\207" [anything-current-buffer files remove buffer-file-name] 3 (#$ . 354854)]) #@107 Change undesirable features of windows pathnames to ones more acceptable to other candidate transformers. (defalias 'anything-c-w32-pathname-transformer #[(args) "\302=\203 \303\304 \"\207 \207" [system-type args windows-nt anything-transform-mapcar #[(x) "\301\302\303\301\304\305##\207" [x replace-regexp-in-string "/cygdrive/\\(.\\)" "\\1:" "\\\\" "/"] 7]] 3 (#$ . 355035)]) #@29 Replaces /home/user with ~. (defalias 'anything-c-shorten-home-path #[(files) "\302\303\304\305\306!#\307\310 \")\207" [home files replace-regexp-in-string "\\\\" "/" getenv "HOME" anything-transform-mapcar #[(file) ";\203\302 \"\203\303\304\305\211$\207\207" [file home string-match replace-match "~" nil] 5]] 5 (#$ . 355422)]) #@73 Mark interactive functions (commands) with (i) after the function name. (defalias 'anything-c-mark-interactive-functions #[(functions) "\304 \304\n:\203%\n@\211\305\306 !!\205\307P BB\nA\211\202\237+\207" [list functions #1=#:--cl-var-- function nil commandp intern-soft " (i)"] 5 (#$ . 355766)]) #@73 nil if history information is not yet stored for the current selection. (defvar anything-c-adaptive-done nil (#$ . 356082)) #@125 Contains the stored history information. Format: ((SOURCE-NAME (SELECTED-CANDIDATE (PATTERN . NUMBER-OF-USE) ...) ...) ...) (defvar anything-c-adaptive-history nil (#$ . 356213)) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\207" [add-hook anything-before-initialize-hook #[nil "\205\302\211\207" [anything-c-use-adaptative-sorting anything-c-adaptive-done nil] 2] anything-before-action-hook #[nil "\205\301 \207" [anything-c-use-adaptative-sorting anything-c-adaptive-store-selection] 1] anything-select-action-hook #[nil "\205\301 \207" [anything-c-use-adaptative-sorting anything-c-adaptive-store-selection] 1]] 3) #@73 Return current source only if it use adaptative history, nil otherwise. (defalias 'anything-c-source-use-adaptative-p #[(&optional source-name) "\205H \206\n\305 \306\307\310\306\311\n\" \"\"\2060\306\312\310\306\311\n\" \"\"\2060\306\307\n\"\2060\306\312\n\"\211<\203@\313\f\235\205G\n\202G\f\313=\205G\n*\207" [anything-c-use-adaptative-sorting source-name source anything-type-attributes adapt-source anything-get-current-source assoc-default filtered-candidate-transformer assoc type candidate-transformer anything-c-adaptive-sort] 7 (#$ . 356865)]) #@55 Store history information for the selected candidate. (defalias 'anything-c-adaptive-store-selection #[nil "?\205\245\306\307 \211\205\244\310\311 \"\206\310\312 \"\313\n \"\206(\nC B\211@\314 \f\313 \fA\"\211\204= C\202H\f\315\fA\"\241\210)\fAB\241\210\f\211A@\262\211\313A\"\211\204k\316B\202x\315A\"\241\210)AB\241\210\211A@\262\211\211AT\241\210AGV\205\243\317A\316#\241-)\207" [anything-c-adaptive-done source source-name anything-c-adaptive-history source-info selection t anything-c-source-use-adaptative-p assoc-default type name assoc anything-get-selection delete 0 subseq found selection-info anything-pattern pattern-info anything-c-adaptive-history-length] 6 (#$ . 357437)]) (defalias 'anything-c-adaptative-maybe-load-history #[nil "\205 \302 !\205 \303 !\207" [anything-c-use-adaptative-sorting anything-c-adaptive-history-file file-readable-p load-file] 2]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [add-hook emacs-startup-hook anything-c-adaptative-maybe-load-history kill-emacs-hook anything-c-adaptive-save-history] 3) #@79 Save history information to file given by `anything-c-adaptive-history-file'. (defalias 'anything-c-adaptive-save-history #[(&optional arg) "\205-\305\306!r q\210\307\216\310\311\261\210\312\313\302\314\nDEp\"\210\315c\210\316ed \317\f?\205+\320%+\207" [anything-c-use-adaptative-sorting #1=#:temp-buffer anything-c-adaptive-history anything-c-adaptive-history-file arg generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) ";; -*- mode: emacs-lisp -*-\n" ";; History entries used for anything adaptive display.\n" prin1 setq quote 10 write-region nil quiet] 6 (#$ . 358552) "p"]) #@231 Sort the CANDIDATES for SOURCE by usage frequency. This is a filtered candidate transformer you can use for the attribute `filtered-candidate-transformer' of a source in `anything-sources' or a type in `anything-type-attributes'. (defalias 'anything-c-adaptive-sort #[(candidates source) "\306\307\"\206 \306\310\"\311 \n\"\211\203|\312\313 A\"\314\211\203l :\203l\315 \316\"\211\314\211\203`@\317@\320\321$\203W@\fB\322@\320\321$A\211\2045*\323\324\f!\314#\202x\325\326\"\210\327\330!\210*\202~*\207" [source source-name anything-c-adaptive-history source-info sorted usage assoc-default type name assoc mapcar #[(candidate-info) "\302\303\304\215\210 @)B\207" [count candidate-info 0 --cl-block-nil-- (byte-code "A\305\211\203,\n@\211@ \232\204\f A\\\202%\306 A\\\307\310\305\"\210\nA\211\204 *\305\207" [candidate-info pattern-info --dolist-tail-- anything-pattern count nil 10000 throw --cl-block-nil--] 4)] 2] nil sort #[(first second) "A AV\207" [first second] 2] member* :test anything-c-adaptive-compare remove* append reverse message "Your `%s' is maybe corrupted or too old, you should reinitialize it with `anything-c-reset-adaptative-history'" sit-for 1 info --dolist-tail-- candidates anything-c-adaptive-history-file] 6 (#$ . 359201)]) #@132 Delete all `anything-c-adaptive-history' and his file. Useful when you have a old or corrupted `anything-c-adaptive-history-file'. (defalias 'anything-c-reset-adaptative-history #[nil "\302\303!\205 \304\305 !\207" [anything-c-adaptive-history anything-c-adaptive-history-file y-or-n-p "Really delete all your `anything-c-adaptive-history'? " nil delete-file] 2 (#$ . 360522) nil]) #@102 Compare candidates X and Y taking into account that the candidate can be in (DISPLAY . REAL) format. (defalias 'anything-c-adaptive-compare #[(x y) "<\203\nA\202  <\203 A\202 \232\207" [x y] 2 (#$ . 360913)]) (defvar anything-outline-goto-near-line-flag t) (defvar anything-outline-using nil) (defalias 'anything-after-update-hook--outline #[nil "\302=\205 \302=\205\303 \207" [anything-outline-using anything-outline-goto-near-line-flag t anything-outline-goto-near-line] 2]) (add-hook 'anything-after-update-hook 'anything-after-update-hook--outline) (defalias 'anything-outline-goto-near-line #[nil "\2031r\305 q\210\306\307!\210r q\210\310\n@!)\311\312\215\210\313y\210o\203%\314y\210\315 \203-\316y\210\317 *\207\320\321 !r\322\216\323\f@\324\"\210\306\307!\210r q\210\310\n@!)\311\325\215\210\313y\210o\203[\314y\210\315 \203c\316y\210\317 ,\207" [anything-test-mode anything-current-buffer anything-current-position lineno save-selected-window--state anything-buffer-get anything-goto-line 2 line-number-at-pos --cl-block-exit-- (byte-code "\301\302w\210\303 \206\nX\203!\304y\210m\203\305y\210\306\307\302\"\210\202\302\207" [lineno #1=" " nil number-at-point 1 -1 throw --cl-block-exit--] 3) -1 1 anything-pos-header-line-p -2 anything-mark-current-line internal--before-with-selected-window anything-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord (byte-code "\301\302w\210\303 \206\nX\203!\304y\210m\203\305y\210\306\307\302\"\210\202\302\207" [lineno #1# nil number-at-point 1 -1 throw --cl-block-exit--] 3)] 3]) #@52 (fn &optional (FILE (anything-attr 'info-file))) (defalias 'anything-c-info-init #[(&rest #1=#:--cl-rest--) "\203\f\211A\242\202\306\307!\203\310\311\312GTD\"\210\313\314 ?\205\222\315 \316\216\317 !\210\313\314\320!p\313\211\306\321!\206E\322 \313\211 \205\220 @\323!\210eb\210\324\325\313\326#\203\206\324\327\330 T\326#\204[\331 \330 rq\210\332 \f#\210\333c\210)\202[ A\211 \204N\313. *\207" [#1# file result #2=#:wconfig e s anything-attr info-file signal wrong-number-of-arguments anything-c-info-init nil anything-candidate-buffer current-window-configuration ((set-window-configuration #2#)) info global index-nodes Info-index-nodes Info-goto-node search-forward "\n* " t "Menu:\n" point-at-eol point-at-bol insert-buffer-substring "\n" infobuf tobuf Info-history node --dolist-tail--] 6 (#$ . 362534)]) (defalias 'anything-c-info-goto #[(node-line) "\301@!\210\302A!\207" [node-line Info-goto-node anything-goto-line] 2]) (defalias 'anything-c-info-display-to-real #[(line) "\301\302\"\205\303\304\305\306!\307\310\"#\311\307\312\"\206\313!B\207" [line string-match "\\* +\\([^\n]*.+[^\n]*\\):[ ]+\\([^\n]*\\)\\.\\(?:[ \n]*(line +\\([0-9]+\\))\\)?" format "(%s)%s" anything-attr info-file match-string 2 string-to-number 3 "1"] 6]) (defalias 'anything-c-make-info-source #[(source file) "\302\303\304 PB\305 B\306BB\"\207" [source file append name "Info Index: " info-file ((init . anything-c-info-init) (display-to-real . anything-c-info-display-to-real) (get-line . buffer-substring) (candidates-in-buffer) (action ("Goto node" . anything-c-info-goto)))] 5]) (defalias 'anything-compile-source--info-index #[(source) "\302\303\304\"!\211\203\305 \"\202)\207" [source it anything-interpret-value assoc-default info-index anything-c-make-info-source] 5]) (byte-code "\300\301\302\"\210\303\304\305\306#\210\303\307\310\311#\207" [add-to-list anything-compile-source-functions anything-compile-source--info-index anything-document-attribute info-index "info-index plugin" "Create a source of info index very easily.\n\nex. (defvar anything-c-source-info-wget '((info-index . \"wget\"))" index-nodes "info-index plugin (optional)" "Index nodes of info file.\n\nIf it is omitted, `Info-index-nodes' is used to collect index nodes.\nSome info files are missing index specification.\n\nex. See `anything-c-source-info-screen'."] 4) (defalias 'anything-compile-source--candidates-file #[(source) "\302\303\"\203*\304\305\302\304\"\211\204\306\202\"\307 !\203! C\202\" )BB\310BB\207\207" [source orig-init assoc-default candidates-file init anything-p-candidats-file-init nil functionp (candidates-in-buffer)] 6]) (add-to-list 'anything-compile-source-functions 'anything-compile-source--candidates-file) (defalias 'anything-p-candidats-file-init #[nil "\303\304\305!!\211\203\211A\242\202\306\307\310GD\"\211A\242\203.\306\307\310\311G\\D\"\210\312 !r\313\314 !!q\210\n\205H\315 \210\316\317!\210\320\321!,\207" [#1=#:--cl-rest-- file updating anything-mklist anything-attr candidates-file signal wrong-number-of-arguments nil 2 anything-interpret-value anything-candidate-buffer find-file-noselect buffer-disable-undo font-lock-mode -1 auto-revert-mode 1] 6]) (anything-document-attribute 'candidates-file "candidates-file plugin" "Use a file as the candidates buffer.\n\n1st argument is a filename, string or function name or variable name.\nIf optional 2nd argument is non-nil, the file opened with `auto-revert-mode'.") (defalias 'anything-compile-source--anything-headline #[(source) "\301\302\"\203 \303\304\305#\207\207" [source assoc-default headline append ((init . anything-headline-init) (get-line . buffer-substring) (type . line)) ((candidates-in-buffer) (persistent-help . "Show this line"))] 4]) (add-to-list 'anything-compile-source-functions 'anything-compile-source--anything-headline) (defalias 'anything-headline-init #[nil "\301 \205\"rq\210\302\303\304!\206\305!)\205\"\306\307\303\310!!\307\303\311!!\"\207" [anything-current-buffer anything-current-buffer-is-modified eval anything-attr condition t anything-headline-make-candidate-buffer anything-interpret-value headline subexp] 5]) (byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\207" [anything-document-attribute headline "Headline plug-in" "Regexp string for anything-headline to scan." condition "A sexp representing the condition to use anything-headline." subexp "Display (match-string-no-properties subexp)."] 4) (defalias 'anything-headline-get-candidates #[(regexp subexp) "rq\210\212eb\210\306 !\203 \307\211\310\311\312\313\314K\315K\316K\317K\320\216\314M\210\315M\210\316 M\210\317\fM\210 <\203\233\314\321 \307\322\307:\203\221@eb\210\323\307 \324\307\325#\203|\317 B B \202g \237)!\244A T\202U\237,\326\"!\202\264\307!\324 \307\325#\203\260\317 !B!\202\236!\237). \207" [anything-current-buffer regexp curhead hierarchy #1=#:vnew #2=#:vnew functionp nil #[nil "\247\203\f\301!\224B\207\302 \303 {\302 B\207" [subexp match-string-no-properties point-at-bol point-at-eol] 2] #[(headlines) "\305\211\305 :\203) @\211\211A\242\f\203 \f\n]\202!\n A\211\202 \f,T\207" [headlines #3=#:--cl-var-- hierarchy #4=#:--cl-var-- #5=#:--cl-var-- nil] 3] #[(v n) "\305 \306\nX\203\fH BT\211\202 \237+\207" [i hierarchy #6=#:--cl-var-- #7=#:--cl-var-- curhead 0 nil] 3] #[(headlines) "\205O\306\307!\310\"\311\211\311\211\n:\203J\n@\211\211A\242\211\211A\242 I\210\312\313 T\314\315\316 \"\317##\fBB\nA\211\202\237.\207" [headlines curhead #8=#:--cl-var-- hierarchy pt str make-vector hierarchies "" nil format "H%d:%s" mapconcat identity vector-0-n " / " #9=#:--cl-var--] 9] arrange vector-0-n hierarchies matched ((byte-code "\304M\210\305 M\210\306\nM\210\307 M\207" [#10=#:old #11=#:old #12=#:old #13=#:old arrange vector-0-n hierarchies matched] 2)) sort 0 reverse re-search-forward t #[(a b) "\211@A\262 \211@A\262V\207" [b a] 3] #14=#:vnew #15=#:vnew #10# #11# #12# #13# #16=#:--cl-var-- re #17=#:--cl-var-- #18=#:--cl-var-- #19=#:--cl-var--] 7]) (defalias 'anything-headline-make-candidate-buffer #[(regexp subexp) "r\306\307!q\210\310 \"\311\211\n:\2032\n@\211\211A\242\312\313r q\210\314 !)\f#c\210\nA\211\202,\311\207" [regexp subexp #1=#:--cl-var-- pos content anything-current-buffer anything-candidate-buffer local anything-headline-get-candidates nil format "%5d:%s\n" line-number-at-pos] 5]) (defalias 'anything-headline-goto-position #[(pos recenter) "b\210 ?\205\303\304\n!`\"\207" [pos recenter anything-current-buffer set-window-start get-buffer-window] 3]) (defalias 'anything-compile-source--persistent-help #[(source) "\301\302\"\207" [source append ((header-line . anything-persistent-help-string))] 3]) (add-to-list 'anything-compile-source-functions 'anything-compile-source--persistent-help) (defalias 'anything-persistent-help-string #[nil "\301\302\303\304\305!!\2069\306\307\310 \"\206\306\311\310 \"\211\20549\203'\312!\2024<\2054\313\314\315\217\2064\316)\2069\316\317Q!\207" [it substitute-command-keys "\\\\[anything-execute-persistent-action]: " anything-interpret-value anything-attr persistent-help assoc-default persistent-action anything-get-current-source action symbol-name nil (byte-code "\211@@\207" [it] 2) ((error)) "" " (keeping session)"] 6]) (anything-document-attribute 'persistent-help "persistent-help plug-in" "A string to explain persistent-action of this source.\nIt also accepts a function or a variable name.") #@81 Like `remove-duplicates' in CL. But cut deeper duplicates and test by `equal'.  (defalias 'anything-c-uniq-list #[(lst) "\301\302\301!\303\304#!\207" [lst reverse remove-duplicates :test equal] 5 (#$ . 370185)]) (defvar anything-additional-type-attributes nil) #@372 Override type attributes by `define-anything-type-attribute'. The SPEC is like source. The symbol `REST' is replaced with original attribute value. Example: Set `play-sound-file' as default action (anything-c-arrange-type-attribute 'file '((action ("Play sound" . play-sound-file) REST ;; Rest of actions (find-file, find-file-other-window, etc...). (defalias 'anything-c-arrange-type-attribute #[(type spec) "\306 \236 \"\307\n\"\f\310\211\f \310 :\203\213 @\211\f\211A\f\242 \f<\203z \311\f\310\211:\203l@\211\312=\203\\\313\307 \"!\244\202cBA\211\202>\237+!BB\202\204 \fBB A\211\202\237-B\211 \235\203\234 \202\242 B\211)\207" [type anything-additional-type-attributes anything-type-attributes typeattr spec #1=#:--cl-var-- delete assoc-default nil anything-c-uniq-list REST reverse value attr #2=#:--cl-var-- #3=#:--cl-var-- v #4=#:--cl-var-- #5=#:x] 8 (#$ . 370454)]) (put 'anything-c-arrange-type-attribute 'lisp-indent-function 1) (defalias 'anything-compile-source--type-customize #[(source) "\304\305\"\211\203\306\304 \n\"\304 \"\307$\202)\207" [source it anything-additional-type-attributes anything-type-attributes assoc-default type append nil] 7]) (byte-code "\301\302\"\303\300\304\305#\207" [anything-compile-source-functions delete anything-compile-source--type add-to-list anything-compile-source--type-customize t] 4) (defalias 'anything-compile-source--default-action #[(source) "\302\303\"\211\203\304\305 \306 \302\305\"\"BBC\"\202)\207" [source it assoc-default default-action append action remove] 9]) (byte-code "\303\304\305\306#\210\307\310\311\312#\210\313\314\315\316\317\320!\205\321\322\323\317\324!\205 \325\326BBBBBB\327B\330#\210\313\331\315\332\317\320!\2057\333\334BBB\335B\336#\210\337\313\340\315\341BB\342B\343#\210\313\344\315B\345B\346#\210)\313\347\350\351#\210\313\352\353\354#\210\313\355\356\315\357\360\361\362\363\364\317\365!\205v\366\367\"BBBBBB\370 B\371BBB\372#\210\313\373\374\375#\210\313\376\377\201@#\210\313\201A\201B\201C#\210\201D\303\207" [actions anything-c-bookmark-map anything-sources add-to-list anything-compile-source-functions anything-compile-source--default-action t anything-document-attribute default-action "default-action plug-in" "Default action." define-anything-type-attribute buffer action ("Switch to buffer" . anything-c-switch-to-buffer) locate-library "popwin" ("Switch to buffer in popup window" . popwin:popup-buffer) ("Switch to buffer other window" . switch-to-buffer-other-window) ("Switch to buffer other frame" . switch-to-buffer-other-frame) "elscreen" ("Display buffer in Elscreen" . anything-find-buffer-on-elscreen) (("Query replace regexp" . anything-c-buffer-query-replace-regexp) ("Query replace" . anything-c-buffer-query-replace) ("View buffer" . view-buffer) ("Display buffer" . display-buffer) ("Grep buffers (C-u grep all buffers)" . anything-c-zgrep-buffers) ("Revert buffer(s)" . anything-revert-marked-buffers) ("Insert buffer" . insert-buffer) ("Kill buffer(s)" . anything-kill-marked-buffers) ("Diff with file" . diff-buffer-with-file) ("Ediff Marked buffers" . anything-ediff-marked-buffers) ("Ediff Merge marked buffers" lambda (candidate) (anything-ediff-marked-buffers candidate t))) ((persistent-help . "Show this buffer") (candidate-transformer anything-c-skip-boring-buffers anything-c-transform-buffer-display-string)) "Buffer or buffer name." file ("Find file" . anything-find-many-files) ("Find file in popup window" . popwin:find-file) (("Find file as root" . anything-find-file-as-root) ("Find file other window" . find-file-other-window) ("Find file other frame" . find-file-other-frame) ("Open dired in file's directory" . anything-c-open-dired) ("Grep File(s) `C-u recurse'" . anything-find-files-grep) ("Zgrep File(s) `C-u Recurse'" . anything-ff-zgrep) ("Pdfgrep File(s)" . anything-ff-pdfgrep) ("Checksum File" . anything-ff-checksum) ("Ediff File" . anything-find-files-ediff-files) ("Ediff Merge File" . anything-find-files-ediff-merge-files) ("View file" . view-file) ("Insert file" . insert-file) ("Delete file(s)" . anything-delete-marked-files) ("Open file externally (C-u to choose)" . anything-c-open-file-externally) ("Open file with default tool" . anything-c-open-file-with-default-tool) ("Find file in hex dump" . hexl-find-file)) ((persistent-help . "Show this file") (action-transformer anything-c-transform-file-load-el anything-c-transform-file-browse-url) (candidate-transformer anything-c-w32-pathname-transformer anything-c-skip-current-file anything-c-skip-boring-files anything-c-shorten-home-path)) "File name." (("Describe command" . describe-function) ("Add command to kill ring" . anything-c-kill-new) ("Go to command's definition" . find-function) ("Debug on entry" . debug-on-entry) ("Cancel debug on entry" . cancel-debug-on-entry) ("Trace function" . trace-function) ("Trace function (background)" . trace-function-background) ("Untrace function" . untrace-function)) command ("Call interactively" . anything-c-call-interactively) ((coerce . anything-c-symbolify) (persistent-action . describe-function)) "Command. (string or symbol)" function ((action-transformer anything-c-transform-function-call-interactively) (candidate-transformer anything-c-mark-interactive-functions) (coerce . anything-c-symbolify)) "Function. (string or symbol)" variable ((action ("Describe variable" . describe-variable) ("Add variable to kill ring" . anything-c-kill-new) ("Go to variable's definition" . find-variable) ("Set variable" . anything-c-set-variable)) (coerce . anything-c-symbolify)) "Variable." sexp ((action ("Eval s-expression" lambda (c) (eval (read c))) ("Add s-expression to kill ring" . kill-new)) (action-transformer anything-c-transform-sexp-eval-command-sexp)) "String representing S-Expressions." bookmark (coerce . anything-bookmark-get-bookmark-from-name) ("Jump to bookmark" . anything-c-bookmark-jump) ("Jump to BM other window" . bookmark-jump-other-window) ("Bookmark edit annotation" . bookmark-edit-annotation) ("Bookmark show annotation" . bookmark-show-annotation) ("Delete bookmark(s)" . anything-delete-marked-bookmarks) append "bookmark-extensions" (("Edit Bookmark" . bmkext-edit-bookmark)) (("Rename bookmark" . bookmark-rename) ("Relocate bookmark" . bookmark-relocate)) keymap ((mode-line . anything-bookmark-mode-line-string)) "Bookmark name." line ((display-to-real . anything-c-display-to-real-line) (action ("Go to Line" . anything-c-action-line-goto))) "LINENO:CONTENT string, eg. \" 16:foo\".\n\nOptional `target-file' attribute is a name of target file.\n\nOptional `before-jump-hook' attribute is a function with no\narguments which is called before jumping to position.\n\nOptional `after-jump-hook' attribute is a function with no\narguments which is called after jumping to position.\n\nIf `adjust' attribute is specified, searches the line whose\ncontent is CONTENT near the LINENO.\n\nIf `recenter' attribute is specified, the line is displayed at\nthe center of window, otherwise at the top of window.\n" file-line ((filtered-candidate-transformer anything-c-filtered-candidate-transformer-file-line) (multiline) (action ("Go to" . anything-c-action-file-line-goto))) "FILENAME:LINENO:CONTENT string, eg. \"~/.emacs:16:;; comment\".\n\nOptional `default-directory' attribute is a default-directory\nFILENAME is interpreted.\n\nOptional `before-jump-hook' attribute is a function with no\narguments which is called before jumping to position.\n\nOptional `after-jump-hook' attribute is a function with no\narguments which is called after jumping to position.\n\nIf `adjust' attribute is specified, searches the line whose\ncontent is CONTENT near the LINENO.\n\nIf `recenter' attribute is specified, the line is displayed at\nthe center of window, otherwise at the top of window.\n" timer ((real-to-display . anything-c-timer-real-to-display) (action ("Cancel Timer" . cancel-timer) ("Describe Function" lambda (tm) (describe-function (timer--function tm))) ("Find Function" lambda (tm) (find-function (timer--function tm)))) (persistent-action lambda (tm) (describe-function (timer--function tm))) (persistent-help . "Describe Function")) "Timer." (anything-c-source-buffers-list anything-c-source-recentf anything-c-source-files-in-current-dir+)] 12) #@67 Preconfigured `anything' lightweight version (buffer -> recentf). (defalias 'anything-mini #[nil "\300\301\302\"\207" [anything-other-buffer (anything-c-source-buffers-list anything-c-source-recentf anything-c-source-buffer-not-found) "*anything mini*"] 3 (#$ . 378831) nil]) #@132 Preconfigured `anything' for opening files. ffap -> recentf -> buffer -> bookmark -> file-cache -> files-in-current-dir -> locate. (defalias 'anything-for-files #[nil "\301\302\"\207" [anything-for-files-prefered-list anything-other-buffer "*anything for files*"] 3 (#$ . 379114) nil]) #@41 Preconfigured `anything' for `recentf'. (defalias 'anything-recentf #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-recentf "*anything recentf*"] 3 (#$ . 379407) nil]) #@97 Preconfigured `anything' for searching info at point. With a prefix-arg insert symbol at point. (defalias 'anything-info-at-point #[(arg) "\302\303\304\305\306 \205 \307\310!\311\312&)\207" [anything-c-google-suggest-default-function arg anything-c-google-suggest-emacs-lisp anything :sources (anything-c-source-info-elisp anything-c-source-info-cl anything-c-source-info-pages anything-c-source-google-suggest) :input thing-at-point symbol :buffer "*anything info*"] 7 (#$ . 379601) "P"]) #@187 Preconfigured `anything' for `kill-ring'. It is drop-in replacement of `yank-pop'. You may bind this command to M-y. First call open the kill-ring browser, next calls move to next line. (defalias 'anything-show-kill-ring #[nil "\301\302\303\304\305\306$)\207" [enable-recursive-minibuffers t anything :sources anything-c-source-kill-ring :buffer "*anything kill-ring*"] 5 (#$ . 380101) nil]) #@52 Preconfigured `anything' for `minibuffer-history'. (defalias 'anything-minibuffer-history #[nil "\301\302\303\304\")\207" [enable-recursive-minibuffers t anything-other-buffer anything-c-source-minibuffer-history "*anything minibuffer-history*"] 3 (#$ . 380500) nil]) #@44 Preconfigured `anything' for gentoo linux. (defalias 'anything-gentoo #[nil "\300\301\302\"\207" [anything-other-buffer (anything-c-source-gentoo anything-c-source-use-flags) "*anything gentoo*"] 3 (#$ . 380775) nil]) #@39 Preconfigured `anything' for `imenu'. (defalias 'anything-imenu #[nil "\300\301\302\303\304$\207" [anything :sources anything-c-source-imenu :buffer "*anything imenu*"] 5 (#$ . 380999) nil]) #@65 Preconfigured `anything' for google search with google suggest. (defalias 'anything-google-suggest #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-google-suggest "*anything google*"] 3 (#$ . 381196) nil]) #@66 Preconfigured `anything' for Yahoo searching with Yahoo suggest. (defalias 'anything-yahoo-suggest #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-yahoo-suggest "*anything yahoo*"] 3 (#$ . 381427) nil]) #@39 Preconfigured `anything' for buffers. (defalias 'anything-for-buffers #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-buffers "*anything for buffers*"] 3 (#$ . 381656) nil]) #@96 Preconfigured `anything' to list buffers. It is an enhanced version of `anything-for-buffers'. (defalias 'anything-buffers-list #[nil "\301\302\303\304\305\306&\207" [anything-c-buffer-map anything :sources (anything-c-source-buffers-list anything-c-source-buffer-not-found) :buffer "*anything buffers*" :keymap] 7 (#$ . 381856) nil]) (defalias 'anything-buffers+ 'anything-buffers-list "Preconfigured `anything' to list buffers.\nIt is an alias of `anything-buffers-list'.") #@79 Preconfigured `anything' for BBDB. Needs BBDB. http://bbdb.sourceforge.net/ (defalias 'anything-bbdb #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-bbdb "*anything bbdb*"] 3 (#$ . 382340) nil]) #@437 Preconfigured `anything' for Locate. Note: you can add locate options after entering pattern. See 'man locate' for valid options. You can specify a specific database with prefix argument ARG (C-u). Many databases can be used: navigate and mark them. See also `anything-locate-with-db'. To create a user specific db, use "updatedb -l 0 -o db_path -U directory". Where db_path is a filename matched by `anything-locate-db-file-regexp'. (defalias 'anything-locate #[(arg) "\303\n!\207" [default-directory anything-ff-default-directory arg anything-locate-1] 2 (#$ . 382564) "P"]) #@144 Preconfigured `anything' for w3m bookmark. Needs w3m and emacs-w3m. w3m: http://w3m.sourceforge.net/ emacs-w3m: http://emacs-w3m.namazu.org/ (defalias 'anything-w3m-bookmarks #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-w3m-bookmarks "*anything w3m bookmarks*"] 3 (#$ . 383152) nil]) #@381 Preconfigured `anything' for firefox bookmark. You will have to enable html bookmarks in firefox: open about:config in firefox and double click on this line to enable value to true: user_pref("browser.bookmarks.autoExportHTML", false); You should have now: user_pref("browser.bookmarks.autoExportHTML", true); After closing firefox, you will be able to browse you bookmarks.  (defalias 'anything-firefox-bookmarks #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-firefox-bookmarks "*Anything Firefox*"] 3 (#$ . 383468) nil]) #@37 Preconfigured `anything' for color. (defalias 'anything-colors #[nil "\300\301\302\"\207" [anything-other-buffer (anything-c-source-colors anything-c-source-customize-face) "*anything colors*"] 3 (#$ . 384022) nil]) #@41 Preconfigured `anything' for bookmarks. (defalias 'anything-bookmarks #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-bookmarks "*anything bookmarks*"] 3 (#$ . 384244) nil]) #@58 Preconfigured `anything' for bookmarks (pretty-printed). (defalias 'anything-c-pp-bookmarks #[nil "\300\301\302\"\207" [anything-other-buffer (anything-c-source-bookmarks-local anything-c-source-bookmarks-su anything-c-source-bookmarks-ssh) "*anything pp bookmarks*"] 3 (#$ . 384444) nil]) #@59 Preconfigured anything for latex math symbols completion. (defalias 'anything-c-insert-latex-math #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-latex-math "*anything latex*"] 3 (#$ . 384740) nil]) #@47 Preconfigured `anything' for Emacs registers. (defalias 'anything-register #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-register "*anything register*"] 3 (#$ . 384965) nil]) #@51 Preconfigured `anything' for Man and Woman pages. (defalias 'anything-man-woman #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-man-pages "*Anything man woman*"] 3 (#$ . 385168) nil]) #@44 Preconfigured `anything' for org keywords. (defalias 'anything-org-keywords #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-org-keywords "*org keywords*"] 3 (#$ . 385378) nil]) #@44 Preconfigured `anything' for emms sources. (defalias 'anything-emms #[nil "\300\301\302\303\304$\207" [anything :sources (anything-c-source-emms-streams anything-c-source-emms-files anything-c-source-emms-dired) :buffer "*Anything Emms*"] 5 (#$ . 385581) nil]) #@43 Preconfigured `anything' for eev anchors. (defalias 'anything-eev-anchors #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-eev-anchor "*Anything eev anchors*"] 3 (#$ . 385848) nil]) #@121 Preconfigured `anything' for visible bookmarks. Needs bm.el http://cvs.savannah.gnu.org/viewvc/*checkout*/bm/bm/bm.el (defalias 'anything-bm-list #[nil "\301\302\303\304\")\207" [anything-outline-using t anything-other-buffer anything-c-source-bm "*anything bm list*"] 3 (#$ . 386056) nil]) #@38 Preconfigured `anything' for timers. (defalias 'anything-timers #[nil "\300\301\302\"\207" [anything-other-buffer (anything-c-source-absolute-time-timers anything-c-source-idle-time-timers) "*anything timers*"] 3 (#$ . 386356) nil]) #@45 Preconfigured `anything' for emacs process. (defalias 'anything-list-emacs-process #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-emacs-process "*anything process*"] 3 (#$ . 386595) nil]) #@120 Preconfigured Anything for Occur source. If region is active, search only in region, otherwise search in whole buffer. (defalias 'anything-occur #[nil "\301\302\303!\"\304\305\306\307\310\311\312&)\207" [anything-compile-source-functions delq anything-compile-source--match-plugin copy-sequence anything :sources anything-c-source-occur :buffer "*Anything Occur*" :history anything-c-grep-history] 7 (#$ . 386811) nil]) #@40 Preconfigured anything to browse code. (defalias 'anything-browse-code #[nil "\300\301\302\303\304\305\306\307!&\207" [anything :sources anything-c-source-browse-code :buffer "*anything browse code*" :default thing-at-point symbol] 8 (#$ . 387240) nil]) #@47 Preconfigured anything to show org headlines. (defalias 'anything-org-headlines #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-org-headline "*org headlines*"] 3 (#$ . 387501) nil]) #@109 Preconfigured anything to build regexps. `query-replace-regexp' can be run from there against found regexp. (defalias 'anything-regexp #[nil "\214\302\303\304!\"\305 \203\306 \204\307 \310 }\210\311\312 \313\314\315\316\317\320&*\207" [anything-compile-source-functions anything-c-source-regexp delq anything-compile-source--match-plugin copy-sequence anything-region-active-p anything-current-buffer-narrowed-p region-beginning region-end anything :sources :buffer "*anything regexp*" :prompt "Regexp: " :history anything-build-regexp-history] 9 (#$ . 387710) nil]) #@72 Preconfigured anything to copy file list FLIST to DEST asynchronously. (defalias 'anything-c-copy-files-async #[nil "\303\304\305\306#\303\307\310@\311 @\312\313\314\315\"&\316\n\"*\207" [flist anything-ff-history dest anything-c-read-file-name "Copy File async: " :marked-candidates t "Copy File async To: " :preselect :initial-input :history anything-find-files-history :comp-read nil anything-c-copy-async-with-log] 10 (#$ . 388290) nil]) #@254 Preconfigured `anything' for anything implementation of `find-file'. Called with a prefix arg show history if some. Don't call it from programs, use `anything-find-files-1' instead. This is the starting point for nearly all actions you can do on files. (defalias 'anything-find-files #[(arg) "\203 \203 \306 \202\307 \310p!\f\311=\203& \203& \204&\312 !\313\314 G\315 $\210 \2038\316 !\202P\312\317 !\316 \203N\n\205O\320\n!\202O\n\"*\207" [arg anything-ff-history presel any-input major-mode org-directory anything-find-files-history anything-find-files-initial-input buffer-file-name org-agenda-mode expand-file-name set-text-properties 0 nil anything-find-files-1 anything-c-current-directory anything-c-basename anything-ff-transformer-show-only-basename] 5 (#$ . 388744) "P"]) #@65 Preconfigured `anything' providing completion for `write-file'. (defalias 'anything-write-file #[nil "\302\303\304\305\306\307 !\310\311\312\313&)\207" [anything-mp-highlight-delay default-directory nil anything :sources anything-c-source-write-file :input expand-file-name :prompt "Write buffer to file: " :buffer "*Anything write file*"] 9 (#$ . 389552) nil]) #@66 Preconfigured `anything' providing completion for `insert-file'. (defalias 'anything-insert-file #[nil "\302\303\304\305\306\307 !\310\311\312\313&)\207" [anything-mp-highlight-delay default-directory nil anything :sources anything-c-source-insert-file :input expand-file-name :prompt "Insert file: " :buffer "*Anything insert file*"] 9 (#$ . 389922) nil]) #@54 Preconfigured `anything' to rename files from dired. (defalias 'anything-dired-rename-file #[nil "\300\301\302\"\207" [anything-dired-do-action-on-file :action rename] 3 (#$ . 390287) nil]) #@52 Preconfigured `anything' to copy files from dired. (defalias 'anything-dired-copy-file #[nil "\300\301\302\"\207" [anything-dired-do-action-on-file :action copy] 3 (#$ . 390483) nil]) #@55 Preconfigured `anything' to symlink files from dired. (defalias 'anything-dired-symlink-file #[nil "\300\301\302\"\207" [anything-dired-do-action-on-file :action symlink] 3 (#$ . 390673) nil]) #@56 Preconfigured `anything' to hardlink files from dired. (defalias 'anything-dired-hardlink-file #[nil "\300\301\302\"\207" [anything-dired-do-action-on-file :action hardlink] 3 (#$ . 390872) nil]) #@523 Preconfigured anything for grep. Contrarily to Emacs `grep' no default directory is given, but the full path of candidates in ONLY. That allow to grep different files not only in `default-directory' but anywhere by marking them (C-). If one or more directory is selected grep will search in all files of these directories. You can use also wildcard in the base name of candidate. If a prefix arg is given use the -r option of grep. The prefix arg can be passed before or after start. See also `anything-do-grep-1'. (defalias 'anything-do-grep #[nil "\304\305\306\307\310\311\312\307\"\206\313p!%\206 \314 \n\"*\207" [current-prefix-arg anything-current-prefix-arg prefarg only anything-c-read-file-name "Search in file(s): " :marked-candidates t :preselect dired-get-filename nil buffer-file-name anything-do-grep-1] 8 (#$ . 391075) nil]) #@35 Preconfigured anything for zgrep. (defalias 'anything-do-zgrep #[nil "\206 \304\305\306\307\310\311\312\307\"\206\313p!%\314\n \"*\207" [current-prefix-arg anything-current-prefix-arg ls prefarg anything-c-read-file-name "Search in file(s): " :marked-candidates t :preselect dired-get-filename nil buffer-file-name anything-ff-zgrep-1] 9 (#$ . 391934) nil]) #@37 Preconfigured anything for pdfgrep. (defalias 'anything-do-pdfgrep #[nil "\302\303\304\305\306\307\310\311\312\305\"\206\313p!&\314\315 !*\207" [anything-c-grep-default-function only anything-c-read-file-name "Search in file(s): " :marked-candidates t :test #[(file) "\301!\302\230\206\301!\303\230\206\304!\207" [file file-name-extension "pdf" "PDF" file-directory-p] 2] :preselect dired-get-filename nil buffer-file-name anything-c-pdfgrep-init anything-do-pdfgrep-1] 10 (#$ . 392305) nil]) #@198 Preconfigured anything for etags. Called with one prefix arg use symbol at point as initial input. Called with two prefix arg reinitialize cache. If tag file have been modified reinitialize cache. (defalias 'anything-c-etags-select #[(arg) "\306 \307\232\205 \310\311!\312\211 \203\313\314\315\n!\"\202\n\316\232\2043\203:\317!\203:\320\"\210\203U\321!\203U\322\323\324\325\326 \327\330&\202X\331\332!-\207" [arg anything-c-etags-use-regexp-search anything-compile-source-functions anything-execute-action-at-once-if-one anything-quit-if-no-candidate init anything-c-etags-get-tag-file (4) thing-at-point symbol t delq anything-compile-source--match-plugin copy-sequence (16) anything-c-etags-file-modified-p remhash file-exists-p anything :sources anything-c-source-etags-select :keymap :input :buffer "*anything etags*" message "Error: No tag file found, please create one with etags shell command." tag anything-c-etags-mtime-alist anything-c-etags-cache anything-c-etags-map] 9 (#$ . 392817) "P"]) #@109 Preconfigured `anything' to open files instantly. See `anything-c-filelist-file-name' docstring for usage. (defalias 'anything-filelist #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-filelist "*anything file list*"] 3 (#$ . 393860) nil]) #@175 Preconfigured `anything' to open files/buffers/bookmarks instantly. This is a replacement for `anything-for-files'. See `anything-c-filelist-file-name' docstring for usage. (defalias 'anything-filelist+ #[nil "\300\301\302\"\207" [anything-other-buffer (anything-c-source-ffap-line anything-c-source-ffap-guesser anything-c-source-buffers-list anything-c-source-recentf anything-c-source-bookmarks anything-c-source-file-cache anything-c-source-filelist) "*anything file list*"] 3 (#$ . 394127) nil]) #@120 Preconfigured `anything' for Emacs commands. It is `anything' replacement of regular `M-x' `execute-extended-command'. (defalias 'anything-M-x #[nil "\306\211\306\211\306\211 !\306\211\"#\306!:\203?!@\"\307\"!#\310#!\2036 \"C\244!A\211!\202 -$\311%\312K&\313\216\312%M\210\314\315'\316\317\320(\321\322\323\324\325\312\326\327\330$\331\332\333\332\334\335&)\307)!*+\204~,+*-\336*!\210)\337)$\"B\211 . \207" [in-help help-cand special-display-buffer-names special-display-regexps anything-persistent-action-use-special-display hist nil intern fboundp #[(candidate) "\305\306 ! \203\n \230\203\f\232\204\307!\210\310\2021\311\312\f!\310\"\210\313\314\n!!\210\315\310!\210\316\n\211)\207" [hbuf in-help candidate help-cand anything-current-buffer get-buffer help-buffer kill-buffer nil set-window-dedicated-p get-buffer-window describe-function intern message t] 3] pers-help ((byte-code "\301M\207" [#1=#:old pers-help] 2)) anything-comp-read "M-x " :test commandp :requires-pattern :name "Emacs Commands" :buffer "*anything M-x*" :persistent-action :persistent-help "Describe this command" :history :must-match t :candidates-in-buffer :fc-transformer anything-M-x-transformer call-interactively delete extended-command-history #2=#:--cl-var-- i com history #3=#:vnew #1# obarray anything-M-x-requires-pattern command sym-com current-prefix-arg anything-current-prefix-arg this-command] 24 (#$ . 394636) nil]) #@62 Preconfigured `anything' to disable/enable function advices. (defalias 'anything-manage-advice #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-advice "*anything advice*"] 3 (#$ . 396111) nil]) #@196 Preconfigured `anything' for bookmark-extensions sources. Needs bookmark-ext.el: . Contain also `anything-c-source-google-suggest'. (defalias 'anything-bookmark-ext #[nil "\300\301\302\303\304\305\306&\207" [anything :sources (anything-c-source-bookmark-files&dirs anything-c-source-bookmark-w3m anything-c-source-google-suggest anything-c-source-bmkext-addressbook anything-c-source-bookmark-gnus anything-c-source-bookmark-info anything-c-source-bookmark-man anything-c-source-bookmark-images anything-c-source-bookmark-su-files&dirs anything-c-source-bookmark-ssh-files&dirs) :prompt "SearchBookmark: " :buffer "*anything bmkext*"] 7 (#$ . 396331) nil]) #@172 Preconfigured `anything' for simple-call-tree. List function relationships. Needs simple-call-tree.el. http://www.emacswiki.org/cgi-bin/wiki/download/simple-call-tree.el (defalias 'anything-simple-call-tree #[nil "\300\301\302\"\207" [anything-other-buffer (anything-c-source-simple-call-tree-functions-callers anything-c-source-simple-call-tree-callers-functions) "*anything simple-call-tree*"] 3 (#$ . 397059) nil]) #@61 Preconfigured `anything' for `anything-c-source-mark-ring'. (defalias 'anything-mark-ring #[nil "\300\301\302\"\207" [anything :sources anything-c-source-mark-ring] 3 (#$ . 397484) nil]) #@68 Preconfigured `anything' for `anything-c-source-global-mark-ring'. (defalias 'anything-global-mark-ring #[nil "\300\301\302\"\207" [anything :sources anything-c-source-global-mark-ring] 3 (#$ . 397677) nil]) #@102 Preconfigured `anything' for `anything-c-source-global-mark-ring' and `anything-c-source-mark-ring'. (defalias 'anything-all-mark-rings #[nil "\300\301\302\"\207" [anything :sources (anything-c-source-mark-ring anything-c-source-global-mark-ring)] 3 (#$ . 397892) nil]) #@133 Preconfigured `anything' to edit or view EmacsWiki page. Needs yaoddmuse.el. http://www.emacswiki.org/emacs/download/yaoddmuse.el (defalias 'anything-yaoddmuse-emacswiki-edit-or-view #[nil "\300\301\302\"\207" [anything :sources anything-c-source-yaoddmuse-emacswiki-edit-or-view] 3 (#$ . 398169) nil]) #@131 Preconfigured `anything' to post library to EmacsWiki. Needs yaoddmuse.el. http://www.emacswiki.org/emacs/download/yaoddmuse.el (defalias 'anything-yaoddmuse-emacswiki-post-library #[nil "\300\301\302\"\207" [anything :sources anything-c-source-yaoddmuse-emacswiki-post-library] 3 (#$ . 398481) nil]) #@67 Preconfigured anything for `anything-c-source-evaluation-result'. (defalias 'anything-eval-expression #[(arg) "\302\303\304\305\205 \306\307!\310\311\312\313\314 &\n\207" [arg anything-eval-expression-map anything :sources anything-c-source-evaluation-result :input thing-at-point sexp :buffer "*anything eval*" :history anything-eval-expression-input-history :keymap] 11 (#$ . 398790) "P"]) #@89 Preconfigured anything for `anything-c-source-evaluation-result' with `eldoc' support.  (defalias 'anything-eval-expression-with-eldoc #[nil "\305\306\307#\310\211\311\216\312\313\314\216\315\316\f\"\210\317\320!.\207" [eldoc-idle-delay completion-cycle-threshold minibuffer-completing-symbol timer #1=#:setup-hook run-with-idle-timer repeat anything-eldoc-show-in-eval t ((byte-code "\203\302!\210 A\302\207" [timer anything-eldoc-active-minibuffers-list cancel-timer] 2)) nil #[nil "\301\302\"\210\303 \207" [#1# remove-hook minibuffer-setup-hook anything-eldoc-store-minibuffer] 3] ((byte-code "\301\302\"\207" [#1# remove-hook minibuffer-setup-hook] 3)) add-hook minibuffer-setup-hook call-interactively anything-eval-expression] 4 (#$ . 399190) nil]) #@68 Preconfigured anything for `anything-c-source-calculation-result'. (defalias 'anything-calcul-expression #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-calculation-result "*anything calcul*"] 3 (#$ . 399966) nil]) #@64 Preconfigured `anything' to search PATTERN with search ENGINE. (defalias 'anything-surfraw #[(pattern engine) "\306!@\307\310!r\nq\210\311\216\312\313\314\315\316\315\317 \320D\306 !\"&\210\321\322\323\324 #+ \206. \325\230\203=\326!\202K\326\f!\210\327\"B\211+\207" [engine engine-nodesc #1=#:temp-buffer pattern url anything-surfraw-default-browser-function split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process "surfraw" nil t append "-p" replace-regexp-in-string "\n" "" buffer-string "W" anything-c-browse-url delete browse-url-browser-function anything-c-home-url anything-surfraw-engines-history] 10 (#$ . 400207) (list (read-string "SearchFor: " nil 'anything-surfraw-input-history) (anything-comp-read "Engine: " (anything-c-build-elvi-list) :must-match t :name "Surfraw Search Engines" :history anything-surfraw-engines-history))]) #@51 Preconfigured `anything' to call anything source. (defalias 'anything-call-source #[nil "\301\302\303\304$\207" [anything-source-select-buffer anything :sources anything-c-source-call-source :buffer] 5 (#$ . 401163) nil]) #@63 Preconfigured `anything' to execute preconfigured `anything'. (defalias 'anything-execute-anything-command #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-anything-commands "*anything commands*"] 3 (#$ . 401392) nil]) #@102 Preconfigured `anything' to do many create actions from STRING. See also `anything-create--actions'. (defalias 'anything-create #[(&optional string initial-input) "\206\302\303 \"\304\305\306\"\207" [string initial-input read-string "Create Anything: " anything :sources (((name . "Anything Create") (header-name lambda (_) (format "Action for \"%s\"" string)) (candidates . anything-create--actions) (candidate-number-limit) (action lambda (func) (funcall func string))))] 3 (#$ . 401637) nil]) #@43 Preconfigured `anything' for top command. (defalias 'anything-top #[nil "\305\306\307\310\311 \312\216\313 \210\314\315\316\".\207" [anything-candidate-number-limit anything-display-function anything-enable-shortcuts anything-samewindow #1=#:wconfig t nil anything-default-display-buffer 9999 current-window-configuration ((set-window-configuration #1#)) delete-other-windows anything-other-buffer anything-c-source-top "*anything top*"] 4 (#$ . 402143) nil]) #@43 Preconfigured `anything' to select Xfont. (defalias 'anything-select-xfont #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-xfonts "*anything select* xfont"] 3 (#$ . 402615) nil]) #@46 Preconfigured `anything' to show world time. (defalias 'anything-world-time #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-time-world "*anything world time*"] 3 (#$ . 402820) nil]) #@93 Preconfigured `anything' : frontend of APT package manager. With a prefix arg reload cache. (defalias 'anything-apt #[(arg) "\302\303\304\305# \203 \306 \210\307\310\311\312\303\313\314\305&)\207" [query arg read-string "Search Package: " nil anything-c-apt-input-history anything-c-apt-refresh anything :sources anything-c-source-apt :prompt :input :history] 9 (#$ . 403028) "P"]) #@66 Preconfigured anything to provide anything completion in eshell. (defalias 'anything-esh-pcomplete #[nil "\306\211\307\310!`\n\203 \nGZ\206\311c\210`\n\206\311\205+\312\313C\"\314\216\315\f \"\210\203=\316\202>\317\320\321\322\323\324\325\326\327\330\331\332\217!@!&.\207" [anything-quit-if-no-candidate anything-execute-action-at-once-if-one target end beg anything-ec-target t thing-at-point symbol " " append anything-c-show-completion ((byte-code "\203\302 !\210\302\207" [anything-c-turn-on-show-completion anything-c-show-completion-overlay delete-overlay] 2)) anything-c-show-completion-init-overlay anything-c-show-completion-display-function anything-default-display-buffer anything :sources anything-c-source-esh :buffer "*anything pcomplete*" :input anything-ff-set-pattern last nil (pcomplete-parse-arguments) ((error)) anything-c-turn-on-show-completion anything-move-selection-after-hook anything-c-show-completion-use-special-display anything-display-function] 12 (#$ . 403420) nil]) #@44 Preconfigured anything for eshell history. (defalias 'anything-eshell-history #[nil "`\212\306 \210`)\211{\307 =\203\310c\210\311`\312\216\f\205'\313\314C \"\315\216\316 \"\210\2038\317\2029\320\321\322\323\324\325\326\n&.\207" [end beg input flag-empty anything-c-turn-on-show-completion anything-move-selection-after-hook eshell-bol nil " " t ((byte-code "\203\301\302!\203\303\304!\210\301\207" [flag-empty looking-back " " delete-char -1] 2)) append anything-c-show-completion ((byte-code "\203\302 !\210\302\207" [anything-c-turn-on-show-completion anything-c-show-completion-overlay delete-overlay] 2)) anything-c-show-completion-init-overlay anything-c-show-completion-display-function anything-default-display-buffer anything :sources anything-c-source-eshell-history :buffer "*Eshell history*" :input anything-c-show-completion-use-special-display anything-display-function] 8 (#$ . 404455) nil]) #@203 Preconfigured `anything' to run External PROGRAM asyncronously from Emacs. If program is already running exit with error. You can set your own list of commands with `anything-c-external-commands-list'. (defalias 'anything-c-run-external-command #[(program) "\305!\210\306 \307\211\n:\203&\n@\310 !\203 \fB\nA\211\202\f\237+\"B\211\207" [program anything-external-command-history #1=#:--cl-var-- i #2=#:--cl-var-- anything-run-or-raise delete nil executable-find] 6 (#$ . 405397) (list (anything-comp-read "RunProgram: " (anything-c-external-commands-list-1 'sort) :must-match t :name "External Commands" :history anything-external-command-history))]) #@57 Preconfigured `anything' to execute ratpoison commands. (defalias 'anything-ratpoison-commands #[nil "\300\301\302\"\207" [anything-other-buffer anything-c-source-ratpoison-commands "*anything ratpoison commands*"] 3 (#$ . 406069) nil]) #@54 Preconfigured anything for `ucs-names' math symbols. (defalias 'anything-ucs #[nil "\301\302\303\304$\207" [anything-c-ucs-map anything :sources anything-c-source-ucs :keymap] 5 (#$ . 406312) nil]) #@78 Preconfigured anything to describe commands, functions, variables and faces. (defalias 'anything-c-apropos #[nil "\301\302!\303\304\305\306\307\310\311\312EF\313BB\314\306\307\310\311\315EF\316BB\317\306\307\310\311\320EF\321BB\322\306\307\310\311\323EF\324BB\325BBBB\")\207" [default thing-at-point symbol anything :sources (name . "Commands") init lambda nil anything-c-apropos-init 'commandp ((persistent-action . anything-lisp-completion-persistent-action) (persistent-help . "Show brief doc in mode-line") (candidates-in-buffer) (action lambda (candidate) (describe-function (intern candidate)))) (name . "Functions") #'(lambda (x) (and (fboundp x) (not (commandp x)))) ((persistent-action . anything-lisp-completion-persistent-action) (persistent-help . "Show brief doc in mode-line") (candidates-in-buffer) (action lambda (candidate) (describe-function (intern candidate)))) (name . "Variables") 'boundp ((persistent-action . anything-lisp-completion-persistent-action) (persistent-help . "Show brief doc in mode-line") (candidates-in-buffer) (action lambda (candidate) (describe-variable (intern candidate)))) (name . "Faces") 'facep ((persistent-action . anything-lisp-completion-persistent-action) (persistent-help . "Show brief doc in mode-line") (candidates-in-buffer) (filtered-candidate-transformer lambda (candidates source) (loop for c in candidates collect (propertize c 'face (intern c)))) (action lambda (candidate) (describe-face (intern candidate)))) (((name . "Anything attributes") (candidates lambda nil (mapcar 'symbol-name anything-additional-attributes)) (action lambda (candidate) (with-output-to-temp-buffer "*Help*" (princ (get (intern candidate) 'anything-attrdoc))))))] 12 (#$ . 406517) nil]) (defalias 'anything-xrandr-set #[nil "\300\301\302\303\304$\207" [anything :sources anything-c-source-xrandr-change-resolution :buffer "*anything xrandr*"] 5 nil nil]) #@120 Preconfigured `anything' to list function/variable definitions. Needs Exuberant Ctags. http://ctags.sourceforge.net/ (defalias 'anything-ctags-current-file #[nil "\300\301\302\303\304$\207" [anything :sources anything-c-source-ctags :buffer "*anything ctags*"] 5 (#$ . 408422) nil]) (provide 'anything-config)