;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\306\307\310\311\312\302%\210\313\314\315\316\317DD\320\312\307\321\322&\210\313\323\315\316\324DD\325\321\326\312\307&\210\300\327\310\330#\203j\331\310\211:\203h@\262\211A\262\242\262\332!\204a\333\"\210A\262\202E\266\310\207" [require cl-lib helm helm-help eldoc edebug custom-declare-group helm-eval nil "Eval related Applications and libraries for Helm." :group custom-declare-variable helm-eldoc-in-minibuffer-show-fn funcall function #[0 "\300\207" [helm-show-info-in-mode-line] 1 "\n\n(fn)"] "A function to display eldoc info.\nShould take one arg: the string to display." :type symbol helm-show-info-in-mode-line-delay #[0 "\300\207" [12] 1 "\n\n(fn)"] "Eldoc will show info in mode-line during this delay if user is idle." integer elisp-mode t ((eldoc-current-symbol . elisp--current-symbol) (eldoc-fnsym-in-current-sexp . elisp--fnsym-in-current-sexp) (eldoc-get-fnsym-args-string . elisp-get-fnsym-args-string) (eldoc-get-var-docstring . elisp-get-var-docstring)) fboundp defalias] 8) (defvar helm-eldoc-active-minibuffers-list nil) (defvar helm-eval-expression-map (byte-code "\301 \302\"\210\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\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key [C-return] helm-eval-new-line-and-indent [M-tab] lisp-indent-line [C-tab] helm-lisp-completion-at-point "" previous-line "" next-line [up] [down] [right] forward-char [left] backward-char] 5)) (defalias 'helm-build-evaluation-result-source #[0 "\300\301\302\303\304\305\306\307\310\311\304\312\313&\f\207" [helm-make-source "Evaluation Result" helm-source-dummy :multiline t :mode-line "C-RET: nl-and-indent, M-tab: reindent, C-tab:complete, C-p/n: next/prec-line." :filtered-candidate-transformer #[514 "\300\301\302D\303\301\304\300EDC\217C\207" [#1=#:err funcall #[0 "r\303!\203 \206p\211q\210\304 \203\305\306\n!!\202\"\307\306\n!!!)\207" [helm-current-buffer edebug-active helm-pattern buffer-live-p pp-to-string edebug-eval-expression read eval] 4 "\n\n(fn)"] error #[257 "\300\207" ["Error"] 2 "Error\n\n(fn IGNORED)"]] 8 "\n\n(fn CANDIDATES SOURCE)"] :nohighlight :action (("Copy result to kill-ring" lambda (candidate) (kill-new (replace-regexp-in-string "\n" "" candidate)) (message "Result copied to kill-ring")) ("copy sexp to kill-ring" lambda (_candidate) (kill-new helm-input) (message "Sexp copied to kill-ring")))] 13 "\n\n(fn)"]) (defalias 'helm-eval-new-line-and-indent #[0 "\300 \210\301 \207" [newline lisp-indent-line] 1 "\n\n(fn)" nil]) #@77 Store minibuffer buffer name in `helm-eldoc-active-minibuffers-list'. (fn) (defalias 'helm-eldoc-store-minibuffer #[0 "\301\302 !r\303\304\305\306\307\310!\311\"\312\313%DC\216\314@\315\"\210pB\211*\207" [helm-eldoc-active-minibuffers-list internal--before-with-selected-window minibuffer-window funcall make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 "\n\n(fn)" select-window norecord] 8 (#$ . 3113)]) #@63 Return eldoc in mode-line for current minibuffer input. (fn) (defalias 'helm-eldoc-show-in-eval #[0 "\300\301 !\302\303\304\305\306\307\310!\311\"\312\313%D\314\303\315\302EDC\217\207" [window-buffer active-minibuffer-window #1=#:err funcall make-byte-code 0 "\300 \235\2055r\300q\210\212\303\304`S\"\204\305u\210\306 )\307 \310!\206+\311@\211A@\262\"\211\2052\n!\266\203)\207" vconcat vector [helm-eldoc-active-minibuffers-list helm-eldoc-in-minibuffer-show-fn looking-back ")\\|\"" -1 eldoc-current-symbol eldoc-fnsym-in-current-sexp eldoc-get-var-docstring eldoc-get-fnsym-args-string] 6 "\n\n(fn)" error #[257 "\300\301\"\210\302\207" [message "Eldoc in minibuffer error: %S" nil] 4 "\n\n(fn ERR)"]] 9 (#$ . 3569)]) #@44 Display string STR in mode-line. (fn STR) (defalias 'helm-show-info-in-mode-line #[257 "\303 r\304\305\306\307\310\311!\312\"\313\314%DC\216rq\210\315P\316 \210\317\n!\210)\316 +\207" [helm-buffer mode-line-format helm-show-info-in-mode-line-delay internal--before-save-selected-window funcall make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 "\n\n(fn)" " " force-mode-line-update sit-for] 9 (#$ . 4309)]) (defvar helm-source-calculation-result (helm-make-source "Calculation Result" 'helm-source-dummy :filtered-candidate-transformer #[514 "\300\301\302D\303\301\304\300EDC\217C\207" [#:err funcall #[0 "\301!\207" [helm-pattern calc-eval] 2 "\n\n(fn)"] error #[257 "\300\207" ["error"] 2 "error\n\n(fn IGNORED)"]] 8 "\n\n(fn CANDIDATES SOURCE)"] :nohighlight t :action '(("Copy result to kill-ring" lambda (candidate) (kill-new candidate) (message "Result \"%s\" copied to kill-ring" candidate)) ("Copy operation to kill-ring" lambda (_candidate) (kill-new helm-input) (message "Calculation copied to kill-ring"))))) #@67 Preconfigured helm for `helm-source-evaluation-result'. (fn ARG) (defalias 'helm-eval-expression #[257 "\301\302\303 \304\205\f\305\306!\307\310\311\312\313\314\315&\f\207" [helm-eval-expression-map helm :sources helm-build-evaluation-result-source :input thing-at-point sexp :buffer "*helm eval*" :echo-input-in-header-line nil :history read-expression-history :keymap] 14 (#$ . 5381) "P"]) #@85 Preconfigured helm for `helm-source-evaluation-result' with `eldoc' support. (fn) (defalias 'helm-eval-expression-with-eldoc #[0 "\301\302\303#\304\305\306\307\310\311!\312\"\313\314%DC\216\315C\211\305\306\316\310\311!\317\"\320\314%\240\210\304\305\306\321\310\311!\322\"\320\314%DC\216\323\324\242\"\210\325\326!)\262)\207" [eldoc-idle-delay run-with-idle-timer repeat helm-eldoc-show-in-eval funcall make-byte-code 0 "\300\203\302\300!\210 A\211\207" vconcat vector [helm-eldoc-active-minibuffers-list cancel-timer] 2 "\n\n(fn)" nil "\301\302\300\242\"\210\303 \207" [remove-hook minibuffer-setup-hook helm-eldoc-store-minibuffer] 3 "\301\302\300\242\"\207" [remove-hook minibuffer-setup-hook] add-hook minibuffer-setup-hook call-interactively helm-eval-expression] 9 (#$ . 5783) nil]) #@64 Preconfigured helm for `helm-source-calculation-result'. (fn) (defalias 'helm-calcul-expression #[0 "\300\301\302\303\304$\207" [helm :sources helm-source-calculation-result :buffer "*helm calcul*"] 5 (#$ . 6593) nil]) (provide 'helm-eval)