| 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\2042 C\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\217 A\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) | |
