;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\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\312\326\314\315\327DD\330\311\306\320\331&\210\332\333\334\335\311\306%\210\332\336\337\340\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" ["Paris"] 1 "Paris\n\n(fn)"] "The time zone of your home" :type string helm-timezone-actions #[0 "\300\207" [(("Set timezone env (TZ)" lambda (candidate) (setenv "TZ" candidate)))] 1 "\n\n(fn)"] "Actions for helm-timezone." (alist :key-type string :value-type function) helm-mini-default-sources #[0 "\300\207" [(helm-source-buffers-list helm-source-recentf helm-source-buffer-not-found)] 1 "\n\n(fn)"] "Default sources list used in `helm-mini'." (repeat (choice symbol)) 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) #@53 Collect candidates for latex math completion. (fn) (defalias 'helm-latex-math-candidates #[0 "\211AA\262\301\211\211:\203J@\262\301\211:\2036@\262\302!\203/\303H\304HBB\262A\262\202\211\237\266\203\262\305!\244\262A\262\202 \211\237\207" [LaTeX-math-menu nil vectorp 0 1 reverse] 10 (#$ . 1631)]) (defvar helm-source-latex-math '((name . "Latex Math Menu") (init lambda nil (with-helm-current-buffer (LaTeX-math-mode 1))) (candidate-number-limit . 9999) (candidates . helm-latex-math-candidates) (action lambda (candidate) (call-interactively candidate)))) #@36 List online Jabber contacts. (fn) (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 (#$ . 2223)]) (defvar helm-source-jabber-contacts '((name . "Jabber Contacts") (init lambda nil (require 'jabber)) (candidates lambda nil (mapcar 'car (helm-jabber-online-contacts))) (action lambda (x) (jabber-chat-with (jabber-read-account) (symbol-name (cdr (assoc x (helm-jabber-online-contacts)))))))) (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#\202EBB\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 "\n\n(fn CANDIDATES SOURCE)"]) (defvar helm-source-time-world (helm-make-source "Time World List" 'helm-source-in-buffer :data #[0 "\301\302!r\211q\210\303\304\305\306\307\310!\311\"\312\313%DC\216\314!\210\315 *\207" [display-time-world-list generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" display-time-world-display buffer-string] 8 "\n\n(fn)"] :action 'helm-timezone-actions :filtered-candidate-transformer 'helm-time-zone-transformer)) (defalias 'helm-lacarte-candidate-transformer #[257 "\300\301\"\207" [mapcar #[257 "\211@\300\301\"\211\203\302\303\224\303\225\304\305%\210\207" [string-match "[^>] \\((.*)\\)$" put-text-property 1 face helm-M-x-key] 9 "\n\n(fn CAND)"]] 4 "\n\n(fn CANDS)"]) (byte-code "\300\301\302\303\304$\207" [eieio-defclass helm-lacarte (helm-source-sync helm-type-command) ((init :initform (lambda nil (require 'lacarte))) (candidates :initform 'helm-lacarte-get-candidates) (candidate-transformer :initform 'helm-lacarte-candidate-transformer) (candidate-number-limit :initform 9999)) nil] 5) #@335 Extract candidates for menubar using lacarte.el. See http://www.emacswiki.org/cgi-bin/wiki/download/lacarte.el. Optional argument MAPS is a list specifying which keymaps to use: it can contain the symbols `local', `global', and `minor', mean the current local map, current global map, and all current minor maps. (fn &optional MAPS) (defalias 'helm-lacarte-get-candidates #[256 "r\301!\203 \206p\211q\210\302!)\207" [helm-current-buffer buffer-live-p lacarte-get-overall-menu-item-alist] 3 (#$ . 4322)]) #@59 Preconfigured helm to the menubar using lacarte.el. (fn) (defalias 'helm-browse-menubar #[0 "\300\301!\210\302\303\304\305\306\"\307\310$\207" [require lacarte helm :sources mapcar #[257 "\300@\301\302\303\304\305\306\307 !\310\"\311\312%$\207" [helm-make-source helm-lacarte :candidates make-byte-code 0 "\301\300A!\207" vconcat vector [helm-lacarte-get-candidates] 2 "\n\n(fn)"] 11 "\n\n(fn SPEC)"] (("Major Mode" local) ("Minor Modes" minor) ("Global Map" global)) :buffer "*helm lacarte*"] 5 (#$ . 4840) nil]) #@168 Execute CMD-OR-NAME as Emacs command. It is added to `extended-command-history'. `helm-current-prefix-arg' is used as the command's prefix argument. (fn CMD-OR-NAME) (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 (#$ . 5364)]) (defvar helm-source-minibuffer-history (helm-make-source "Minibuffer History" 'helm-source-sync :header-name #[257 "\301\302#\207" [minibuffer-history-variable format "%s (%s)"] 5 "\n\n(fn NAME)"] :candidates #[0 "J\301\211:\203@\262\302\230\204B\262A\262\202\211\237\266\203\211@:\2030\303\304\"\2021\211\207" [minibuffer-history-variable nil "" mapcar prin1-to-string] 5 "\n\n(fn)"] :migemo t :multiline t :action #[257 "\300 \210\211c\207" [delete-minibuffer-contents] 2 "\n\n(fn CANDIDATE)"])) #@52 Default action for comint history. (fn CANDIDATE) (defalias 'helm-comint-input-ring-action #[257 "r\301!\203 \206p\211q\210\302 d|\210\211c)\207" [helm-current-buffer buffer-live-p comint-line-beginning-position] 3 (#$ . 6344)]) #@66 Source that provide helm completion against `comint-input-ring'. (defvar helm-source-comint-input-ring '((name . "Comint history") (candidates lambda nil (with-helm-current-buffer (ring-elements comint-input-ring))) (action . helm-comint-input-ring-action)) (#$ . 6586)) (defvar helm-source-ratpoison-commands '((name . "Ratpoison Commands") (init . helm-ratpoison-commands-init) (candidates-in-buffer) (action ("Execute the command" . helm-ratpoison-commands-execute)) (display-to-real . helm-ratpoison-commands-display-to-real) (candidate-number-limit))) (defalias 'helm-ratpoison-commands-init #[0 "\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" [helm-candidate-buffer global call-process "ratpoison" nil "-c" "help" re-search-forward "^\\([^ ]+\\) \\(.+\\)$" t replace-match " \\1: \\2" "help top" "\\1: \\2"] 7 "\n\n(fn)"]) (defalias 'helm-ratpoison-commands-display-to-real #[257 "\300\301\"\205\f\211\302\225\303O\207" [string-match ": " 0 nil] 4 "\n\n(fn DISPLAY)"]) (defalias 'helm-ratpoison-commands-execute #[257 "\300\301\302\211\211\303&\207" [call-process "ratpoison" nil "-ic"] 8 "\n\n(fn CANDIDATE)"]) (defvar helm-source-stumpwm-commands '((name . "Stumpwm Commands") (init . helm-stumpwm-commands-init) (candidates-in-buffer) (action ("Execute the command" . helm-stumpwm-commands-execute)) (candidate-number-limit))) (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 "\n\n(fn)"]) (defalias 'helm-stumpwm-commands-execute #[257 "\300\301\302\211\211%\207" [call-process "stumpish" nil] 7 "\n\n(fn CANDIDATE)"]) #@112 Preconfigured `helm' to show world time. Default action change TZ environment variable locally to emacs. (fn) (defalias 'helm-world-time #[0 "\300\301\302\"\207" [helm-other-buffer helm-source-time-world "*helm world time*"] 3 (#$ . 8573) nil]) #@61 Preconfigured helm for latex math symbols completion. (fn) (defalias 'helm-insert-latex-math #[0 "\300\301\302\"\207" [helm-other-buffer helm-source-latex-math "*helm latex*"] 3 (#$ . 8825) nil]) #@59 Preconfigured `helm' to execute ratpoison commands. (fn) (defalias 'helm-ratpoison-commands #[0 "\300\301\302\"\207" [helm-other-buffer helm-source-ratpoison-commands "*helm ratpoison commands*"] 3 (#$ . 9028) nil]) #@48 Preconfigured helm for stumpwm commands. (fn) (defalias 'helm-stumpwm-commands #[0 "\300\301\302\"\207" [helm-other-buffer helm-source-stumpwm-commands "*helm stumpwm commands*"] 3 (#$ . 9251) nil]) #@54 Preconfigured `helm' for `minibuffer-history'. (fn) (defalias 'helm-minibuffer-history #[0 "\301\302\303\304\305\306$)\207" [enable-recursive-minibuffers t helm :sources helm-source-minibuffer-history :buffer "*helm minibuffer-history*"] 5 (#$ . 9457) nil]) #@73 Preconfigured `helm' that provide completion of `comint' history. (fn) (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 (#$ . 9723) nil]) (provide 'helm-misc)