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

Chizi123
2018-11-18 434b46beff1c5ec01cbefd5273d89971a82d6bab
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
;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\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)
#@24 Keymap for `helm-ucs'.
(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))
(custom-declare-face 'helm-ucs-char '((((class color) (background dark)) (:foreground "Gold"))) "Face used to display ucs characters." :group 'helm-font)
(defvar helm-xfonts-cache nil)
(defvar helm-previous-font nil)
(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"))
(defvar helm-ucs--max-len nil)
(defvar helm-ucs--names nil)
(defvar helm-ucs-history nil)
#@39 Ring of recent `helm-ucs' selections.
(defvar helm-ucs-recent nil (#$ . 2590))
#@71 Calculate the length of the longest NAMES list candidate.
 
(fn NAMES)
(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)])
#@77 Calculate the length of the longest NAMES hash table candidate.
 
(fn NAMES)
(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)])
#@56 Calculate the length of longest `ucs-names' candidate.
(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)])
#@54 Collect ucs symbols from the NAMES list.
 
(fn NAMES)
(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)])
#@60 Collect ucs symbols from the NAMES hash-table.
 
(fn NAMES)
(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)])
#@153 Collect ucs symbols from UCS-STRUCT.
 
Depending on the Emacs version, the variable `ucs-names' can
either be an alist or a hash-table.
 
(fn UCS-STRUCT)
(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)])
#@79 Initialize an helm buffer with ucs symbols.
Only math* symbols are collected.
(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)])
#@124 Return the N part of an ucs CANDIDATE.
Where N=1 is the ucs code, N=2 the ucs char and N=3 the ucs name.
 
(fn CANDIDATE N)
(defalias 'helm-ucs-match #[514 "\300\301\"\205 \302\"\207" [string-match "^(\\(#x[a-f0-9]+\\)): *\\(.\\) *\\([^:]+\\)+" match-string] 5 (#$ . 5900)])
#@18 
 
(fn CANDIDATE)
(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)])
#@51 Insert the N part of CANDIDATE.
 
(fn CANDIDATE N)
(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)])
#@61 Insert ucs char part of CANDIDATE at point.
 
(fn CANDIDATE)
(defalias 'helm-ucs-insert-char #[257 "\300\301\"\207" [helm-ucs-insert 2] 4 (#$ . 6618)])
#@61 Insert ucs code part of CANDIDATE at point.
 
(fn CANDIDATE)
(defalias 'helm-ucs-insert-code #[257 "\300\301\"\207" [helm-ucs-insert 1] 4 (#$ . 6776)])
#@61 Insert ucs name part of CANDIDATE at point.
 
(fn CANDIDATE)
(defalias 'helm-ucs-insert-name #[257 "\300\301\"\207" [helm-ucs-insert 3] 4 (#$ . 6934)])
#@59 Action that concatenate ucs marked chars.
 
(fn CANDIDATE)
(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)])
#@18 
 
(fn CANDIDATE)
(defalias 'helm-ucs-kill-code #[257 "\300!\210\301\302\303\"!\207" [helm-ucs-save-recentest kill-new helm-ucs-match 1] 5 (#$ . 7424)])
#@18 
 
(fn CANDIDATE)
(defalias 'helm-ucs-kill-name #[257 "\300!\210\301\302\303\"!\207" [helm-ucs-save-recentest kill-new helm-ucs-match 3] 5 (#$ . 7584)])
#@18 
 
(fn CANDIDATE)
(defalias 'helm-ucs-forward-char #[257 "r\301!\203 \206p\211q\210\302u)\207" [helm-current-buffer buffer-live-p 1] 3 (#$ . 7744)])
#@18 
 
(fn CANDIDATE)
(defalias 'helm-ucs-backward-char #[257 "r\301!\203 \206p\211q\210\302u)\207" [helm-current-buffer buffer-live-p -1] 3 (#$ . 7904)])
#@18 
 
(fn CANDIDATE)
(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)])
#@18 
 
(fn CANDIDATE)
(defalias 'helm-ucs-insert-space #[257 "r\301!\203 \206p\211q\210\302c)\207" [helm-current-buffer buffer-live-p " "] 3 (#$ . 8246)])
(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])
(put 'helm-ucs-persistent-forward 'helm-only t)
(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])
(put 'helm-ucs-persistent-backward 'helm-only t)
(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])
(put 'helm-ucs-persistent-delete 'helm-only t)
(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])
(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))
#@49 Source for collecting `ucs-names' math symbols.
(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))
#@39 Preconfigured `helm' to select Xfont.
(defalias 'helm-select-xfont #[0 "\300\301\302\303\304$\207" [helm :sources helm-source-xfonts :buffer "*helm select xfont*"] 5 (#$ . 10300) nil])
#@96 Preconfigured helm for `ucs-names'.
 
Called with a prefix arg force reloading cache.
 
(fn ARG)
(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"])
(provide 'helm-font)