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

Chizi123
2018-11-17 c4001ccd1864293b64aa37d83a9d9457eb875e70
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!\207" [require cl-lib helm helm-help helm-elisp] 2)
16 #@53 Initialize buffer for `helm-source-customize-face'.
17 (defalias 'helm-custom-faces-init #[0 "\300 ?\2052\301 r\302\303\304\305\306!\307\"\310$\216\311 \210\312\313!\210*\210\314\315r\316\317!q\210\320e\321\"d{)\"\210\322\317!\207" [helm-candidate-buffer internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 list-faces-display message nil helm-init-candidates-in-buffer global get-buffer "*Faces*" next-single-char-property-change face kill-buffer] 7 (#$ . 520)])
18 #@27 See (info "(emacs)Faces")
19 (defvar helm-source-customize-face (helm-make-source "Customize Face" 'helm-source-in-buffer :init 'helm-custom-faces-init :get-line 'buffer-substring :persistent-action #[257 "\300\301\302!@!\303\"\207" [helm-elisp--persistent-help intern split-string helm-describe-face] 5 "\n\n(fn CANDIDATE)"] :persistent-help "Describe face" :action '(("Customize" lambda (line) (customize-face (intern (car (split-string line))))) ("Copy name" lambda (line) (kill-new (car (split-string line " " t)))))) (#$ . 1063))
20 (defalias 'helm-colors-init #[0 "\300 ?\205.\301 r\302\303\304\305\306!\307\"\310$\216\311 \210\312\313!\210*\210\314\315r\316\317!q\210\320 )\"\210\321\317!\207" [helm-candidate-buffer internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 list-colors-display message nil helm-init-candidates-in-buffer global get-buffer "*Colors*" buffer-string kill-buffer] 7])
21 #@18 
22
23 (fn CANDIDATE)
24 (defalias 'helm-color-insert-name #[257 "r\301!\203 \206p\211q\210\302!c)\207" [helm-current-buffer buffer-live-p helm-colors-get-name] 3 (#$ . 2040)])
25 #@18 
26
27 (fn CANDIDATE)
28 (defalias 'helm-color-kill-name #[257 "\300\301!!\207" [kill-new helm-colors-get-name] 4 (#$ . 2222)])
29 #@18 
30
31 (fn CANDIDATE)
32 (defalias 'helm-color-insert-rgb #[257 "r\301!\203 \206p\211q\210\302!c)\207" [helm-current-buffer buffer-live-p helm-colors-get-rgb] 3 (#$ . 2349)])
33 #@18 
34
35 (fn CANDIDATE)
36 (defalias 'helm-color-kill-rgb #[257 "\300\301!!\207" [kill-new helm-colors-get-rgb] 4 (#$ . 2529)])
37 #@48 Insert name of color from `helm-source-colors'
38 (defalias 'helm-color-run-insert-name #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-color-insert-name error "Running helm command outside of context"] 2 (#$ . 2654) nil])
39 (put 'helm-color-run-insert-name 'helm-only t)
40 #@46 Kill name of color from `helm-source-colors'
41 (defalias 'helm-color-run-kill-name #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-color-kill-name error "Running helm command outside of context"] 2 (#$ . 2967) nil])
42 (put 'helm-color-run-kill-name 'helm-only t)
43 #@47 Insert RGB of color from `helm-source-colors'
44 (defalias 'helm-color-run-insert-rgb #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-color-insert-rgb error "Running helm command outside of context"] 2 (#$ . 3272) nil])
45 (put 'helm-color-run-insert-rgb 'helm-only t)
46 #@45 Kill RGB of color from `helm-source-colors'
47 (defalias 'helm-color-run-kill-rgb #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-color-kill-rgb error "Running helm command outside of context"] 2 (#$ . 3581) nil])
48 (put 'helm-color-run-kill-rgb 'helm-only t)
49 (defvar helm-color-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key "n" helm-color-run-insert-name "N" helm-color-run-kill-name "r" helm-color-run-insert-rgb "R" helm-color-run-kill-rgb] 5))
50 (defvar helm-source-colors (helm-make-source "Colors" 'helm-source-in-buffer :init 'helm-colors-init :get-line 'buffer-substring :keymap helm-color-map :persistent-help "Kill entry in RGB format." :persistent-action 'helm-color-kill-rgb :help-message 'helm-colors-help-message :action '(("Copy Name (C-c N)" . helm-color-kill-name) ("Copy RGB (C-c R)" . helm-color-kill-rgb) ("Insert Name (C-c n)" . helm-color-insert-name) ("Insert RGB (C-c r)" . helm-color-insert-rgb))))
51 #@33 Get color name.
52
53 (fn CANDIDATE)
54 (defalias 'helm-colors-get-name #[257 "\300\301\302\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314!c\210eb\210\315\316!\210`d|\210\317 *\262#\207" [replace-regexp-in-string " " "" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 capitalize search-forward-regexp "\\s-\\{2,\\}" buffer-string] 11 (#$ . 4675)])
55 #@32 Get color RGB.
56
57 (fn CANDIDATE)
58 (defalias 'helm-colors-get-rgb #[257 "\300\301\302\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314!c\210db\210\315\316!\210`e|\210\317 *\262#\207" [replace-regexp-in-string " " "" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 capitalize search-backward-regexp "\\s-\\{2,\\}" buffer-string] 11 (#$ . 5109)])
59 #@33 Preconfigured `helm' for color.
60 (defalias 'helm-colors #[0 "\300\301\302\303\304$\207" [helm :sources (helm-source-colors helm-source-customize-face) :buffer "*helm colors*"] 5 (#$ . 5542) nil])
61 (provide 'helm-color)