;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\306\307\310\311\312\303%\210\313\314\315\316\317DD\320\312\307\321\322&\210\313\323\315\316\324DD\325\312\307\321\326&\210\327\330\331\332\333Y\205A \334\335\"BC\336\312\307%\210\327\337\331\332\333Y\205U \340\341\"BC\342\312\307%\207" [emacs-major-version 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 append 27 (:extend t) (:foreground "green") "Face used to colorize current time in `helm-world-time'." helm-time-zone-home (:extend t) (:foreground "red") "Face used to colorize home time in `helm-world-time'."] 8)
(defalias 'helm-latex-math-candidates #[0 "\301C\211\302\303\"\240\210\211\242!\207" [LaTeX-math-menu nil make-closure #[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" [V0 vectorp 0 1 nil] 6 "\n\n(fn L)"]] 5])
(defvar helm-source-latex-math (helm-make-source "Latex Math Menu" 'helm-source-sync :init #[0 "r\301!\203 \206 p\211q\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)"]))
#@30 List online Jabber contacts.
(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 (#$ . 1782)])
(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)"]))
#@26 

(fn CANDIDATES SOURCE)
(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\262A\262A\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 (#$ . 2411)])
(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\303\"r\211q\210\304\305\"\216\306!\210\307 *\207" [display-time-world-list generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] display-time-world-display buffer-string] 4] :action 'helm-timezone-actions :filtered-candidate-transformer 'helm-time-zone-transformer))
#@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 (#$ . 3580)])
(defvar helm-minibuffer-history-map (byte-code "\301 \302\"\210\303\304\305#\210\207" [helm-map make-sparse-keymap set-keymap-parent define-key [remap helm-minibuffer-history] undefined] 5))
(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)
(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))
(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])
#@16 

(fn DISPLAY)
(defalias 'helm-ratpoison-commands-display-to-real #[257 "\300\301\"\205\f \211\302\225\303O\207" [string-match ": " 0 nil] 4 (#$ . 5391)])
#@18 

(fn CANDIDATE)
(defalias 'helm-ratpoison-commands-execute #[257 "\300\301\302\211\211\303&\207" [call-process "ratpoison" nil "-ic"] 8 (#$ . 5553)])
(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))
(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])
#@18 

(fn CANDIDATE)
(defalias 'helm-stumpwm-commands-execute #[257 "\300\301\302\211\211%\207" [call-process "stumpish" nil] 7 (#$ . 6359)])
#@106 Preconfigured `helm' to show world time.
Default action change TZ environment variable locally to emacs.
(defalias 'helm-world-time #[0 "\300\301\302\"\207" [helm-other-buffer helm-source-time-world "*helm world time*"] 3 (#$ . 6505) nil])
#@55 Preconfigured helm for latex math symbols completion.
(defalias 'helm-insert-latex-math #[0 "\300\301\302\"\207" [helm-other-buffer helm-source-latex-math "*helm latex*"] 3 (#$ . 6751) nil])
#@53 Preconfigured `helm' to execute ratpoison commands.
(defalias 'helm-ratpoison-commands #[0 "\300\301\302\"\207" [helm-other-buffer helm-source-ratpoison-commands "*helm ratpoison commands*"] 3 (#$ . 6948) nil])
#@42 Preconfigured helm for stumpwm commands.
(defalias 'helm-stumpwm-commands #[0 "\300\301\302\"\207" [helm-other-buffer helm-source-stumpwm-commands "*helm stumpwm commands*"] 3 (#$ . 7165) nil])
#@48 Preconfigured `helm' for `minibuffer-history'.
(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\232\2044 \211C\244\262A\262\202 \211@:\203J \322\323\"\266\203\202M \211\266\203\324\325\326\327\330\331\314\332\f\333\314&\334\305!\203z \203z \335\336\"\211\203y \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 "Next element matching (regexp): " "" 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 (#$ . 7365) nil])
(provide 'helm-misc)