;ELC ;;; Compiled ;;; in Emacs version 24.5.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\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&\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" ["~/.emacs.d/helm-adaptive-history"] 1 "~/.emacs.d/helm-adaptive-history\n\n(fn)"] "Path of file where history information is stored." :type string helm-adaptive-history-length #[0 "\300\207" [50] 1 "\n\n(fn)"] "Maximum number of candidates stored for a source." number] 8) #@73 nil if history information is not yet stored for the current selection. (defvar helm-adaptive-done nil (#$ . 1041)) #@125 Contains the stored history information. Format: ((SOURCE-NAME (SELECTED-CANDIDATE (PATTERN . NUMBER-OF-USE) ...) ...) ...) (defvar helm-adaptive-history nil (#$ . 1164)) (defalias 'helm-adaptive-done-reset #[0 "\301\211\207" [helm-adaptive-done nil] 2 "\n\n(fn)"]) (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 "\n\n(fn)"] "Non-nil if Helm-Adaptive mode is enabled.\nSee the command `helm-adaptive-mode' for 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) #@61 Toggle adaptive sorting in all sources. (fn &optional ARG) (defalias 'helm-adaptive-mode #[256 "\302 \303=\203 ?\202\304!\305V\211\2035 \204\306 \210\307\310\311\"\210\307\312\313\"\210\307\314\315\"\210\307\316\315\"\210\202N\311 \210\317\320\310\311\"\210\320\312\313\"\210\320\314\315\"\210\320\316\315\"\210\321\322\203X\323\202Y\324\"\210\325\326!\203~\327\300!\210\302 \203q\211\302 \232\203~\330\331\203{\332\202|\333\"\210\210\334 \210\207" [helm-adaptive-mode helm-adaptive-history current-message toggle 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" "en" "dis" force-mode-line-update] 6 (#$ . 2024) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) #@183 Hook run after entering or leaving `helm-adaptive-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar helm-adaptive-mode-hook nil (#$ . 3110)) (byte-code "\301\302\303\304\300!\205\n\303\211%\207" [helm-adaptive-mode-map add-minor-mode helm-adaptive-mode nil 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 "\205G\211\206\n\302 \303\304\305\303\306\" \"\"\206/\303\307\305\303\306\" \"\"\206/\303\304\"\206/\303\307\"\211<\203>\310\235\205E\202E\211\310=\205E\266\202\207" [helm-adaptive-mode helm-type-attributes helm-get-current-source assoc-default filtered-candidate-transformer assoc type candidate-transformer helm-adaptive-sort] 8 (#$ . 3476)]) #@61 Store history information for the selected candidate. (fn) (defalias 'helm-adaptive-store-selection #[0 "?\205\216\304\305 \211\205\214\306\307\"\206\306\310\"\311 \"\206&\211C B\211@\312 \311A\"\211\2047C\202A\313A\"\241\210\211\262AB\241\210\211A@\262\211\311\nA\"\211\204^\n\314B\202g\313A\"\241\210\211\262AB\241\210\211\211A@\262\211AT\241\210AG V\205\212\315A\314 #\241\266\205\262\207" [helm-adaptive-done helm-adaptive-history helm-pattern helm-adaptive-history-length t helm-adapt-use-adaptive-p assoc-default type name assoc helm-get-selection delete 0 cl-subseq] 12 (#$ . 3985)]) #@139 Load `helm-adaptive-history-file' which contain `helm-adaptive-history'. Returns nil if `helm-adaptive-history-file' doesn't exist. (fn) (defalias 'helm-adaptive-maybe-load-history #[0 "\301!\205 \302!\207" [helm-adaptive-history-file file-readable-p load-file] 2 (#$ . 4624)]) #@93 Save history information to file given by `helm-adaptive-history-file'. (fn &optional ARG) (defalias 'helm-adaptive-save-history #[256 "\302\303!r\211q\210\304\305\306\307\310\311!\312\"\313\314%DC\216\315\316\261\210\317\320\300\321DEp\"\210\322c\210\323ed \324?\2056\325%*\207" [helm-adaptive-history helm-adaptive-history-file generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" ";; -*- mode: emacs-lisp -*-\n" ";; History entries used for helm adaptive display.\n" prin1 setq quote 10 write-region nil quiet] 9 (#$ . 4912) "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 "\302\303\"\206 \302\304\"\305\"\211\203z\306\307A\"\211\203k\211:\203k\310\311\"\262\211\312\211\211\211:\203a@\262\211A\262\242\262\313 \314\315$\262\203Z\211@C\244\262\316 \314\315$\262\nA\262\202,\317 \"\266\205\202u\320\321 \"\210\322\323!\210\262\202{\207" [helm-adaptive-history helm-adaptive-history-file assoc-default type name assoc mapcar #[257 "\300C\301\302\303\300\304\305\306\"\307\"\310\311%D\215\210@\242B\207" [0 --cl-block-nil-- funcall make-byte-code "\300A\211\205-\211@\211@\n\232\204\301\211\242A\\\240\210\202&\301\303A\\\240\210\304\305\306\"\210A\266\202\202\207" vconcat vector [helm-pattern 10000 throw --cl-block-nil-- nil] 5 "\n\n(fn)"] 11 "\n\n(fn CANDIDATE-INFO)"] sort #[514 "AAV\207" [] 4 "\n\n(fn FIRST SECOND)"] nil 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 1] 15 (#$ . 5548)]) #@126 Delete all `helm-adaptive-history' and his file. Useful when you have a old or corrupted `helm-adaptive-history-file'. (fn) (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 (#$ . 6774) nil]) #@112 Compare candidates X and Y taking into account that the candidate can be in (DISPLAY . REAL) format. (fn X Y) (defalias 'helm-adaptive-compare #[514 "<\203\nA\202 <\203A\202\232\207" [] 4 (#$ . 7129)]) (provide 'helm-adaptive)