;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (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\301!\207" [locate-user-emacs-file "helm-adaptive-history"] 2] "Path of file where history information is stored.\nWhen nil history is not saved nor restored after Emacs restart\nunless you save/restore `helm-adaptive-history' with something\nelse like psession 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\ntimes to make 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) #@73 nil if history information is not yet stored for the current selection. (defvar helm-adaptive-done nil (#$ . 1412)) #@125 Contains the stored history information. Format: ((SOURCE-NAME (SELECTED-CANDIDATE (PATTERN . NUMBER-OF-USE) ...) ...) ...) (defvar helm-adaptive-history nil (#$ . 1535)) (defconst helm-adaptive-freq-coefficient 5) (defconst helm-adaptive-recent-coefficient 2) (defalias 'helm-adaptive-done-reset #[0 "\301\211\207" [helm-adaptive-done nil] 2]) (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 :type boolean :group helm-adapt :require helm-adaptive] 14) #@618 Toggle adaptive sorting in all sources. This is a minor mode. If called interactively, toggle the `Helm-Adaptive mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'helm-adaptive-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'helm-adaptive-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B \203Z\n\204C\314 \210\315\316\317\"\210\315\320\321\"\210\315\322\323\"\210\315\324\323\"\210\202s\317 \210\310\325\316\317\"\210\325\320\321\"\210\325\322\323\"\210\325\324\323\"\210\326\327\306\301!\203\330\202\200\331\"\210\332\333!\203\250\334\301!\210\303 \203\230\211\303 \232\203\250\335\336\306\301!\203\244\337\202\245\340\341#\210\210\342 \210\306\301!\207" [global-minor-modes helm-adaptive-mode helm-adaptive-history current-message set-default toggle default-value 1 nil t boundp delq 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 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] 6 (#$ . 2465) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar helm-adaptive-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\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.)" custom-type hook standard-value nil add-minor-mode helm-adaptive-mode boundp] 6) #@99 Return current source only if it use adaptive history, nil otherwise. (fn &optional SOURCE-NAME) (defalias 'helm-adapt-use-adaptive-p #[256 "\205+\211\206\n\301 \302\303\"\206\302\304\"\211<\203\"\305>\205)\207\211\305=\205)\266\202\207" [helm-adaptive-mode helm-get-current-source assoc-default filtered-candidate-transformer candidate-transformer helm-adaptive-sort] 5 (#$ . 4837)]) #@55 Store history information for the selected candidate. (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 (#$ . 5242)]) #@133 Load `helm-adaptive-history-file' which contain `helm-adaptive-history'. Returns nil if `helm-adaptive-history-file' doesn't exist. (defalias 'helm-adaptive-maybe-load-history #[0 "\205 \301!\205 \302!\207" [helm-adaptive-history-file file-readable-p load-file] 2 (#$ . 5948)]) #@97 Save history information to the file given by `helm-adaptive-history-file'. (fn &optional ARG) (defalias 'helm-adaptive-save-history #[256 "\2058\304\305\306\"r\211q\210\307\310\"\216\311\312\261\210\313\211\314\315\303\316 DEp\"\210*\317c\210\320ed\313?\2054\321%*\262\207" [helm-adaptive-history-file print-level print-length helm-adaptive-history generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 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 (#$ . 6237) "p"]) #@182 Sort the CANDIDATES for SOURCE by usage frequency. This is a filtered candidate transformer you can use with the `filtered-candidate-transformer' attribute. (fn CANDIDATES SOURCE) (defalias 'helm-adaptive-sort #[514 "\306\307\"\310\"\211\203 \203\n\202\311 A\312\211\211\211\211\211:\203\255@\262\211A\262\242\262\313\262 \205<\314\236\211\203K\315 A\\_\202L\313\262\262\316\314\236\"\312\211\211\211:\203\223@\262\211A\262\242\262\f\232\203\202\317\\\211\262\n\262\312\211\262\202\211\\\262 \320\203\223A\262\202\\\266 _\\BC\244\262A\262\312\262\202\321\322\"\266\211\211:\203\211\312\211\211\211\211:\203@\262\211A\262\242\262\323\n\236\203\337\324\325\326#\206\340\262\327\f\330\331$\211\203\375@C\244\262\332 \330\331$\262\f\210A\262\312\262\202\276\333\f\"\207\334\335 \"\210\336\311!\210\207\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 10000 t 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] 20 (#$ . 6869)]) #@120 Delete all `helm-adaptive-history' and his file. Useful when you have a old or corrupted `helm-adaptive-history-file'. (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 (#$ . 8314) nil]) #@134 Compare display parts if some of candidates X and Y. Arguments X and Y are cons cell in (DISPLAY . REAL) format or atoms. (fn X Y) (defalias 'helm-adaptive-compare #[514 "<\203\n@\202 <\203@\202\232\207" [] 4 (#$ . 8663)]) (provide 'helm-adaptive)