mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 8f6f2705a38e2515b6c57fda12c5be29fb9a798f
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
;ELC
;;; Compiled
;;; in Emacs version 26.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\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)
(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])
(defvar helm-source-latex-math (helm-make-source "Latex Math Menu" 'helm-source-sync :init #[0 "r\301!\203 \206p\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)"]))
#@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 (#$ . 2040)])
(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#\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 (#$ . 2669)])
(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))
#@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 (#$ . 3864)])
(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))
(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)
#@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 (#$ . 4874)])
#@66 Source that provide helm completion against `comint-input-ring'.
(defvar helm-source-comint-input-ring (helm-make-source "Comint history" 'helm-source-sync :candidates #[0 "r\302!\203 \206p\211q\210\303    !)\207" [helm-current-buffer comint-input-ring buffer-live-p ring-elements] 2] :action 'helm-comint-input-ring-action) (#$ . 5116))
(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 ?\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 "<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 (#$ . 6268)])
#@18 
 
(fn CANDIDATE)
(defalias 'helm-ratpoison-commands-execute #[257 "\300\301\302\211\211\303&\207" [call-process "ratpoison" nil "-ic"] 8 (#$ . 6430)])
(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 (#$ . 7236)])
#@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 (#$ . 7382) 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 (#$ . 7628) 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 (#$ . 7825) 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 (#$ . 8042) 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\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 Preconfigured `helm' that provide completion of `comint' history.
(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])
(provide 'helm-misc)