| 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 \206 p\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 \206 p\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) | |
