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

Chizi123
2018-11-17 c4001ccd1864293b64aa37d83a9d9457eb875e70
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
;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\303\304\305\306\307\310%\210\311\312\313\314\315DD\316\307\304\317\320&\210\311\321\313\314\322DD\323\307\304\317\324&\207" [require helm-grep helm-help custom-declare-group helm-id-utils nil "ID-Utils related Applications and libraries for Helm." :group helm custom-declare-variable helm-gid-program funcall function #[0 "\300\207" [#1="gid"] 1 #1#] "Name of gid command (usually `gid').\nFor Mac OS X users, if you install GNU coreutils, the name `gid'\nmight be occupied by `id' from GNU coreutils, and you should set\nit to correct name (or absolute path), for example, if using\nMacPorts to install id-utils, it should be `gid32'." :type file helm-gid-db-file-name #[0 "\300\207" [#2="ID"] 1 #2#] "Name of a database file created by `mkid' command from `ID-utils'." string] 8)
(defalias 'helm-gid-candidates-process #[0 "\304!\305\306    \307@!#A\211\2035\310\311:\203/@\262\211\305\312\307!\"P\262A\262\202\266\202P\2026\262\313\314\n#\315\303!\210\211\316\317\"\210\207" [helm-pattern helm-gid-program helm-buffer helm-grep-last-cmd-line helm-mm-split-pattern format "%s -r %s" shell-quote-argument nil #1="" " | grep --color=always %s" start-process-shell-command "gid" make-local-variable set-process-sentinel #[514 "\211\301\230\205/\302 \210\303\304 !r\305\306\307\310\311!\312\"\313$\216\314@\315\"\210\316\317 \210*\210\320\321\322\323\324#\"\207" [mode-line-format "finished\n" helm-maybe-show-help-echo internal--before-with-selected-window helm-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord (" " mode-line-buffer-identification " " (:eval (format "L%s" (helm-candidate-number-at-point))) " " (:eval (propertize (format "[Helm Gid process finished - (%s results)]" (max (1- (count-lines (point-min) (point-max))) 0)) 'face 'helm-locate-finish))) force-mode-line-update helm-log "Error: Gid %s" replace-regexp-in-string "\n" #1#] 9 "\n\n(fn PROCESS EVENT)"]] 12])
#@26 
 
(fn CANDIDATES SOURCE)
(defalias 'helm-gid-filtered-candidate-transformer #[514 "\300\301\302#\303\211:\203@\262\304!B\262A\262\202\211\237\207" [helm-fast-remove-dups :test equal nil helm-grep--filter-candidate-1] 7 (#$ . 2425)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-gid-source-p eieio-make-class-predicate helm-gid-source helm-gid-source--eieio-childp eieio-make-child-predicate helm-gid-source-child-p make-obsolete "use (cl-typep ... \\='helm-gid-source) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-async) ((header-name :initform (lambda (name) (concat name " [" (helm-attr 'db-dir) "]"))) (db-dir :initarg :db-dir :initform nil :custom string :documentation " Location of ID file.") (candidates-process :initform #'helm-gid-candidates-process) (filtered-candidate-transformer :initform #'helm-gid-filtered-candidate-transformer) (candidate-number-limit :initform 99999) (action :initform (helm-make-actions "Find File" 'helm-grep-action "Find file other frame" 'helm-grep-other-frame "Save results in grep buffer" 'helm-grep-save-results "Find file other window" 'helm-grep-other-window)) (persistent-action :initform 'helm-grep-persistent-action) (history :initform 'helm-grep-history) (nohighlight :initform t) (help-message :initform 'helm-grep-help-message) (requires-pattern :initform 2)) nil] 6)
#@72 Create a new object of class type `helm-gid-source'.
 
(fn &rest SLOTS)
(defalias 'helm-gid-source #[128 "\300\301\302#\207" [apply make-instance helm-gid-source] 5 (#$ . 3921)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-gid-source compiler-macro helm-gid-source--anon-cmacro] 4)
#@26 
 
(fn WHOLE &rest SLOTS)
(defalias 'helm-gid-source--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 4223)])
#@241 Preconfigured helm for `gid' command line of `ID-Utils'.
Need A database created with the command `mkid'
above `default-directory'.
Need id-utils as dependency which provide `mkid', `gid' etc...
See <https://www.gnu.org/software/idutils/>.
(defalias 'helm-gid #[0 "\306    \"\307\310\211\204\311\312\313\314\211$\210\315\316\317\320\321\322$\323\324\325\f\326 &*\207" [default-directory helm-gid-db-file-name helm-grep-default-directory-fn helm--maybe-use-default-as-input helm-grep-map helm-grep-truncate-lines locate-dominating-file #[0 "\207" [default-directory] 1] t cl--assertion-failed db "No DataBase found, create one with `mkid'" nil helm :sources helm-make-source "Gid" helm-gid-source :db-dir :buffer "*helm gid*" :keymap :truncate-lines] 10 (#$ . 4458) nil])
(provide 'helm-id-utils)