;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!\207" [require cl-lib helm helm-help helm-elisp] 2)
|
#@53 Initialize buffer for `helm-source-customize-face'.
|
(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)])
|
#@27 See (info "(emacs)Faces")
|
(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))
|
(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])
|
#@18
|
|
(fn CANDIDATE)
|
(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)])
|
#@18
|
|
(fn CANDIDATE)
|
(defalias 'helm-color-kill-name #[257 "\300\301!!\207" [kill-new helm-colors-get-name] 4 (#$ . 2222)])
|
#@18
|
|
(fn CANDIDATE)
|
(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)])
|
#@18
|
|
(fn CANDIDATE)
|
(defalias 'helm-color-kill-rgb #[257 "\300\301!!\207" [kill-new helm-colors-get-rgb] 4 (#$ . 2529)])
|
#@48 Insert name of color from `helm-source-colors'
|
(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])
|
(put 'helm-color-run-insert-name 'helm-only t)
|
#@46 Kill name of color from `helm-source-colors'
|
(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])
|
(put 'helm-color-run-kill-name 'helm-only t)
|
#@47 Insert RGB of color from `helm-source-colors'
|
(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])
|
(put 'helm-color-run-insert-rgb 'helm-only t)
|
#@45 Kill RGB of color from `helm-source-colors'
|
(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])
|
(put 'helm-color-run-kill-rgb 'helm-only t)
|
(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))
|
(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))))
|
#@33 Get color name.
|
|
(fn CANDIDATE)
|
(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)])
|
#@32 Get color RGB.
|
|
(fn CANDIDATE)
|
(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)])
|
#@33 Preconfigured `helm' for color.
|
(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])
|
(provide 'helm-color)
|
