;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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar anything-menu-version "$Id: anything-menu.el,v 1.6 2010-04-01 12:10:35 rubikitch Exp $") (byte-code "\300\301!\210\302\303\304\305\306\307%\207" [require anything custom-declare-group anything-menu nil "anything-menu" :group emacs] 6) (defvar am/tmp-file "/tmp/.am-tmp-file") (defvar am/frame nil) (defalias 'am/set-frame #[nil "\203\n\301!\204\302\303!\304!\210\305!\210\306\307!\207" [am/frame frame-live-p make-frame ((name . "anything menu") (title . "anything menu")) select-frame make-frame-visible sit-for 0] 2]) (defalias 'am/close-frame #[nil "\300\301\302\217\210\303\304!\205\304\305!\207" [nil (make-frame-invisible am/frame) ((error)) fboundp do-applescript "tell application \"iTerm\"\n activate\n end"] 3]) (defalias 'am/write-result #[(line) "\302\206\303\304 \304\305%\207" [line am/tmp-file write-region "" nil silent] 6]) #@120 Call `anything' outside Emacs. Arguments are the same as `anything'. Pop up anything frame and close it after session. (defalias 'anything-menu #[(&optional any-sources any-input any-prompt any-resume any-preselect any-buffer any-keymap) "\306 \210\307\216\310\311\312\313 \f \f &,\207" [anything-after-action-hook anything-display-function anything-samewindow any-sources any-input any-prompt am/set-frame ((am/close-frame)) t anything-default-display-buffer #[nil "\300\301 !\207" [am/write-result anything-get-selection] 2] anything any-resume any-preselect any-buffer any-keymap] 8 (#$ . 1332) nil]) #@112 Select from a list AM-SELECTIONS and write selection to /tmp/.am-tmp-file, the default file of `am/tmp-file'.  (defalias 'anything-menu-select #[(am-prompt &rest am-selections) "\301\302B\303BC\304\305P\304\211\306&\207" [am-prompt anything-menu name ((candidates . am-selections) (migemo) (action . am/write-result)) nil ": " "*anything menu select*"] 7 (#$ . 1953)]) #@246 Select a candidate in file AM-FILENAME and write selection to /tmp/.am-tmp-file, the default file of `am/tmp-file'. The anything-menu script calls this function and print selection to stdout. (fn AM-FILENAME &optional (AM-PROMPT "selection")) (defalias 'anything-menu-select-from-file #[(am-filename &rest #1=#:--cl-rest--) "\203\f\211A\242\202 \302\203\303\304\305\306G\\D\"\210\307\310 B\311BC\312 \313P\312\211\314&)\207" [#1# am-prompt "selection" signal wrong-number-of-arguments anything-menu-select-from-file 2 anything-menu name ((init lambda nil (with-current-buffer (anything-candidate-buffer 'global) (insert-file-contents am-filename))) (candidates-in-buffer) (migemo) (action . am/write-result)) nil ": " "*anything menu select*"] 7 (#$ . 2332)]) (provide 'anything-menu)