| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\302%\210\312\313\314\315\316DD\317\311\306\320\321&\210\312\322\314\315\323DD\324\311\306\320\325&\210\326\327\330\331\311\306%\210\326\332\333\334\311\306%\207" [require cl-lib helm helm-help helm-types custom-declare-group helm-misc nil "Various Applications and libraries for Helm." :group custom-declare-variable helm-time-zone-home-location funcall function #[0 "\300\207" [#1="Paris"] 1 #1#] "The time zone of your home" :type string helm-timezone-actions #[0 "\300\207" [(("Set timezone env (TZ)" lambda (candidate) (setenv "TZ" candidate)))] 1] "Actions for helm-timezone." (alist :key-type string :value-type function) custom-declare-face helm-time-zone-current ((t (:foreground "green"))) "Face used to colorize current time in `helm-world-time'." helm-time-zone-home ((t (:foreground "red"))) "Face used to colorize home time in `helm-world-time'."] 8) | |
| 16 | (defalias 'helm-latex-math-candidates #[0 "\301C\211\302\303\304\305\306!\307\"\310\311%\240\210\211\242!\207" [LaTeX-math-menu nil make-byte-code 257 "\301!\203 \211\302H\303HBC\207\211<\2054 \211\304\211:\2030 @\262\300\242!\237\244\262A\262\202 \211\237\266\203\207" vconcat vector [vectorp 0 1 nil] 6 "\n\n(fn L)"] 8]) | |
| 17 | (defvar helm-source-latex-math (helm-make-source "Latex Math Menu" 'helm-source-sync :init #[0 "r\301!\203 \206 p\211q\210\302\303!)\207" [helm-current-buffer buffer-live-p LaTeX-math-mode 1] 2] :candidate-number-limit 9999 :candidates 'helm-latex-math-candidates :action #[257 "\300!\207" [call-interactively] 3 "\n\n(fn CANDIDATE)"])) | |
| 18 | #@30 List online Jabber contacts. | |
| 19 | (defalias 'helm-jabber-online-contacts #[0 "\300 \301\211:\2031 @\262\302N\203* \303N\203! \303NB\202& \304!BB\262A\262\202 \211\237\207" [jabber-concat-rosters nil connected name symbol-name] 5 (#$ . 2040)]) | |
| 20 | (defvar helm-source-jabber-contacts (helm-make-source "Jabber Contacts" 'helm-source-sync :init #[0 "\300\301!\207" [require jabber] 2] :candidates #[0 "\300\301\302 \"\207" [mapcar car helm-jabber-online-contacts] 3] :action #[257 "\300\301 \302\303\304 \"A!\"\207" [jabber-chat-with jabber-read-account symbol-name assoc helm-jabber-online-contacts] 7 "\n\n(fn X)"])) | |
| 21 | #@26 | |
| 22 | ||
| 23 | (fn CANDIDATES SOURCE) | |
| 24 | (defalias 'helm-time-zone-transformer #[514 "\302\302\211\211:\203V @\262:\203V @\262\211A\262\242\262\303\304\305\306 \"\"\2034 \307\310\311#\202E \303 \"\203D \307\310\312#\202E BB\262A\262A\262\202 \211\237\207" [display-time-world-list helm-time-zone-home-location nil string-match format-time-string "%H:%M" current-time propertize face helm-time-zone-current helm-time-zone-home] 12 (#$ . 2669)]) | |
| 25 | (defvar helm-source-time-world (helm-make-source "Time World List" 'helm-source-in-buffer :init #[0 "\303\304!\210\205\n <?\205' \305\306\307\310#\305\306\307\311#\230\203\" \202# \n\266\202\211\207" [display-time-world-list legacy-style-world-list zoneinfo-style-world-list require time format-time-string "%z" nil "America/New_York" "Europe/London"] 5] :data #[0 "\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312!\210\313 *\207" [display-time-world-list generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 display-time-world-display buffer-string] 7] :action 'helm-timezone-actions :filtered-candidate-transformer 'helm-time-zone-transformer)) | |
| 26 | #@168 Execute CMD-OR-NAME as Emacs command. | |
| 27 | It is added to `extended-command-history'. | |
| 28 | `helm-current-prefix-arg' is used as the command's prefix argument. | |
| 29 | ||
| 30 | (fn CMD-OR-NAME) | |
| 31 | (defalias 'helm-call-interactively #[257 "\304!\305\304!\"B \306!\211K;\203 \307K!\202# \211\310!)\207" [extended-command-history helm-current-prefix-arg current-prefix-arg this-command helm-stringify delete helm-symbolify execute-kbd-macro call-interactively] 5 (#$ . 3864)]) | |
| 32 | (defvar helm-minibuffer-history-map (byte-code "\301 \302\"\210\303\304\305#\210\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key [remap helm-minibuffer-history] undefined] 5)) | |
| 33 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable helm-minibuffer-history-must-match funcall function #[0 "\300\207" [t] 1] "Allow inserting non matching elements when nil or 'confirm." :group helm-misc :type (choice (const :tag "Must match" t) (const :tag "Confirm" 'confirm) (const :tag "Always allow" nil))] 8) | |
| 34 | #@52 Default action for comint history. | |
| 35 | ||
| 36 | (fn CANDIDATE) | |
| 37 | (defalias 'helm-comint-input-ring-action #[257 "r\301!\203 \206 p\211q\210\302 d|\210\211c)\207" [helm-current-buffer buffer-live-p comint-line-beginning-position] 3 (#$ . 4874)]) | |
| 38 | #@66 Source that provide helm completion against `comint-input-ring'. | |
| 39 | (defvar helm-source-comint-input-ring (helm-make-source "Comint history" 'helm-source-sync :candidates #[0 "r\302!\203 \206 p\211q\210\303 !)\207" [helm-current-buffer comint-input-ring buffer-live-p ring-elements] 2] :action 'helm-comint-input-ring-action) (#$ . 5116)) | |
| 40 | (defvar helm-source-ratpoison-commands (byte-code "\300\301\302\303\304\305\306\307\310\"\311\312\313\314&\n\207" [helm-make-source "Ratpoison Commands" helm-source-in-buffer :init helm-ratpoison-commands-init :action helm-make-actions "Execute the command" helm-ratpoison-commands-execute :display-to-real helm-ratpoison-commands-display-to-real :candidate-number-limit 999999] 11)) | |
| 41 | (defalias 'helm-ratpoison-commands-init #[0 "\300 ?\205F r\300\301!q\210\212\302\303\304p\304\305\306&\210)\307\310\304\311#\203' \312\313!\210\202 db\210\212\302\303\304p\304\305\314&\210)\307\310\304\311#\205E \312\315!\210\2026 )\207" [helm-candidate-buffer global call-process "ratpoison" nil "-c" "help" re-search-forward "^\\([^ ]+\\) \\(.+\\)$" t replace-match "<ratpoison> \\1: \\2" "help top" "\\1: \\2"] 7]) | |
| 42 | #@16 | |
| 43 | ||
| 44 | (fn DISPLAY) | |
| 45 | (defalias 'helm-ratpoison-commands-display-to-real #[257 "\300\301\"\205\f \211\302\225\303O\207" [string-match ": " 0 nil] 4 (#$ . 6268)]) | |
| 46 | #@18 | |
| 47 | ||
| 48 | (fn CANDIDATE) | |
| 49 | (defalias 'helm-ratpoison-commands-execute #[257 "\300\301\302\211\211\303&\207" [call-process "ratpoison" nil "-ic"] 8 (#$ . 6430)]) | |
| 50 | (defvar helm-source-stumpwm-commands (byte-code "\300\301\302\303\304\305\306\307\310\"\311\312&\207" [helm-make-source "Stumpwm Commands" helm-source-in-buffer :init helm-stumpwm-commands-init :action helm-make-actions "Execute the command" helm-stumpwm-commands-execute :candidate-number-limit 999999] 9)) | |
| 51 | (defalias 'helm-stumpwm-commands-init #[0 "r\300\301!q\210\212\302\303\304p\304\305%\210)\306\307\304\310#\203 \311\312!\210\202 \313 \210\314\304ed#\210db)\207" [helm-candidate-buffer global call-process "stumpish" nil "commands" re-search-forward "[ ]*\\([^ ]+\\)[ ]*\n?" t replace-match "\n\\1\n" delete-blank-lines sort-lines] 6]) | |
| 52 | #@18 | |
| 53 | ||
| 54 | (fn CANDIDATE) | |
| 55 | (defalias 'helm-stumpwm-commands-execute #[257 "\300\301\302\211\211%\207" [call-process "stumpish" nil] 7 (#$ . 7236)]) | |
| 56 | #@106 Preconfigured `helm' to show world time. | |
| 57 | Default action change TZ environment variable locally to emacs. | |
| 58 | (defalias 'helm-world-time #[0 "\300\301\302\"\207" [helm-other-buffer helm-source-time-world "*helm world time*"] 3 (#$ . 7382) nil]) | |
| 59 | #@55 Preconfigured helm for latex math symbols completion. | |
| 60 | (defalias 'helm-insert-latex-math #[0 "\300\301\302\"\207" [helm-other-buffer helm-source-latex-math "*helm latex*"] 3 (#$ . 7628) nil]) | |
| 61 | #@53 Preconfigured `helm' to execute ratpoison commands. | |
| 62 | (defalias 'helm-ratpoison-commands #[0 "\300\301\302\"\207" [helm-other-buffer helm-source-ratpoison-commands "*helm ratpoison commands*"] 3 (#$ . 7825) nil]) | |
| 63 | #@42 Preconfigured helm for stumpwm commands. | |
| 64 | (defalias 'helm-stumpwm-commands #[0 "\300\301\302\"\207" [helm-other-buffer helm-source-stumpwm-commands "*helm stumpwm commands*"] 3 (#$ . 8042) nil]) | |
| 65 | #@48 Preconfigured `helm' for `minibuffer-history'. | |
| 66 | (defalias 'helm-minibuffer-history #[0 "\306\307 !\204 \310\311\312\313\211$\210\314 \315=\206 \316=\317\320\nJ\313\211:\203; @\262\321\230\2044 \211C\244\262A\262\202 \211@:\203H \322\323\"\202I \211\266\203\324\325\326\327\330 \331\314\332\f\333\314&\334\305!\203x \203x \335\336\"\211\203w \337\211T\340 \341BB$\210\210\342 \210\211c)\207" [enable-recursive-minibuffers last-command minibuffer-history-variable helm-minibuffer-history-must-match helm-minibuffer-history-map query-replace-from-to-separator minibuffer-window-active-p selected-window cl--assertion-failed (minibuffer-window-active-p (selected-window)) "Error: Attempt to use minibuffer history outside a minibuffer" nil t query-replace query-replace-regexp helm-comp-read "pattern: " "" mapcar prin1-to-string :header-name #[257 "\301\302#\207" [minibuffer-history-variable format "%s (%s)"] 5 "\n\n(fn NAME)"] :buffer "*helm minibuffer-history*" :must-match :multiline :keymap :allow-nest boundp string-match " " add-text-properties display (separator t) delete-minibuffer-contents] 16 (#$ . 8242) nil]) | |
| 67 | #@67 Preconfigured `helm' that provide completion of `comint' history. | |
| 68 | (defalias 'helm-comint-input-ring #[0 "\300\301!\205 \302\303\304\305\306\307 \310 \"\311\312&\207" [derived-mode-p comint-mode helm :sources helm-source-comint-input-ring :input buffer-substring-no-properties comint-line-beginning-position point-at-eol :buffer "*helm comint history*"] 7 (#$ . 9389) nil]) | |
| 69 | (provide 'helm-misc) | |
