mirror of https://github.com/Chizi123/.emacs.d.git
view | history | commit | commitdiff
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\304\305\306\307\310\302%\210\311\312\313\314\315DD\316\317\320\310\305&\210\311\321\313\314\322DD\323\310\305\317\324&\207" [require cl-lib helm helm-help custom-declare-group helm-font nil "Related applications to display fonts in helm." :group custom-declare-variable helm-ucs-recent-size funcall function #[0 "\300\207" [10] 1] "Number of recent chars to keep." :type integer helm-ucs-actions #[0 "\300\207" [(("Insert character" . helm-ucs-insert-char) ("Insert character name" . helm-ucs-insert-name) ("Insert character code in hex" . helm-ucs-insert-code) ("Kill marked characters" . helm-ucs-kill-char) ("Kill name" . helm-ucs-kill-name) ("Kill code" . helm-ucs-kill-code))] 1] "Actions for `helm-source-ucs'." (alist :key-type string :value-type function)] 8)
16 #@24 Keymap for `helm-ucs'.
17 (defvar helm-ucs-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 [C-backspace] helm-ucs-persistent-delete [C-left] helm-ucs-persistent-backward [C-right] helm-ucs-persistent-forward " " helm-ucs-persistent-insert-space] 5) (#$ . 1230))
18 (custom-declare-face 'helm-ucs-char '((((class color) (background dark)) (:foreground "Gold"))) "Face used to display ucs characters." :group 'helm-font)
19 (defvar helm-xfonts-cache nil)
20 (defvar helm-previous-font nil)
21 (defvar helm-source-xfonts (helm-make-source "X Fonts" 'helm-source-sync :init #[0 "\204\302\303!\304\305 \236A\211\207" [helm-xfonts-cache helm-previous-font x-list-fonts "*" font frame-parameters] 2] :candidates 'helm-xfonts-cache :action '(("Copy font to kill ring" lambda (elm) (kill-new elm)) ("Set font" lambda (elm) (kill-new elm) (set-frame-font elm 'keep-size) (message "Font copied to kill ring"))) :cleanup #[0 "\301\302\"\207" [helm-previous-font set-frame-font keep-size] 3] :persistent-action #[257 "\300\301\"\210\302!\207" [set-frame-font keep-size kill-new] 4 "\n\n(fn NEW-FONT)"] :persistent-help "Preview font and copy to kill-ring"))
22 (defvar helm-ucs--max-len nil)
23 (defvar helm-ucs--names nil)
24 (defvar helm-ucs-history nil)
25 #@39 Ring of recent `helm-ucs' selections.
26 (defvar helm-ucs-recent nil (#$ . 2590))
27 #@71 Calculate the length of the longest NAMES list candidate.
28
29 (fn NAMES)
30 (defalias 'helm-calculate-ucs-alist-max-len #[257 "\211\300\211\211\211:\203F@\262\211A\262\242\262\301\302\"G\203%]\202&\211\262\210\303\304\301\305\"!]\203<]\202=\211\266\202A\262\202B\207" [nil format "#x%x:" 1 string-width "%c"] 11 (#$ . 2675)])
31 #@77 Calculate the length of the longest NAMES hash table candidate.
32
33 (fn NAMES)
34 (defalias 'helm-calculate-ucs-hash-table-max-len #[257 "\300C\300C\301\302\303\304\305\306\"\307\"\310\311%\"\210\242\242B\207" [nil maphash make-byte-code 514 "\302\303\"G\300\211\242\203\300\242]\202\240\266\304\305\302\306\"!]\301\211\242\203+\301\242]\202,\240\207" vconcat vector [format "#x%x:" 1 string-width "%c"] 7 "\n\n(fn N V)"] 11 (#$ . 3028)])
35 #@56 Calculate the length of longest `ucs-names' candidate.
36 (defalias 'helm-calculate-ucs-max-len #[0 "\300 \301!\203\302!\202\303!\207" [ucs-names hash-table-p helm-calculate-ucs-hash-table-max-len helm-calculate-ucs-alist-max-len] 3 (#$ . 3487)])
37 #@54 Collect ucs symbols from the NAMES list.
38
39 (fn NAMES)
40 (defalias 'helm-ucs-collect-symbols-alist #[257 "\301\302\303G#\304\211\305\304\211\211\211\211\211    :\203\213    @\262    \211A\262\n\242\262\306\307\n\"\262G\262@Z\262\306\310\n\"\262\311\306\312 \"\313\314#\262\315\230\204~\316\317\320!!!\203~\321\322\"\323 \260B\262\n\211\247\203x\211@Y\205|\324\"\266    A\262\nT\262\202\211\237\207" [helm-ucs--max-len make-progress-reporter "collecting ucs names" 0 nil 1 format "#x%x:" "(#x%x): " propertize "%c" face helm-ucs-char "" fontp char-displayable-p read make-string 32 "  " progress-reporter-do-update] 17 (#$ . 3744)])
41 #@60 Collect ucs symbols from the NAMES hash-table.
42
43 (fn NAMES)
44 (defalias 'helm-ucs-collect-symbols-hash-table #[257 "\300\301\302\303!#\304C\305C\305C\305C\305C\305C\305C\306\307\310\311\312\313        &\314\"\315\316%\n\"\210\211\242\237\207" [make-progress-reporter "collecting ucs names" 0 hash-table-count 1 nil maphash make-byte-code 514 "\302\310\311\"\240\210\303\302\242G\240\210\304@\303\242Z\240\210\305\310\312\"\240\210\306\313\310\314\"\315\316#\240\210\317\230\204b\320\321\322\302\242!!!\203b\307\305\242\323\304\242\324\"\306\242\325\260\307\242B\240\210\300\301\242\211\247\203\\\211@Y\205`\326\"\266\301\211\242T\240\207" vconcat vector [format "#x%x:" "(#x%x): " propertize "%c" face helm-ucs-char "" fontp char-displayable-p read make-string 32 "  " progress-reporter-do-update helm-ucs--max-len] 8 "\n\n(fn N V)"] 23 (#$ . 4413)])
45 #@153 Collect ucs symbols from UCS-STRUCT.
46
47 Depending on the Emacs version, the variable `ucs-names' can
48 either be an alist or a hash-table.
49
50 (fn UCS-STRUCT)
51 (defalias 'helm-ucs-collect-symbols #[257 "\300!\203\n\301!\207\302!\207" [hash-table-p helm-ucs-collect-symbols-hash-table helm-ucs-collect-symbols-alist] 3 (#$ . 5296)])
52 #@79 Initialize an helm buffer with ucs symbols.
53 Only math* symbols are collected.
54 (defalias 'helm-ucs-init #[0 "\204\302     \206\303\304 !\211\207" [helm-ucs--max-len helm-ucs--names helm-calculate-ucs-max-len helm-ucs-collect-symbols ucs-names] 2 (#$ . 5630)])
55 #@124 Return the N part of an ucs CANDIDATE.
56 Where N=1 is the ucs code, N=2 the ucs char and N=3 the ucs name.
57
58 (fn CANDIDATE N)
59 (defalias 'helm-ucs-match #[514 "\300\301\"\205 \302\"\207" [string-match "^(\\(#x[a-f0-9]+\\)): *\\(.\\) *\\([^:]+\\)+" match-string] 5 (#$ . 5900)])
60 #@18 
61
62 (fn CANDIDATE)
63 (defalias 'helm-ucs-save-recentest #[257 "\211\302\"B\211G    V\203\303\304\"\202\211\211\207" [helm-ucs-recent helm-ucs-recent-size delete nbutlast 1] 5 (#$ . 6184)])
64 #@51 Insert the N part of CANDIDATE.
65
66 (fn CANDIDATE N)
67 (defalias 'helm-ucs-insert #[514 "r\301!\203 \206p\211q\210\302!\210\303\"c)\207" [helm-current-buffer buffer-live-p helm-ucs-save-recentest helm-ucs-match] 5 (#$ . 6380)])
68 #@61 Insert ucs char part of CANDIDATE at point.
69
70 (fn CANDIDATE)
71 (defalias 'helm-ucs-insert-char #[257 "\300\301\"\207" [helm-ucs-insert 2] 4 (#$ . 6618)])
72 #@61 Insert ucs code part of CANDIDATE at point.
73
74 (fn CANDIDATE)
75 (defalias 'helm-ucs-insert-code #[257 "\300\301\"\207" [helm-ucs-insert 1] 4 (#$ . 6776)])
76 #@61 Insert ucs name part of CANDIDATE at point.
77
78 (fn CANDIDATE)
79 (defalias 'helm-ucs-insert-name #[257 "\300\301\"\207" [helm-ucs-insert 3] 4 (#$ . 6934)])
80 #@59 Action that concatenate ucs marked chars.
81
82 (fn CANDIDATE)
83 (defalias 'helm-ucs-kill-char #[257 "\300 \211\301:\203@\262\302!\210A\262\202\266\303\304\305\306#!\207" [helm-marked-candidates nil helm-ucs-save-recentest kill-new mapconcat #[257 "\300\301\"\207" [helm-ucs-match 2] 4 "\n\n(fn X)"] ""] 7 (#$ . 7092)])
84 #@18 
85
86 (fn CANDIDATE)
87 (defalias 'helm-ucs-kill-code #[257 "\300!\210\301\302\303\"!\207" [helm-ucs-save-recentest kill-new helm-ucs-match 1] 5 (#$ . 7424)])
88 #@18 
89
90 (fn CANDIDATE)
91 (defalias 'helm-ucs-kill-name #[257 "\300!\210\301\302\303\"!\207" [helm-ucs-save-recentest kill-new helm-ucs-match 3] 5 (#$ . 7584)])
92 #@18 
93
94 (fn CANDIDATE)
95 (defalias 'helm-ucs-forward-char #[257 "r\301!\203 \206p\211q\210\302u)\207" [helm-current-buffer buffer-live-p 1] 3 (#$ . 7744)])
96 #@18 
97
98 (fn CANDIDATE)
99 (defalias 'helm-ucs-backward-char #[257 "r\301!\203 \206p\211q\210\302u)\207" [helm-current-buffer buffer-live-p -1] 3 (#$ . 7904)])
100 #@18 
101
102 (fn CANDIDATE)
103 (defalias 'helm-ucs-delete-backward #[257 "r\301!\203 \206p\211q\210\302\303!)\207" [helm-current-buffer buffer-live-p delete-char -1] 3 (#$ . 8066)])
104 #@18 
105
106 (fn CANDIDATE)
107 (defalias 'helm-ucs-insert-space #[257 "r\301!\203 \206p\211q\210\302c)\207" [helm-current-buffer buffer-live-p " "] 3 (#$ . 8246)])
108 (defalias 'helm-ucs-persistent-forward #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset action-forward helm-ucs-forward-char helm-execute-persistent-action error "Running helm command outside of context"] 3 nil nil])
109 (put 'helm-ucs-persistent-forward 'helm-only t)
110 (defalias 'helm-ucs-persistent-backward #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset action-back helm-ucs-backward-char helm-execute-persistent-action error "Running helm command outside of context"] 3 nil nil])
111 (put 'helm-ucs-persistent-backward 'helm-only t)
112 (defalias 'helm-ucs-persistent-delete #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset action-delete helm-ucs-delete-backward helm-execute-persistent-action error "Running helm command outside of context"] 3 nil nil])
113 (put 'helm-ucs-persistent-delete 'helm-only t)
114 (defalias 'helm-ucs-persistent-insert-space #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset action-insert-space helm-ucs-insert-space helm-execute-persistent-action error "Running helm command outside of context"] 3 nil nil])
115 (defvar helm-source-ucs-recent (helm-make-source "Recent UCS" 'helm-source-sync :action helm-ucs-actions :candidates #[0 "\207" [helm-ucs-recent] 1] :help-message helm-ucs-help-message :keymap helm-ucs-map :volatile t))
116 #@49 Source for collecting `ucs-names' math symbols.
117 (defvar helm-source-ucs (helm-make-source "UCS names" 'helm-source-in-buffer :data 'helm-ucs-init :get-line 'buffer-substring :help-message 'helm-ucs-help-message :filtered-candidate-transformer #[514 "\300\301\"\207" [sort helm-generic-sort-fn] 5 "\n\n(fn CANDIDATES SOURCE)"] :action helm-ucs-actions :persistent-action #[257 "\300!\210\301 \207" [helm-ucs-insert-char helm-force-update] 3 "\n\n(fn CANDIDATE)"] :keymap helm-ucs-map) (#$ . 9795))
118 #@39 Preconfigured `helm' to select Xfont.
119 (defalias 'helm-select-xfont #[0 "\300\301\302\303\304$\207" [helm :sources helm-source-xfonts :buffer "*helm select xfont*"] 5 (#$ . 10300) nil])
120 #@96 Preconfigured helm for `ucs-names'.
121
122 Called with a prefix arg force reloading cache.
123
124 (fn ARG)
125 (defalias 'helm-ucs #[257 "\211\203\n\305\211\305\305f\211\205\306!\262\307\310 \fD\311\312\313\205+\314!\205+\315\316&\207" [helm-ucs--names helm-ucs--max-len ucs-names helm-source-ucs-recent helm-source-ucs nil string helm :sources :history helm-ucs-history :input multibyte-string-p :buffer "*helm ucs*"] 12 (#$ . 10491) "P"])
126 (provide 'helm-font)