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

Chizi123
2018-11-18 21067e7cbe6d7a0f65ff5c317a96b5c337b0b3d8
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\303\304\305\306\307\302%\210\310\311\312\313\314DD\315\316\317\307\304&\210\310\320\312\313\321DD\322\316\323\307\304&\210\310\324\312\313\325DD\326\307\304\316\327&\207" [require cl-lib helm custom-declare-group helm-adapt nil "Adaptative sorting of candidates for Helm." :group custom-declare-variable helm-adaptive-history-file funcall function #[0 "\300\207" [#1="~/.emacs.d/helm-adaptive-history"] 1 #1#] "Path of file where history information is stored.\nWhen nil history is not saved nor restored after emacs restart unless\nyou save/restore `helm-adaptive-history' with something else like\npsession or desktop." :type string helm-adaptive-history-length #[0 "\300\207" [50] 1] "Maximum number of candidates stored for a source." number helm-adaptive-sort-by-frequent-recent-usage #[0 "\300\207" [t] 1] "Try to sort on an average of frequent and recent usage when non-nil.\n\nWhen nil sort on frequency usage only.\n\nOnly frequency:\nWhen candidate have low frequency, you have to hit on it many times to\nmake it going up on top.\n\nFrequency+recent:\nEven with a low frequency, candidate go up on top. If a candidate\nhave a high frequency but it is not used since some time, it goes\ndown slowly, but as soon you reuse it it go up on top quickly." boolean] 8)
16 #@73 nil if history information is not yet stored for the current
17 selection.
18 (defvar helm-adaptive-done nil (#$ . 1723))
19 #@125 Contains the stored history information.
20 Format: ((SOURCE-NAME (SELECTED-CANDIDATE (PATTERN . NUMBER-OF-USE) ...) ...) ...)
21 (defvar helm-adaptive-history nil (#$ . 1846))
22 (defconst helm-adaptive-freq-coefficient 5)
23 (defconst helm-adaptive-recent-coefficient 2)
24 (defalias 'helm-adaptive-done-reset #[0 "\301\211\207" [helm-adaptive-done nil] 2])
25 (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317& \207" [custom-declare-variable helm-adaptive-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Helm-Adaptive mode is enabled.\nSee the `helm-adaptive-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `helm-adaptive-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group helm-adapt :type boolean :require helm-adaptive] 14)
26 #@61 Toggle adaptive sorting in all sources.
27
28 (fn &optional ARG)
29 (defalias 'helm-adaptive-mode #[256 "\302 \303\300\304=\203\305\300!?\202\306!\307V\"\210\203:    \204#\310 \210\311\312\313\"\210\311\314\315\"\210\311\316\317\"\210\311\320\317\"\210\202S\313 \210\321\322\312\313\"\210\322\314\315\"\210\322\316\317\"\210\322\320\317\"\210\323\324\305\300!\203_\325\202`\326\"\210\327\330!\203\212\331\300!\210\302 \203x\211\302 \232\203\212\332\333\334\305\300!\203\205\335\202\206\336#\266\210\337 \210\305\300!\207" [helm-adaptive-mode helm-adaptive-history current-message set-default toggle default-value prefix-numeric-value 0 helm-adaptive-maybe-load-history add-hook kill-emacs-hook helm-adaptive-save-history helm-before-initialize-hook helm-adaptive-done-reset helm-before-action-hook helm-adaptive-store-selection helm-select-action-hook nil remove-hook run-hooks helm-adaptive-mode-hook helm-adaptive-mode-on-hook helm-adaptive-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Helm-Adaptive mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 2775) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
30 (defvar helm-adaptive-mode-hook nil)
31 (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [helm-adaptive-mode-map helm-adaptive-mode-hook variable-documentation put "Hook run after entering or leaving `helm-adaptive-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode helm-adaptive-mode nil boundp] 6)
32 #@99 Return current source only if it use adaptive history, nil otherwise.
33
34 (fn &optional SOURCE-NAME)
35 (defalias 'helm-adapt-use-adaptive-p #[256 "\205-\211\206\n\301 \302\303\"\206\302\304\"\211<\203$\305>\205+\202+\211\305=\205+\266\202\207" [helm-adaptive-mode helm-get-current-source assoc-default filtered-candidate-transformer candidate-transformer helm-adaptive-sort] 5 (#$ . 4389)])
36 #@55 Store history information for the selected candidate.
37 (defalias 'helm-adaptive-store-selection #[0 "?\205\242\304\305 \211\205\240\306\307\"\310    \"\206\211C    B\211@\311\312\304\"\310A\"\211\2042C\202<\313A\"\241\210\211\262AB\241\210A@\211\310\nA\"\211\204V\n\314B\202_\313A\"\241\210\211\262AB\241\210\211A@\315A\236\211\203u\211\202\201\315\314BAB\241\210A@\262\211AT\241\210\211\316 \241\210AG V\205\236\317A\314 #\241\266\206\262\207" [helm-adaptive-done helm-adaptive-history helm-pattern helm-adaptive-history-length t helm-adapt-use-adaptive-p assoc-default name assoc helm-get-selection nil delete 0 timestamp float-time cl-subseq] 13 (#$ . 4795)])
38 #@133 Load `helm-adaptive-history-file' which contain `helm-adaptive-history'.
39 Returns nil if `helm-adaptive-history-file' doesn't exist.
40 (defalias 'helm-adaptive-maybe-load-history #[0 "\205 \301!\205 \302!\207" [helm-adaptive-history-file file-readable-p load-file] 2 (#$ . 5501)])
41 #@93 Save history information to file given by `helm-adaptive-history-file'.
42
43 (fn &optional ARG)
44 (defalias 'helm-adaptive-save-history #[256 "\205>\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315\316\261\210\317\211\320\321\303\322 DEp\"\210*\323c\210\324ed\317?\205:\325%*\262\207" [helm-adaptive-history-file print-level print-length helm-adaptive-history generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 ";; -*- mode: emacs-lisp -*-\n" ";; History entries used for helm adaptive display.\n" nil prin1 setq quote 10 write-region quiet] 8 (#$ . 5790) "p"])
45 #@182 Sort the CANDIDATES for SOURCE by usage frequency.
46 This is a filtered candidate transformer you can use with the
47 `filtered-candidate-transformer' attribute.
48
49 (fn CANDIDATES SOURCE)
50 (defalias 'helm-adaptive-sort #[514 "\306\307\"\310\"\211\203    \203\n\202\311 A\312\211\211\211\211:\203\245@\262\211A\262\242\262\313\262    \2058\314\236\211\203G\315 A\\_\202H\313\262\262\316\314\236\"\312\211\317\312:\203\217@\262\211A\262\242\262\f\232\203~\320\\\211\262    \262\312\211\262\202\205\\\262\317\203\217A\262\202X\266\211\n_\\BC\244\262A\262\202\321\322\"\266\210\211:\203\211\312\211\211\211:\203\374@\262\211A\262\242\262\323    \236\203\326\324\325\326#\206\327\262\327 \330\331$\211\203\364@C\244\262\332\f\330\331$\262 \210A\262\202\265\333 \"\266\205\202\334\335 \"\210\336\311!\210\262\202\207" [helm-adaptive-history helm-adaptive-sort-by-frequent-recent-usage helm-adaptive-freq-coefficient helm-adaptive-recent-coefficient helm-pattern helm-adaptive-history-file assoc-default name assoc 1 nil 0 timestamp float-time remove t 10000 sort #[514 "AAV\207" [] 4 "\n\n(fn FIRST SECOND)"] multiline replace-regexp-in-string "\n\\'" "" cl-member :test helm-adaptive-compare cl-remove append message "Your `%s' is maybe corrupted or too old, you should reinitialize it with `helm-reset-adaptive-history'" sit-for] 19 (#$ . 6444)])
51 #@120 Delete all `helm-adaptive-history' and his file.
52 Useful when you have a old or corrupted `helm-adaptive-history-file'.
53 (defalias 'helm-reset-adaptive-history #[0 "\302\303!\205 \304\305    !\207" [helm-adaptive-history helm-adaptive-history-file y-or-n-p "Really delete all your `helm-adaptive-history'? " nil delete-file] 2 (#$ . 7875) nil])
54 #@134 Compare display parts if some of candidates X and Y.
55
56 Arguments X and Y are cons cell in (DISPLAY . REAL) format or atoms.
57
58 (fn X Y)
59 (defalias 'helm-adaptive-compare #[514 "<\203\n@\202 <\203@\202\232\207" [] 4 (#$ . 8224)])
60 (provide 'helm-adaptive)