Upgrade packages
This commit is contained in:
Gergely Polonkai
parent
c6d477e36b
commit
697f492aba
@ -1,9 +1,10 @@
|
||||
;;; company-autoloads.el --- automatically extracted autoloads
|
||||
;;
|
||||
;;; Code:
|
||||
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
||||
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
|
||||
|
||||
;;;### (autoloads nil "company" "company.el" (22454 5294 352599 524000))
|
||||
;;;### (autoloads nil "company" "company.el" (22490 24940 331394
|
||||
;;;;;; 500000))
|
||||
;;; Generated autoloads from company.el
|
||||
|
||||
(autoload 'company-mode "company" "\
|
||||
@ -37,9 +38,8 @@ keymap during active completions (`company-active-map'):
|
||||
\(fn &optional ARG)" t nil)
|
||||
|
||||
(defvar global-company-mode nil "\
|
||||
Non-nil if Global Company mode is enabled.
|
||||
See the `global-company-mode' command
|
||||
for a description of this minor mode.
|
||||
Non-nil if Global-Company mode is enabled.
|
||||
See the command `global-company-mode' for a description of this minor mode.
|
||||
Setting this variable directly does not take effect;
|
||||
either customize it (see the info node `Easy Customization')
|
||||
or call the function `global-company-mode'.")
|
||||
@ -48,7 +48,7 @@ or call the function `global-company-mode'.")
|
||||
|
||||
(autoload 'global-company-mode "company" "\
|
||||
Toggle Company mode in all buffers.
|
||||
With prefix ARG, enable Global Company mode if ARG is positive;
|
||||
With prefix ARG, enable Global-Company mode if ARG is positive;
|
||||
otherwise, disable it. If called from Lisp, enable the mode if
|
||||
ARG is omitted or nil.
|
||||
|
||||
@ -73,8 +73,8 @@ inserted.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "company-abbrev" "company-abbrev.el" (22454
|
||||
;;;;;; 5294 949613 562000))
|
||||
;;;### (autoloads nil "company-abbrev" "company-abbrev.el" (22490
|
||||
;;;;;; 24940 399394 311000))
|
||||
;;; Generated autoloads from company-abbrev.el
|
||||
|
||||
(autoload 'company-abbrev "company-abbrev" "\
|
||||
@ -84,8 +84,8 @@ inserted.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "company-bbdb" "company-bbdb.el" (22454 5294
|
||||
;;;;;; 768609 306000))
|
||||
;;;### (autoloads nil "company-bbdb" "company-bbdb.el" (22490 24940
|
||||
;;;;;; 379394 367000))
|
||||
;;; Generated autoloads from company-bbdb.el
|
||||
|
||||
(autoload 'company-bbdb "company-bbdb" "\
|
||||
@ -95,8 +95,8 @@ inserted.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "company-css" "company-css.el" (22454 5294
|
||||
;;;;;; 307598 466000))
|
||||
;;;### (autoloads nil "company-css" "company-css.el" (22490 24940
|
||||
;;;;;; 327394 512000))
|
||||
;;; Generated autoloads from company-css.el
|
||||
|
||||
(autoload 'company-css "company-css" "\
|
||||
@ -106,8 +106,8 @@ inserted.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "company-dabbrev" "company-dabbrev.el" (22454
|
||||
;;;;;; 5294 565604 532000))
|
||||
;;;### (autoloads nil "company-dabbrev" "company-dabbrev.el" (22490
|
||||
;;;;;; 24940 355394 433000))
|
||||
;;; Generated autoloads from company-dabbrev.el
|
||||
|
||||
(autoload 'company-dabbrev "company-dabbrev" "\
|
||||
@ -118,7 +118,7 @@ dabbrev-like `company-mode' completion backend.
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "company-dabbrev-code" "company-dabbrev-code.el"
|
||||
;;;;;; (22454 5294 475602 417000))
|
||||
;;;;;; (22490 24940 347394 456000))
|
||||
;;; Generated autoloads from company-dabbrev-code.el
|
||||
|
||||
(autoload 'company-dabbrev-code "company-dabbrev-code" "\
|
||||
@ -130,8 +130,8 @@ comments or strings.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "company-elisp" "company-elisp.el" (22454 5295
|
||||
;;;;;; 17615 161000))
|
||||
;;;### (autoloads nil "company-elisp" "company-elisp.el" (22490 24940
|
||||
;;;;;; 407394 288000))
|
||||
;;; Generated autoloads from company-elisp.el
|
||||
|
||||
(autoload 'company-elisp "company-elisp" "\
|
||||
@ -141,8 +141,8 @@ comments or strings.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "company-etags" "company-etags.el" (22454 5294
|
||||
;;;;;; 396600 559000))
|
||||
;;;### (autoloads nil "company-etags" "company-etags.el" (22490 24940
|
||||
;;;;;; 339394 478000))
|
||||
;;; Generated autoloads from company-etags.el
|
||||
|
||||
(autoload 'company-etags "company-etags" "\
|
||||
@ -152,8 +152,8 @@ comments or strings.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "company-files" "company-files.el" (22454 5294
|
||||
;;;;;; 611605 614000))
|
||||
;;;### (autoloads nil "company-files" "company-files.el" (22490 24940
|
||||
;;;;;; 363394 410000))
|
||||
;;; Generated autoloads from company-files.el
|
||||
|
||||
(autoload 'company-files "company-files" "\
|
||||
@ -165,8 +165,8 @@ File paths with spaces are only supported inside strings.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "company-gtags" "company-gtags.el" (22454 5294
|
||||
;;;;;; 137594 469000))
|
||||
;;;### (autoloads nil "company-gtags" "company-gtags.el" (22490 24940
|
||||
;;;;;; 299394 590000))
|
||||
;;; Generated autoloads from company-gtags.el
|
||||
|
||||
(autoload 'company-gtags "company-gtags" "\
|
||||
@ -176,8 +176,8 @@ File paths with spaces are only supported inside strings.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "company-ispell" "company-ispell.el" (22454
|
||||
;;;;;; 5294 983614 361000))
|
||||
;;;### (autoloads nil "company-ispell" "company-ispell.el" (22490
|
||||
;;;;;; 24940 403394 299000))
|
||||
;;; Generated autoloads from company-ispell.el
|
||||
|
||||
(autoload 'company-ispell "company-ispell" "\
|
||||
@ -187,8 +187,8 @@ File paths with spaces are only supported inside strings.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "company-keywords" "company-keywords.el" (22454
|
||||
;;;;;; 5294 678607 190000))
|
||||
;;;### (autoloads nil "company-keywords" "company-keywords.el" (22490
|
||||
;;;;;; 24940 371394 389000))
|
||||
;;; Generated autoloads from company-keywords.el
|
||||
|
||||
(autoload 'company-keywords "company-keywords" "\
|
||||
@ -198,8 +198,8 @@ File paths with spaces are only supported inside strings.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "company-nxml" "company-nxml.el" (22454 5294
|
||||
;;;;;; 802610 105000))
|
||||
;;;### (autoloads nil "company-nxml" "company-nxml.el" (22490 24940
|
||||
;;;;;; 383394 355000))
|
||||
;;; Generated autoloads from company-nxml.el
|
||||
|
||||
(autoload 'company-nxml "company-nxml" "\
|
||||
@ -209,8 +209,8 @@ File paths with spaces are only supported inside strings.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "company-oddmuse" "company-oddmuse.el" (22454
|
||||
;;;;;; 5294 239596 867000))
|
||||
;;;### (autoloads nil "company-oddmuse" "company-oddmuse.el" (22490
|
||||
;;;;;; 24940 319394 534000))
|
||||
;;; Generated autoloads from company-oddmuse.el
|
||||
|
||||
(autoload 'company-oddmuse "company-oddmuse" "\
|
||||
@ -220,8 +220,8 @@ File paths with spaces are only supported inside strings.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "company-semantic" "company-semantic.el" (22454
|
||||
;;;;;; 5294 171595 268000))
|
||||
;;;### (autoloads nil "company-semantic" "company-semantic.el" (22490
|
||||
;;;;;; 24940 303394 579000))
|
||||
;;; Generated autoloads from company-semantic.el
|
||||
|
||||
(autoload 'company-semantic "company-semantic" "\
|
||||
@ -231,8 +231,8 @@ File paths with spaces are only supported inside strings.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "company-tempo" "company-tempo.el" (22454 5294
|
||||
;;;;;; 520603 474000))
|
||||
;;;### (autoloads nil "company-tempo" "company-tempo.el" (22490 24940
|
||||
;;;;;; 351394 444000))
|
||||
;;; Generated autoloads from company-tempo.el
|
||||
|
||||
(autoload 'company-tempo "company-tempo" "\
|
||||
@ -242,8 +242,8 @@ File paths with spaces are only supported inside strings.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "company-xcode" "company-xcode.el" (22454 5294
|
||||
;;;;;; 871611 728000))
|
||||
;;;### (autoloads nil "company-xcode" "company-xcode.el" (22490 24940
|
||||
;;;;;; 395394 322000))
|
||||
;;; Generated autoloads from company-xcode.el
|
||||
|
||||
(autoload 'company-xcode "company-xcode" "\
|
||||
@ -254,7 +254,7 @@ File paths with spaces are only supported inside strings.
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "company-yasnippet" "company-yasnippet.el"
|
||||
;;;;;; (22454 5294 837610 928000))
|
||||
;;;;;; (22490 24940 391394 333000))
|
||||
;;; Generated autoloads from company-yasnippet.el
|
||||
|
||||
(autoload 'company-yasnippet "company-yasnippet" "\
|
||||
@ -286,7 +286,7 @@ shadow backends that come after it. Recommended usages:
|
||||
|
||||
;;;### (autoloads nil nil ("company-capf.el" "company-clang.el" "company-cmake.el"
|
||||
;;;;;; "company-eclim.el" "company-pkg.el" "company-template.el")
|
||||
;;;;;; (22454 5294 726608 318000))
|
||||
;;;;;; (22490 24940 420783 348000))
|
||||
|
||||
;;;***
|
||||
|
||||
@ -66,7 +66,8 @@ completion."
|
||||
(with-temp-buffer
|
||||
(let (tags)
|
||||
(when (= 0 (call-process company-gtags-executable nil
|
||||
(list (current-buffer) nil) nil "-xGq" (concat "^" prefix)))
|
||||
;; "-T" goes through all the tag files listed in GTAGSLIBPATH
|
||||
(list (current-buffer) nil) nil "-xGqT" (concat "^" prefix)))
|
||||
(goto-char (point-min))
|
||||
(cl-loop while
|
||||
(re-search-forward (concat
|
||||
@ -210,6 +210,14 @@
|
||||
"do" "else" "elsif" "end" "ensure" "false" "for" "if" "in" "module"
|
||||
"next" "nil" "not" "or" "redo" "rescue" "retry" "return" "self" "super"
|
||||
"then" "true" "undef" "unless" "until" "when" "while" "yield")
|
||||
;; From https://doc.rust-lang.org/grammar.html#keywords
|
||||
;; but excluding unused reserved words: https://www.reddit.com/r/rust/comments/34fq0k/is_there_a_good_list_of_rusts_keywords/cqucvnj
|
||||
(rust-mode
|
||||
"Self"
|
||||
"as" "box" "break" "const" "continue" "crate" "else" "enum" "extern"
|
||||
"false" "fn" "for" "if" "impl" "in" "let" "loop" "macro" "match" "mod"
|
||||
"move" "mut" "pub" "ref" "return" "self" "static" "struct" "super"
|
||||
"trait" "true" "type" "unsafe" "use" "where" "while")
|
||||
(scala-mode
|
||||
"abstract" "case" "catch" "class" "def" "do" "else" "extends" "false"
|
||||
"final" "finally" "for" "forSome" "if" "implicit" "import" "lazy" "match"
|
||||
@ -225,8 +233,10 @@
|
||||
)
|
||||
;; aliases
|
||||
(js2-mode . javascript-mode)
|
||||
(js2-jsx-mode . javascript-mode)
|
||||
(espresso-mode . javascript-mode)
|
||||
(js-mode . javascript-mode)
|
||||
(js-jsx-mode . javascript-mode)
|
||||
(cperl-mode . perl-mode)
|
||||
(jde-mode . java-mode)
|
||||
(ess-julia-mode . julia-mode))
|
||||
@ -1,4 +1,4 @@
|
||||
(define-package "company" "20160730.1516" "Modular text completion framework"
|
||||
(define-package "company" "20160829.1206" "Modular text completion framework"
|
||||
'((emacs "24.1")
|
||||
(cl-lib "0.5"))
|
||||
:url "http://company-mode.github.io/" :keywords
|
||||
@ -118,9 +118,13 @@ attention to case differences."
|
||||
"Face used for the selection in the tooltip.")
|
||||
|
||||
(defface company-tooltip-search
|
||||
'((default :inherit company-tooltip-selection))
|
||||
'((default :inherit highlight))
|
||||
"Face used for the search string in the tooltip.")
|
||||
|
||||
(defface company-tooltip-search-selection
|
||||
'((default :inherit highlight))
|
||||
"Face used for the search string inside the selection in the tooltip.")
|
||||
|
||||
(defface company-tooltip-mouse
|
||||
'((default :inherit highlight))
|
||||
"Face used for the tooltip item under the mouse.")
|
||||
@ -2475,22 +2479,24 @@ If SHOW-VERSION is non-nil, show the version in the echo area."
|
||||
'company-tooltip-common-selection
|
||||
'company-tooltip-common)
|
||||
line)
|
||||
(when selected
|
||||
(if (let ((re (funcall company-search-regexp-function
|
||||
(when (let ((re (funcall company-search-regexp-function
|
||||
company-search-string)))
|
||||
(and (not (string= re ""))
|
||||
(string-match re value (length company-prefix))))
|
||||
(pcase-dolist (`(,mbeg . ,mend) (company--search-chunks))
|
||||
(let ((beg (+ margin mbeg))
|
||||
(end (+ margin mend))
|
||||
(width (- width (length right))))
|
||||
(when (< beg width)
|
||||
(font-lock-prepend-text-property beg (min end width)
|
||||
'face 'company-tooltip-search
|
||||
line))))
|
||||
(font-lock-append-text-property 0 width 'face
|
||||
'company-tooltip-selection
|
||||
line)))
|
||||
(pcase-dolist (`(,mbeg . ,mend) (company--search-chunks))
|
||||
(let ((beg (+ margin mbeg))
|
||||
(end (+ margin mend))
|
||||
(width (- width (length right))))
|
||||
(when (< beg width)
|
||||
(font-lock-prepend-text-property beg (min end width) 'face
|
||||
(if selected
|
||||
'company-tooltip-search-selection
|
||||
'company-tooltip-search)
|
||||
line)))))
|
||||
(when selected
|
||||
(font-lock-append-text-property 0 width 'face
|
||||
'company-tooltip-selection
|
||||
line))
|
||||
(font-lock-append-text-property 0 width 'face
|
||||
'company-tooltip
|
||||
line)
|
||||
@ -4,7 +4,7 @@
|
||||
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
|
||||
|
||||
;;;### (autoloads nil "company-quickhelp" "company-quickhelp.el"
|
||||
;;;;;; (22297 53348 410925 167000))
|
||||
;;;;;; (22490 24939 611396 515000))
|
||||
;;; Generated autoloads from company-quickhelp.el
|
||||
|
||||
(defvar company-quickhelp-mode nil "\
|
||||
@ -1 +1 @@
|
||||
(define-package "company-quickhelp" "20160211.718" "Popup documentation for completion candidates" '((emacs "24.4") (company "0.8.9") (pos-tip "0.4.6")) :url "https://www.github.com/expez/company-quickhelp" :keywords '("company" "popup" "documentation" "quickhelp"))
|
||||
(define-package "company-quickhelp" "20160826.806" "Popup documentation for completion candidates" '((emacs "24.4") (company "0.8.9") (pos-tip "0.4.6")) :url "https://www.github.com/expez/company-quickhelp" :keywords '("company" "popup" "documentation" "quickhelp"))
|
||||
@ -1,12 +1,12 @@
|
||||
;;; company-quickhelp.el --- Popup documentation for completion candidates
|
||||
|
||||
;; Copyright (C) 2015, Lars Andersen
|
||||
;; Copyright (C) 2016, Lars Andersen
|
||||
|
||||
;; Author: Lars Andersen <expez@expez.com>
|
||||
;; URL: https://www.github.com/expez/company-quickhelp
|
||||
;; Package-Version: 20160211.718
|
||||
;; Package-Version: 20160826.806
|
||||
;; Keywords: company popup documentation quickhelp
|
||||
;; Version: 1.3.0
|
||||
;; Version: 1.4.0
|
||||
;; Package-Requires: ((emacs "24.4") (company "0.8.9") (pos-tip "0.4.6"))
|
||||
|
||||
;; This file is not part of GNU Emacs.
|
||||
@ -60,12 +60,6 @@ be triggered manually using `company-quickhelp-show'."
|
||||
(const :tag "Don't limit the number of lines shown" nil))
|
||||
:group 'company-quickhelp)
|
||||
|
||||
(defvar company-quickhelp-mode-map
|
||||
(let ((keymap (make-sparse-keymap)))
|
||||
(define-key keymap (kbd "M-h") #'company-quickhelp-manual-begin)
|
||||
keymap)
|
||||
"The keymap used by `company-quickhelp'.")
|
||||
|
||||
(defvar company-quickhelp--timer nil
|
||||
"Quickhelp idle timer.")
|
||||
|
||||
@ -200,7 +194,7 @@ Most likely this means you're on a mac with an Emacs build using Cocoa instead o
|
||||
;;;###autoload
|
||||
(define-minor-mode company-quickhelp-mode
|
||||
"Provides documentation popups for `company-mode' using `pos-tip'."
|
||||
:global t :keymap company-quickhelp-mode-map
|
||||
:global t
|
||||
(if company-quickhelp-mode
|
||||
(company-quickhelp--enable)
|
||||
(company-quickhelp--disable)))
|
||||
@ -1,2 +0,0 @@
|
||||
;;; -*- no-byte-compile: t -*-
|
||||
(define-package "dash" "20160813.951" "A modern list library for Emacs" 'nil :keywords '("lists"))
|
||||
@ -1,9 +1,10 @@
|
||||
;;; dash-autoloads.el --- automatically extracted autoloads
|
||||
;;
|
||||
;;; Code:
|
||||
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
||||
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
|
||||
|
||||
;;;### (autoloads nil nil ("dash.el") (22454 5337 8602 510000))
|
||||
;;;### (autoloads nil nil ("dash-pkg.el" "dash.el") (22490 24939
|
||||
;;;;;; 339398 67000))
|
||||
|
||||
;;;***
|
||||
|
||||
1
elpa/dash-20160820.501/dash-pkg.el
Normal file
1
elpa/dash-20160820.501/dash-pkg.el
Normal file
@ -0,0 +1 @@
|
||||
(define-package "dash" "20160820.501" "A modern list library for Emacs" 'nil :keywords '("lists"))
|
||||
@ -4,7 +4,7 @@
|
||||
|
||||
;; Author: Magnar Sveen <magnars@gmail.com>
|
||||
;; Version: 2.13.0
|
||||
;; Package-Version: 20160813.951
|
||||
;; Package-Version: 20160820.501
|
||||
;; Keywords: lists
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
@ -358,7 +358,7 @@ See also: `-each-indexed'."
|
||||
(nreverse ,r))))
|
||||
|
||||
(defun -map-when (pred rep list)
|
||||
"Return a new list where the elements in LIST that does not match the PRED function
|
||||
"Return a new list where the elements in LIST that do not match the PRED function
|
||||
are unchanged, and where the elements in LIST that do match the PRED function are mapped
|
||||
through the REP function.
|
||||
|
||||
@ -1,4 +0,0 @@
|
||||
(define-package "erlang" "20160719.535" "Erlang major mode" 'nil)
|
||||
;; Local Variables:
|
||||
;; no-byte-compile: t
|
||||
;; End:
|
||||
@ -1,9 +1,9 @@
|
||||
;;; erlang-autoloads.el --- automatically extracted autoloads
|
||||
;;
|
||||
;;; Code:
|
||||
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
||||
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
|
||||
|
||||
;;;### (autoloads nil "erlang" "erlang.el" (22454 5334 245537 541000))
|
||||
;;;### (autoloads nil "erlang" "erlang.el" (22490 24938 259400 312000))
|
||||
;;; Generated autoloads from erlang.el
|
||||
|
||||
(autoload 'erlang-mode "erlang" "\
|
||||
@ -118,8 +118,8 @@ editing control characters:
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "erlang-start" "erlang-start.el" (22454 5334
|
||||
;;;;;; 87533 826000))
|
||||
;;;### (autoloads nil "erlang-start" "erlang-start.el" (22490 24938
|
||||
;;;;;; 243400 358000))
|
||||
;;; Generated autoloads from erlang-start.el
|
||||
|
||||
(let ((a '("\\.erl\\'" . erlang-mode)) (b '("\\.hrl\\'" . erlang-mode))) (or (assoc (car a) auto-mode-alist) (setq auto-mode-alist (cons a auto-mode-alist))) (or (assoc (car b) auto-mode-alist) (setq auto-mode-alist (cons b auto-mode-alist))))
|
||||
@ -132,7 +132,7 @@ editing control characters:
|
||||
|
||||
;;;### (autoloads nil nil ("erlang-eunit.el" "erlang-flymake.el"
|
||||
;;;;;; "erlang-pkg.el" "erlang-skels-old.el" "erlang-skels.el" "erlang-test.el"
|
||||
;;;;;; "erlang_appwiz.el") (22454 5334 358540 198000))
|
||||
;;;;;; "erlang_appwiz.el") (22490 24938 297767 827000))
|
||||
|
||||
;;;***
|
||||
|
||||
4
elpa/erlang-20160831.740/erlang-pkg.el
Normal file
4
elpa/erlang-20160831.740/erlang-pkg.el
Normal file
@ -0,0 +1,4 @@
|
||||
(define-package "erlang" "20160831.740" "Erlang major mode" 'nil)
|
||||
;; Local Variables:
|
||||
;; no-byte-compile: t
|
||||
;; End:
|
||||
@ -56,8 +56,10 @@
|
||||
erlang-skel-gen-event erlang-skel-header)
|
||||
("gen_fsm" "gen-fsm"
|
||||
erlang-skel-gen-fsm erlang-skel-header)
|
||||
("gen_statem" "gen-statem"
|
||||
erlang-skel-gen-statem erlang-skel-header)
|
||||
("gen_statem (StateName/3)" "gen-statem-StateName"
|
||||
erlang-skel-gen-statem-StateName erlang-skel-header)
|
||||
("gen_statem (handle_event/4)" "gen-statem-handle-event"
|
||||
erlang-skel-gen-statem-handle-event erlang-skel-header)
|
||||
("wx_object" "wx-object"
|
||||
erlang-skel-wx-object erlang-skel-header)
|
||||
("Library module" "gen-lib"
|
||||
@ -497,6 +499,7 @@ Please see the function `tempo-define-template'.")
|
||||
"%% {stop, Reason}" n
|
||||
(erlang-skel-separator-end 2)
|
||||
"init([]) ->" n>
|
||||
"process_flag(trap_exit, true)," n>
|
||||
"{ok, #state{}}." n
|
||||
n
|
||||
(erlang-skel-separator-start 2)
|
||||
@ -740,6 +743,7 @@ Please see the function `tempo-define-template'.")
|
||||
"%% {stop, StopReason}" n
|
||||
(erlang-skel-separator-end 2)
|
||||
"init([]) ->" n>
|
||||
"process_flag(trap_exit, true)," n>
|
||||
"{ok, state_name, #state{}}." n
|
||||
n
|
||||
(erlang-skel-separator-start 2)
|
||||
@ -860,7 +864,7 @@ Please see the function `tempo-define-template'.")
|
||||
"*The template of a gen_fsm.
|
||||
Please see the function `tempo-define-template'.")
|
||||
|
||||
(defvar erlang-skel-gen-statem
|
||||
(defvar erlang-skel-gen-statem-StateName
|
||||
'((erlang-skel-include erlang-skel-large-header)
|
||||
"-behaviour(gen_statem)." n n
|
||||
|
||||
@ -868,8 +872,118 @@ Please see the function `tempo-define-template'.")
|
||||
"-export([start_link/0])." n
|
||||
n
|
||||
"%% gen_statem callbacks" n
|
||||
"-export([init/1, terminate/3, code_change/4])." n
|
||||
"-export([callback_mode/0, init/1, terminate/3, code_change/4])." n
|
||||
"-export([state_name/3])." n
|
||||
n
|
||||
"-define(SERVER, ?MODULE)." n
|
||||
n
|
||||
"-record(data, {})." n
|
||||
n
|
||||
(erlang-skel-double-separator-start 3)
|
||||
"%%% API" n
|
||||
(erlang-skel-double-separator-end 3) n
|
||||
(erlang-skel-separator-start 2)
|
||||
"%% @doc" n
|
||||
"%% Creates a gen_statem process which calls Module:init/1 to" n
|
||||
"%% initialize. To ensure a synchronized start-up procedure, this" n
|
||||
"%% function does not return until Module:init/1 has returned." n
|
||||
"%%" n
|
||||
(erlang-skel-separator-end 2)
|
||||
"-spec start_link() ->" n>
|
||||
"{ok, Pid :: pid()} |" n>
|
||||
"ignore |" n>
|
||||
"{error, Error :: term()}." n
|
||||
"start_link() ->" n>
|
||||
"gen_statem:start_link({local, ?SERVER}, ?MODULE, [], [])." n
|
||||
n
|
||||
(erlang-skel-double-separator-start 3)
|
||||
"%%% gen_statem callbacks" n
|
||||
(erlang-skel-double-separator-end 3) n
|
||||
(erlang-skel-separator-start 2)
|
||||
"%% @private" n
|
||||
"%% @doc" n
|
||||
"%% Define the callback_mode() for this callback module." n
|
||||
(erlang-skel-separator-end 2)
|
||||
"-spec callback_mode() -> gen_statem:callback_mode()." n
|
||||
"callback_mode() -> state_functions." n
|
||||
n
|
||||
(erlang-skel-separator-start 2)
|
||||
"%% @private" n
|
||||
"%% @doc" n
|
||||
"%% Whenever a gen_statem is started using gen_statem:start/[3,4] or" n
|
||||
"%% gen_statem:start_link/[3,4], this function is called by the new" n
|
||||
"%% process to initialize." n
|
||||
(erlang-skel-separator-end 2)
|
||||
"-spec init(Args :: term()) ->" n>
|
||||
"{ok, State :: term(), Data :: term()} |" n>
|
||||
"{ok, State :: term(), Data :: term()," n>
|
||||
"[gen_statem:action()] | gen_statem:action()} |" n>
|
||||
"ignore |" n>
|
||||
"{stop, Reason :: term()}." n
|
||||
"init([]) ->" n>
|
||||
"process_flag(trap_exit, true)," n>
|
||||
"{ok, state_name, #data{}}." n
|
||||
n
|
||||
(erlang-skel-separator-start 2)
|
||||
"%% @private" n
|
||||
"%% @doc" n
|
||||
"%% There should be one function like this for each state name." n
|
||||
"%% Whenever a gen_statem receives an event, the function " n
|
||||
"%% with the name of the current state (StateName) " n
|
||||
"%% is called to handle the event." n
|
||||
"%%" n
|
||||
"%% NOTE: If there is an exported function handle_event/4, it is called" n
|
||||
"%% instead of StateName/3 functions like this!" n
|
||||
(erlang-skel-separator-end 2)
|
||||
"-spec state_name(" n>
|
||||
"gen_statem:event_type(), Msg :: term()," n>
|
||||
"Data :: term()) ->" n>
|
||||
"gen_statem:state_function_result()." n
|
||||
"state_name({call,Caller}, _Msg, Data) ->" n>
|
||||
"{next_state, state_name, Data, [{reply,Caller,ok}]}." n
|
||||
n
|
||||
(erlang-skel-separator-start 2)
|
||||
"%% @private" n
|
||||
"%% @doc" n
|
||||
"%% This function is called by a gen_statem when it is about to" n
|
||||
"%% terminate. It should be the opposite of Module:init/1 and do any" n
|
||||
"%% necessary cleaning up. When it returns, the gen_statem terminates with" n
|
||||
"%% Reason. The return value is ignored." n
|
||||
(erlang-skel-separator-end 2)
|
||||
"-spec terminate(Reason :: term(), State :: term(), Data :: term()) ->" n>
|
||||
"any()." n
|
||||
"terminate(_Reason, _State, _Data) ->" n>
|
||||
"void." n
|
||||
n
|
||||
(erlang-skel-separator-start 2)
|
||||
"%% @private" n
|
||||
"%% @doc" n
|
||||
"%% Convert process state when code is changed" n
|
||||
(erlang-skel-separator-end 2)
|
||||
"-spec code_change(" n>
|
||||
"OldVsn :: term() | {down,term()}," n>
|
||||
"State :: term(), Data :: term(), Extra :: term()) ->" n>
|
||||
"{ok, NewState :: term(), NewData :: term()} |" n>
|
||||
"(Reason :: term())." n
|
||||
"code_change(_OldVsn, State, Data, _Extra) ->" n>
|
||||
"{ok, State, Data}." n
|
||||
n
|
||||
(erlang-skel-double-separator-start 3)
|
||||
"%%% Internal functions" n
|
||||
(erlang-skel-double-separator-end 3)
|
||||
)
|
||||
"*The template of a gen_statem (StateName/3).
|
||||
Please see the function `tempo-define-template'.")
|
||||
|
||||
(defvar erlang-skel-gen-statem-handle-event
|
||||
'((erlang-skel-include erlang-skel-large-header)
|
||||
"-behaviour(gen_statem)." n n
|
||||
|
||||
"%% API" n
|
||||
"-export([start_link/0])." n
|
||||
n
|
||||
"%% gen_statem callbacks" n
|
||||
"-export([callback_mode/0, init/1, terminate/3, code_change/4])." n
|
||||
"-export([handle_event/4])." n
|
||||
n
|
||||
"-define(SERVER, ?MODULE)." n
|
||||
@ -899,43 +1013,35 @@ Please see the function `tempo-define-template'.")
|
||||
(erlang-skel-separator-start 2)
|
||||
"%% @private" n
|
||||
"%% @doc" n
|
||||
"%% Define the callback_mode() for this callback module." n
|
||||
(erlang-skel-separator-end 2)
|
||||
"-spec callback_mode() -> gen_statem:callback_mode()." n
|
||||
"callback_mode() -> handle_event_function." n
|
||||
n
|
||||
(erlang-skel-separator-start 2)
|
||||
"%% @private" n
|
||||
"%% @doc" n
|
||||
"%% Whenever a gen_statem is started using gen_statem:start/[3,4] or" n
|
||||
"%% gen_statem:start_link/[3,4], this function is called by the new" n
|
||||
"%% process to initialize." n
|
||||
(erlang-skel-separator-end 2)
|
||||
"-spec init(Args :: term()) ->" n>
|
||||
"{gen_statem:callback_mode()," n>
|
||||
"State :: term(), Data :: term()} |" n>
|
||||
"{gen_statem:callback_mode()," n>
|
||||
"State :: term(), Data :: term()," n>
|
||||
"{ok, State :: term(), Data :: term()} |" n>
|
||||
"{ok, State :: term(), Data :: term()," n>
|
||||
"[gen_statem:action()] | gen_statem:action()} |" n>
|
||||
"ignore |" n>
|
||||
"{stop, Reason :: term()}." n
|
||||
"init([]) ->" n>
|
||||
"{state_functions, state_name, #data{}}." n
|
||||
"process_flag(trap_exit, true)," n>
|
||||
"{ok, state_name, #data{}}." n
|
||||
n
|
||||
(erlang-skel-separator-start 2)
|
||||
"%% @private" n
|
||||
"%% @doc" n
|
||||
"%% If the gen_statem runs with CallbackMode =:= state_functions" n
|
||||
"%% there should be one instance of this function for each possible" n
|
||||
"%% state name. Whenever a gen_statem receives an event," n
|
||||
"%% the instance of this function with the same name" n
|
||||
"%% as the current state name StateName is called to" n
|
||||
"%% handle the event." n
|
||||
(erlang-skel-separator-end 2)
|
||||
"-spec state_name(" n>
|
||||
"gen_statem:event_type(), Msg :: term()," n>
|
||||
"Data :: term()) ->" n>
|
||||
"gen_statem:state_function_result()." n
|
||||
"state_name({call,Caller}, _Msg, Data) ->" n>
|
||||
"{next_state, state_name, Data, [{reply,Caller,ok}]}." n
|
||||
n
|
||||
(erlang-skel-separator-start 2)
|
||||
"%% @private" n
|
||||
"%% @doc" n
|
||||
"%% If the gen_statem runs with CallbackMode =:= handle_event_function" n
|
||||
"%% this function is called for every event a gen_statem receives." n
|
||||
"%% This function is called for every event a gen_statem receives." n
|
||||
"%%" n
|
||||
"%% NOTE: If there is no exported function handle_event/4," n
|
||||
"%% StateName/3 functions are called instead!" n
|
||||
(erlang-skel-separator-end 2)
|
||||
"-spec handle_event(" n>
|
||||
"gen_statem:event_type(), Msg :: term()," n>
|
||||
@ -965,17 +1071,16 @@ Please see the function `tempo-define-template'.")
|
||||
"-spec code_change(" n>
|
||||
"OldVsn :: term() | {down,term()}," n>
|
||||
"State :: term(), Data :: term(), Extra :: term()) ->" n>
|
||||
"{gen_statem:callback_mode()," n>
|
||||
"NewState :: term(), NewData :: term()} |" n>
|
||||
"{ok, NewState :: term(), NewData :: term()} |" n>
|
||||
"(Reason :: term())." n
|
||||
"code_change(_OldVsn, State, Data, _Extra) ->" n>
|
||||
"{state_functions, State, Data}." n
|
||||
"{ok, State, Data}." n
|
||||
n
|
||||
(erlang-skel-double-separator-start 3)
|
||||
"%%% Internal functions" n
|
||||
(erlang-skel-double-separator-end 3)
|
||||
)
|
||||
"*The template of a gen_statem.
|
||||
"*The template of a gen_statem (handle_event/4).
|
||||
Please see the function `tempo-define-template'.")
|
||||
|
||||
(defvar erlang-skel-wx-object
|
||||
@ -52,28 +52,42 @@ concatenated to form an erlang file to test on.")
|
||||
|
||||
(ert-deftest erlang-test-tags ()
|
||||
(let* ((dir (make-temp-file "erlang-test" t))
|
||||
(erlang-file (expand-file-name "erlang_test.erl" dir))
|
||||
(tags-file (expand-file-name "TAGS" dir))
|
||||
tags-file-name tags-table-list erlang-buffer)
|
||||
(unwind-protect
|
||||
(progn
|
||||
(erlang-test-create-erlang-file erlang-file)
|
||||
(erlang-test-compile-tags erlang-file tags-file)
|
||||
(setq erlang-buffer (find-file-noselect erlang-file))
|
||||
(with-current-buffer erlang-buffer
|
||||
(setq-local tags-file-name tags-file))
|
||||
;; Setting global tags-file-name is a workaround for
|
||||
;; GNU Emacs bug#23164.
|
||||
(setq tags-file-name tags-file)
|
||||
(erlang-test-completion-table)
|
||||
(erlang-test-xref-find-definitions erlang-file erlang-buffer))
|
||||
(when (buffer-live-p erlang-buffer)
|
||||
(kill-buffer erlang-buffer))
|
||||
(let ((tags-buffer (find-buffer-visiting tags-file)))
|
||||
(when (buffer-live-p tags-buffer)
|
||||
(kill-buffer tags-buffer)))
|
||||
(when (file-exists-p dir)
|
||||
(delete-directory dir t)))))
|
||||
(erlang-file (expand-file-name "erlang_test.erl" dir))
|
||||
(tags-file (expand-file-name "TAGS" dir))
|
||||
(old-tags-file-name (default-value 'tags-file-name))
|
||||
(old-tags-table-list (default-value 'tags-table-list))
|
||||
tags-file-name
|
||||
tags-table-list
|
||||
tags-table-set-list
|
||||
erlang-buffer
|
||||
erlang-mode-hook
|
||||
prog-mode-hook
|
||||
erlang-shell-mode-hook
|
||||
tags-add-tables)
|
||||
(unwind-protect
|
||||
(progn
|
||||
(setq-default tags-file-name nil)
|
||||
(setq-default tags-table-list nil)
|
||||
(erlang-test-create-erlang-file erlang-file)
|
||||
(erlang-test-compile-tags erlang-file tags-file)
|
||||
(setq erlang-buffer (find-file-noselect erlang-file))
|
||||
(with-current-buffer erlang-buffer
|
||||
(setq-local tags-file-name tags-file))
|
||||
;; Setting global tags-file-name is a workaround for
|
||||
;; GNU Emacs bug#23164.
|
||||
(setq tags-file-name tags-file)
|
||||
(erlang-test-complete-at-point tags-file)
|
||||
(erlang-test-completion-table)
|
||||
(erlang-test-xref-find-definitions erlang-file erlang-buffer))
|
||||
(when (buffer-live-p erlang-buffer)
|
||||
(kill-buffer erlang-buffer))
|
||||
(let ((tags-buffer (find-buffer-visiting tags-file)))
|
||||
(when (buffer-live-p tags-buffer)
|
||||
(kill-buffer tags-buffer)))
|
||||
(when (file-exists-p dir)
|
||||
(delete-directory dir t))
|
||||
(setq-default tags-file-name old-tags-file-name)
|
||||
(setq-default tags-table-list old-tags-table-list))))
|
||||
|
||||
(defun erlang-test-create-erlang-file (erlang-file)
|
||||
(with-temp-file erlang-file
|
||||
@ -116,6 +130,54 @@ concatenated to form an erlang file to test on.")
|
||||
(should (eq expected-line (line-number-at-pos)))
|
||||
(should (= (point-at-bol) (point))))
|
||||
|
||||
(defun erlang-test-complete-at-point (tags-file)
|
||||
(with-temp-buffer
|
||||
(erlang-mode)
|
||||
(setq-local tags-file-name tags-file)
|
||||
(insert "\nerlang_test:fun")
|
||||
(erlang-complete-tag)
|
||||
(should (looking-back "erlang_test:function"))
|
||||
(insert "\nfun")
|
||||
(erlang-complete-tag)
|
||||
(should (looking-back "function"))
|
||||
(insert "\nerlang_")
|
||||
(erlang-complete-tag)
|
||||
(should (looking-back "erlang_test:"))))
|
||||
|
||||
|
||||
(ert-deftest erlang-test-compile-options ()
|
||||
(erlang-test-format-opt t
|
||||
"t")
|
||||
(erlang-test-format-opt nil
|
||||
"nil")
|
||||
(erlang-test-format-opt (cons 1 2)
|
||||
"{1, 2}")
|
||||
(erlang-test-format-opt (list 1)
|
||||
"[1]")
|
||||
(erlang-test-format-opt (list 1 2)
|
||||
"[1, 2]")
|
||||
(erlang-test-format-opt (list 1 2 3)
|
||||
"[1, 2, 3]")
|
||||
(erlang-test-format-opt 'symbol
|
||||
"symbol")
|
||||
(erlang-test-format-opt "string"
|
||||
"\"string\"")
|
||||
(erlang-test-format-opt []
|
||||
"{}")
|
||||
(erlang-test-format-opt [1]
|
||||
"{1}")
|
||||
(erlang-test-format-opt [1 2]
|
||||
"{1, 2}")
|
||||
(erlang-test-format-opt [1 2 (3 [4 5 6] 7)]
|
||||
"{1, 2, [3, {4, 5, 6}, 7]}"))
|
||||
|
||||
(defun erlang-test-format-opt (elisp &optional expected-erlang)
|
||||
(let ((erlang (inferior-erlang-format-opt elisp)))
|
||||
(message "%s -> %s" elisp erlang)
|
||||
(when expected-erlang
|
||||
(should (equal erlang expected-erlang)))
|
||||
erlang))
|
||||
|
||||
|
||||
(provide 'erlang-test)
|
||||
|
||||
@ -1436,8 +1436,6 @@ Other commands:
|
||||
(erlang-skel-init)
|
||||
(when (fboundp 'tempo-use-tag-list)
|
||||
(tempo-use-tag-list 'erlang-tempo-tags))
|
||||
(when (boundp 'xref-backend-functions)
|
||||
(add-hook 'xref-backend-functions #'erlang-etags--xref-backend nil t))
|
||||
(run-hooks 'erlang-mode-hook)
|
||||
(if (zerop (buffer-size))
|
||||
(run-hooks 'erlang-new-file-hook)))
|
||||
@ -1548,9 +1546,7 @@ Other commands:
|
||||
(set (make-local-variable 'outline-regexp) "[[:lower:]0-9_]+ *(.*) *-> *$")
|
||||
(set (make-local-variable 'outline-level) (lambda () 1))
|
||||
(set (make-local-variable 'add-log-current-defun-function)
|
||||
'erlang-current-defun)
|
||||
(set (make-local-variable 'find-tag-default-function)
|
||||
'erlang-find-tag-for-completion))
|
||||
'erlang-current-defun))
|
||||
|
||||
(defun erlang-font-lock-init ()
|
||||
"Initialize Font Lock for Erlang mode."
|
||||
@ -3233,18 +3229,16 @@ With argument, do this that many times."
|
||||
(interactive "p")
|
||||
(or arg (setq arg 1))
|
||||
(while (and (looking-at "[ \t]*[%\n]")
|
||||
(zerop (forward-line 1))))
|
||||
(zerop (forward-line 1))))
|
||||
;; Move to the next clause.
|
||||
(erlang-beginning-of-clause (- arg))
|
||||
(beginning-of-line);; Just to be sure...
|
||||
(let ((continue t))
|
||||
(while (and (not (bobp)) continue)
|
||||
(forward-line -1)
|
||||
(skip-chars-forward " \t")
|
||||
(if (looking-at "[%\n]")
|
||||
nil
|
||||
(end-of-line)
|
||||
(setq continue nil)))))
|
||||
(unless (looking-at "[ \t]*[%\n]")
|
||||
(end-of-line)
|
||||
(setq continue nil)))))
|
||||
|
||||
(defun erlang-mark-clause ()
|
||||
"Put mark at end of clause, point at beginning."
|
||||
@ -4352,11 +4346,6 @@ as on the old form `tag'.
|
||||
|
||||
In the completion list, `module:tag' and `module:' shows up.
|
||||
|
||||
Call this function from an appropriate init file, or add it to
|
||||
Erlang mode hook with the commands:
|
||||
(add-hook 'erlang-mode-hook 'erlang-tags-init)
|
||||
(add-hook 'erlang-shell-mode-hook 'erlang-tags-init)
|
||||
|
||||
This function only works under Emacs 18 and Emacs 19. Currently, It
|
||||
is not implemented under XEmacs. (Hint: The Emacs 19 etags module
|
||||
works under XEmacs.)"
|
||||
@ -4367,11 +4356,16 @@ works under XEmacs.)"
|
||||
(setq erlang-tags-installed t))
|
||||
(t
|
||||
(require 'etags)
|
||||
;; Test on a function available in the Emacs 19 version
|
||||
;; of tags but not in the XEmacs version.
|
||||
(when (fboundp 'find-tag-noselect)
|
||||
(erlang-tags-define-keys (current-local-map))
|
||||
(setq erlang-tags-installed t)))))
|
||||
(set (make-local-variable 'find-tag-default-function)
|
||||
'erlang-find-tag-for-completion)
|
||||
(if (>= emacs-major-version 25)
|
||||
(add-hook 'xref-backend-functions
|
||||
#'erlang-etags--xref-backend nil t)
|
||||
;; Test on a function available in the Emacs 19 version
|
||||
;; of tags but not in the XEmacs version.
|
||||
(when (fboundp 'find-tag-noselect)
|
||||
(erlang-tags-define-keys (current-local-map))
|
||||
(setq erlang-tags-installed t))))))
|
||||
|
||||
|
||||
|
||||
@ -4775,8 +4769,6 @@ for a tag on the form `module:tag'."
|
||||
;;; completion-table' containing all normal tags plus tags on the form
|
||||
;;; `module:tag' and `module:'.
|
||||
|
||||
;; PENDING - Should probably make use of the
|
||||
;; `completion-at-point-functions' hook instead of this advice.
|
||||
(when (and (locate-library "etags")
|
||||
(require 'etags)
|
||||
(fboundp 'etags-tags-completion-table)
|
||||
@ -4784,11 +4776,7 @@ for a tag on the form `module:tag'."
|
||||
(if (fboundp 'advice-add)
|
||||
;; Emacs 24.4+
|
||||
(advice-add 'etags-tags-completion-table :around
|
||||
(lambda (oldfun)
|
||||
(if erlang-replace-etags-tags-completion-table
|
||||
(erlang-etags-tags-completion-table)
|
||||
(funcall oldfun)))
|
||||
(list :name 'erlang-replace-tags-table))
|
||||
#'erlang-etags-tags-completion-table-advice)
|
||||
;; Emacs 23.1-24.3
|
||||
(defadvice etags-tags-completion-table (around
|
||||
erlang-replace-tags-table
|
||||
@ -4797,6 +4785,11 @@ for a tag on the form `module:tag'."
|
||||
(setq ad-return-value (erlang-etags-tags-completion-table))
|
||||
ad-do-it))))
|
||||
|
||||
(defun erlang-etags-tags-completion-table-advice (oldfun)
|
||||
(if erlang-replace-etags-tags-completion-table
|
||||
(erlang-etags-tags-completion-table)
|
||||
(funcall oldfun)))
|
||||
|
||||
(defun erlang-complete-tag ()
|
||||
"Perform tags completion on the text around point.
|
||||
Completes to the set of names listed in the current tags table.
|
||||
@ -4807,8 +4800,7 @@ about Erlang modules."
|
||||
(condition-case nil
|
||||
(require 'etags)
|
||||
(error nil))
|
||||
(cond ((and erlang-tags-installed
|
||||
(fboundp 'etags-tags-completion-table)
|
||||
(cond ((and (fboundp 'etags-tags-completion-table)
|
||||
(fboundp 'tags-lazy-completion-table)) ; Emacs 23.1+
|
||||
(let ((erlang-replace-etags-tags-completion-table t))
|
||||
(complete-tag)))
|
||||
@ -5213,19 +5205,10 @@ The following special commands are available:
|
||||
(setq comint-input-ignoredups t)
|
||||
(setq comint-scroll-show-maximum-output t)
|
||||
(setq comint-scroll-to-bottom-on-output t)
|
||||
;; In Emacs 19.30, `add-hook' has got a `local' flag, use it. If
|
||||
;; the call fails, just call the normal `add-hook'.
|
||||
(condition-case nil
|
||||
(progn
|
||||
(add-hook 'comint-output-filter-functions
|
||||
'inferior-erlang-strip-delete nil t)
|
||||
(add-hook 'comint-output-filter-functions
|
||||
'inferior-erlang-strip-ctrl-m nil t))
|
||||
(error
|
||||
(funcall (symbol-function 'make-local-hook)
|
||||
'comint-output-filter-functions) ; obsolete as of Emacs 21.1
|
||||
(add-hook 'comint-output-filter-functions 'inferior-erlang-strip-delete)
|
||||
(add-hook 'comint-output-filter-functions 'inferior-erlang-strip-ctrl-m)))
|
||||
(add-hook 'comint-output-filter-functions
|
||||
'inferior-erlang-strip-delete nil t)
|
||||
(add-hook 'comint-output-filter-functions
|
||||
'inferior-erlang-strip-ctrl-m nil t)
|
||||
;; Some older versions of comint don't have an input ring.
|
||||
(if (fboundp 'comint-read-input-ring)
|
||||
(progn
|
||||
@ -5251,6 +5234,7 @@ The following special commands are available:
|
||||
(define-key map [menu-bar compilation]
|
||||
(cons "Errors" compilation-menu-map)))
|
||||
map)))))
|
||||
(erlang-tags-init)
|
||||
(run-hooks 'erlang-shell-mode-hook))
|
||||
|
||||
|
||||
@ -5730,31 +5714,29 @@ unless the optional NO-DISPLAY is non-nil."
|
||||
(defun inferior-erlang-format-comma-opts (opts)
|
||||
(if (null opts)
|
||||
""
|
||||
(concat ", " (inferior-erlang-format-opts opts))))
|
||||
|
||||
(defun inferior-erlang-format-opts (opts)
|
||||
(concat "[" (inferior-erlang-string-join (mapcar 'inferior-erlang-format-opt
|
||||
opts)
|
||||
", ")
|
||||
"]"))
|
||||
(concat ", " (inferior-erlang-format-opt opts))))
|
||||
|
||||
(defun inferior-erlang-format-opt (opt)
|
||||
(cond ((stringp opt) (concat "\"" opt "\""))
|
||||
((atom opt) (format "%s" opt))
|
||||
((consp opt) (concat "{" (inferior-erlang-string-join
|
||||
(mapcar 'inferior-erlang-format-opt
|
||||
(list (car opt) (cdr opt)))
|
||||
", ")
|
||||
"}"))
|
||||
(t (error (format "Unexpected opt %s" opt)))))
|
||||
((vectorp opt) (inferior-erlang-tuple (append opt nil)))
|
||||
((atom opt) (format "%s" opt))
|
||||
((consp opt) (if (listp (cdr opt))
|
||||
(inferior-erlang-list opt)
|
||||
(inferior-erlang-tuple (list (car opt) (cdr opt)))))
|
||||
(t (error "Unexpected erlang compile option %s" opt))))
|
||||
|
||||
(defun inferior-erlang-tuple (opts)
|
||||
(concat "{" (mapconcat 'inferior-erlang-format-opt
|
||||
opts
|
||||
", ")
|
||||
"}"))
|
||||
|
||||
(defun inferior-erlang-list (opts)
|
||||
(concat "[" (mapconcat 'inferior-erlang-format-opt
|
||||
opts
|
||||
", ")
|
||||
"]"))
|
||||
|
||||
(defun inferior-erlang-string-join (strs sep)
|
||||
(let ((result (or (car strs) "")))
|
||||
(setq strs (cdr strs))
|
||||
(while strs
|
||||
(setq result (concat result sep (car strs)))
|
||||
(setq strs (cdr strs)))
|
||||
result))
|
||||
|
||||
(defun erlang-local-buffer-file-name ()
|
||||
;; When editing a file remotely via tramp,
|
||||
@ -1 +0,0 @@
|
||||
(define-package "ggtags" "20160617.1840" "emacs frontend to GNU Global source code tagging system" '((emacs "24") (cl-lib "0.5")) :url "https://github.com/leoliu/ggtags" :keywords '("tools" "convenience"))
|
||||
@ -3,7 +3,7 @@
|
||||
;;; Code:
|
||||
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
|
||||
|
||||
;;;### (autoloads nil "ggtags" "ggtags.el" (22387 29370 530154 256000))
|
||||
;;;### (autoloads nil "ggtags" "ggtags.el" (22490 24937 307403 1000))
|
||||
;;; Generated autoloads from ggtags.el
|
||||
|
||||
(autoload 'ggtags-find-project "ggtags" "\
|
||||
1
elpa/ggtags-20160909.813/ggtags-pkg.el
Normal file
1
elpa/ggtags-20160909.813/ggtags-pkg.el
Normal file
@ -0,0 +1 @@
|
||||
(define-package "ggtags" "20160909.813" "emacs frontend to GNU Global source code tagging system" '((emacs "24") (cl-lib "0.5")) :url "https://github.com/leoliu/ggtags" :keywords '("tools" "convenience"))
|
||||
@ -4,7 +4,7 @@
|
||||
|
||||
;; Author: Leo Liu <sdl.web@gmail.com>
|
||||
;; Version: 0.8.12
|
||||
;; Package-Version: 20160617.1840
|
||||
;; Package-Version: 20160909.813
|
||||
;; Keywords: tools, convenience
|
||||
;; Created: 2013-01-29
|
||||
;; URL: https://github.com/leoliu/ggtags
|
||||
@ -466,32 +466,36 @@ Set to `nil' to disable tag highlighting."
|
||||
|
||||
(defun ggtags-make-project (root)
|
||||
(cl-check-type root string)
|
||||
(pcase (nthcdr 5 (file-attributes (expand-file-name "GTAGS" root)))
|
||||
(`(,mtime ,_ ,tag-size . ,_)
|
||||
(let* ((default-directory (file-name-as-directory root))
|
||||
(rtags-size (nth 7 (file-attributes "GRTAGS")))
|
||||
(has-refs
|
||||
(when rtags-size
|
||||
(and (or (> rtags-size (* 32 1024))
|
||||
(with-demoted-errors "ggtags-make-project: %S"
|
||||
(not (equal "" (ggtags-process-string "global" "-crs")))))
|
||||
'has-refs)))
|
||||
;; http://thread.gmane.org/gmane.comp.gnu.global.bugs/1518
|
||||
(has-path-style
|
||||
(and (ggtags-process-succeed-p "global" "--path-style" "shorter" "--help")
|
||||
'has-path-style))
|
||||
;; http://thread.gmane.org/gmane.comp.gnu.global.bugs/1542
|
||||
(has-color (and (ggtags-process-succeed-p "global" "--color" "--help")
|
||||
'has-color)))
|
||||
(puthash default-directory
|
||||
(ggtags-project--make :root default-directory
|
||||
:tag-size tag-size
|
||||
:has-refs has-refs
|
||||
:has-path-style has-path-style
|
||||
:has-color has-color
|
||||
:mtime (float-time mtime)
|
||||
:timestamp (float-time))
|
||||
ggtags-projects)))))
|
||||
(let* ((default-directory (file-name-as-directory root))
|
||||
;; NOTE: use of GTAGSDBPATH is not recommended. -- GLOBAL(1)
|
||||
;; ROOT and DB can be different directories due to GTAGSDBPATH.
|
||||
(dbdir (concat (file-remote-p root)
|
||||
(ggtags-process-string "global" "-p"))))
|
||||
(pcase (nthcdr 5 (file-attributes (expand-file-name "GTAGS" dbdir)))
|
||||
(`(,mtime ,_ ,tag-size . ,_)
|
||||
(let* ((rtags-size (nth 7 (file-attributes (expand-file-name "GRTAGS" dbdir))))
|
||||
(has-refs
|
||||
(when rtags-size
|
||||
(and (or (> rtags-size (* 32 1024))
|
||||
(with-demoted-errors "ggtags-make-project: %S"
|
||||
(not (equal "" (ggtags-process-string "global" "-crs")))))
|
||||
'has-refs)))
|
||||
;; http://thread.gmane.org/gmane.comp.gnu.global.bugs/1518
|
||||
(has-path-style
|
||||
(and (ggtags-process-succeed-p "global" "--path-style" "shorter" "--help")
|
||||
'has-path-style))
|
||||
;; http://thread.gmane.org/gmane.comp.gnu.global.bugs/1542
|
||||
(has-color (and (ggtags-process-succeed-p "global" "--color" "--help")
|
||||
'has-color)))
|
||||
(puthash default-directory
|
||||
(ggtags-project--make :root default-directory
|
||||
:tag-size tag-size
|
||||
:has-refs has-refs
|
||||
:has-path-style has-path-style
|
||||
:has-color has-color
|
||||
:mtime (float-time mtime)
|
||||
:timestamp (float-time))
|
||||
ggtags-projects))))))
|
||||
|
||||
(defun ggtags-project-expired-p (project)
|
||||
(or (< (ggtags-project-timestamp project) 0)
|
||||
@ -1 +0,0 @@
|
||||
(define-package "git-commit" "20160519.950" "Edit Git commit messages" '((emacs "24.4") (dash "20151021.113") (with-editor "20160408.201")) :url "https://github.com/magit/magit" :keywords '("git" "tools" "vc"))
|
||||
@ -3,8 +3,8 @@
|
||||
;;; Code:
|
||||
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
|
||||
|
||||
;;;### (autoloads nil "git-commit" "git-commit.el" (22387 29368 875424
|
||||
;;;;;; 490000))
|
||||
;;;### (autoloads nil "git-commit" "git-commit.el" (22490 24936 815404
|
||||
;;;;;; 393000))
|
||||
;;; Generated autoloads from git-commit.el
|
||||
|
||||
(defvar global-git-commit-mode t "\
|
||||
1
elpa/git-commit-20160821.1338/git-commit-pkg.el
Normal file
1
elpa/git-commit-20160821.1338/git-commit-pkg.el
Normal file
@ -0,0 +1 @@
|
||||
(define-package "git-commit" "20160821.1338" "Edit Git commit messages" '((emacs "24.4") (dash "20160820.501") (with-editor "20160812.1457")) :url "https://github.com/magit/magit" :keywords '("git" "tools" "vc"))
|
||||
@ -11,8 +11,8 @@
|
||||
;; Marius Vollmer <marius.vollmer@gmail.com>
|
||||
;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
|
||||
|
||||
;; Package-Requires: ((emacs "24.4") (dash "20151021.113") (with-editor "20160408.201"))
|
||||
;; Package-Version: 20160519.950
|
||||
;; Package-Requires: ((emacs "24.4") (dash "20160820.501") (with-editor "20160812.1457"))
|
||||
;; Package-Version: 20160821.1338
|
||||
;; Keywords: git tools vc
|
||||
;; Homepage: https://github.com/magit/magit
|
||||
|
||||
@ -3,8 +3,8 @@
|
||||
;;; Code:
|
||||
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
|
||||
|
||||
;;;### (autoloads nil "git-gutter" "git-gutter.el" (22404 60266 753885
|
||||
;;;;;; 560000))
|
||||
;;;### (autoloads nil "git-gutter" "git-gutter.el" (22490 24936 311405
|
||||
;;;;;; 824000))
|
||||
;;; Generated autoloads from git-gutter.el
|
||||
|
||||
(autoload 'git-gutter:linum-setup "git-gutter" "\
|
||||
@ -1 +1 @@
|
||||
(define-package "git-gutter" "20160702.354" "Port of Sublime Text plugin GitGutter" '((cl-lib "0.5") (emacs "24")) :url "https://github.com/syohex/emacs-git-gutter")
|
||||
(define-package "git-gutter" "20160903.852" "Port of Sublime Text plugin GitGutter" '((cl-lib "0.5") (emacs "24")) :url "https://github.com/syohex/emacs-git-gutter")
|
||||
@ -4,8 +4,8 @@
|
||||
|
||||
;; Author: Syohei YOSHIDA <syohex@gmail.com>
|
||||
;; URL: https://github.com/syohex/emacs-git-gutter
|
||||
;; Package-Version: 20160702.354
|
||||
;; Version: 0.89
|
||||
;; Package-Version: 20160903.852
|
||||
;; Version: 0.90
|
||||
;; Package-Requires: ((cl-lib "0.5") (emacs "24"))
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
@ -219,14 +219,14 @@ gutter information of other windows."
|
||||
(zerop (apply #'git-gutter:execute-command cmd nil check-subcmd))
|
||||
(not (string-match-p (regexp-quote (concat "/" repodir "/")) default-directory))))
|
||||
|
||||
(defsubst git-gutter:vcs-check-function (vcs)
|
||||
(defun git-gutter:vcs-check-function (vcs)
|
||||
(cl-case vcs
|
||||
(git (git-gutter:in-git-repository-p))
|
||||
(svn (git-gutter:in-repository-common-p "svn" '("info") ".svn"))
|
||||
(hg (git-gutter:in-repository-common-p "hg" '("root") ".hg"))
|
||||
(bzr (git-gutter:in-repository-common-p "bzr" '("root") ".bzr"))))
|
||||
|
||||
(defsubst git-gutter:in-repository-p ()
|
||||
(defun git-gutter:in-repository-p ()
|
||||
(cl-loop for vcs in git-gutter:handled-backends
|
||||
when (git-gutter:vcs-check-function vcs)
|
||||
return (set (make-local-variable 'git-gutter:vcs-type) vcs)))
|
||||
@ -841,6 +841,13 @@ gutter information of other windows."
|
||||
(interactive "p")
|
||||
(git-gutter:next-hunk (- arg)))
|
||||
|
||||
(defun git-gutter:end-of-hunk ()
|
||||
"Move to end of current diff hunk"
|
||||
(interactive)
|
||||
(git-gutter:awhen (git-gutter:search-here-diffinfo git-gutter:diffinfos)
|
||||
(let ((lines (- (git-gutter-hunk-end-line it) (line-number-at-pos))))
|
||||
(forward-line lines))))
|
||||
|
||||
(defalias 'git-gutter:next-diff 'git-gutter:next-hunk)
|
||||
(make-obsolete 'git-gutter:next-diff 'git-gutter:next-hunk "0.60")
|
||||
(defalias 'git-gutter:previous-diff 'git-gutter:previous-hunk)
|
||||
@ -3,7 +3,8 @@
|
||||
;;; Code:
|
||||
|
||||
|
||||
;;;### (autoloads nil "go-mode" "go-mode.el" (22454 5326 453354 320000))
|
||||
;;;### (autoloads nil "go-mode" "go-mode.el" (22490 24935 827407
|
||||
;;;;;; 200000))
|
||||
;;; Generated autoloads from go-mode.el
|
||||
|
||||
(autoload 'go-mode "go-mode" "\
|
||||
@ -95,7 +96,8 @@ Tries to look for a URL at point.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil nil ("go-mode-pkg.el") (22454 5326 404353 168000))
|
||||
;;;### (autoloads nil nil ("go-mode-pkg.el") (22490 24935 844909
|
||||
;;;;;; 520000))
|
||||
|
||||
;;;***
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
(define-package "go-mode" "20160715.205" "Major mode for the Go programming language" 'nil :url "https://github.com/dominikh/go-mode.el" :keywords
|
||||
(define-package "go-mode" "20160913.944" "Major mode for the Go programming language" 'nil :url "https://github.com/dominikh/go-mode.el" :keywords
|
||||
'("languages" "go"))
|
||||
;; Local Variables:
|
||||
;; no-byte-compile: t
|
||||
@ -1527,25 +1527,25 @@ description at POINT."
|
||||
(error "godef does not reliably work in XEmacs, expect bad results"))
|
||||
(if (not (buffer-file-name (go--coverage-origin-buffer)))
|
||||
(error "Cannot use godef on a buffer without a file name")
|
||||
(let ((outbuf (get-buffer-create "*godef*"))
|
||||
(let ((outbuf (generate-new-buffer "*godef*"))
|
||||
(coding-system-for-read 'utf-8)
|
||||
(coding-system-for-write 'utf-8))
|
||||
(with-current-buffer outbuf
|
||||
(erase-buffer))
|
||||
(call-process-region (point-min)
|
||||
(point-max)
|
||||
godef-command
|
||||
nil
|
||||
outbuf
|
||||
nil
|
||||
"-i"
|
||||
"-t"
|
||||
"-f"
|
||||
(file-truename (buffer-file-name (go--coverage-origin-buffer)))
|
||||
"-o"
|
||||
(number-to-string (go--position-bytes point)))
|
||||
(with-current-buffer outbuf
|
||||
(split-string (buffer-substring-no-properties (point-min) (point-max)) "\n")))))
|
||||
(prog2
|
||||
(call-process-region (point-min)
|
||||
(point-max)
|
||||
godef-command
|
||||
nil
|
||||
outbuf
|
||||
nil
|
||||
"-i"
|
||||
"-t"
|
||||
"-f"
|
||||
(file-truename (buffer-file-name (go--coverage-origin-buffer)))
|
||||
"-o"
|
||||
(number-to-string (go--position-bytes point)))
|
||||
(with-current-buffer outbuf
|
||||
(split-string (buffer-substring-no-properties (point-min) (point-max)) "\n"))
|
||||
(kill-buffer outbuf)))))
|
||||
|
||||
(defun godef--successful-p (output)
|
||||
(not (or (string= "-" output)
|
||||
@ -244,25 +244,23 @@ Support install, remove and purge actions."
|
||||
(ansi-term (getenv "SHELL") "term apt")
|
||||
(setq helm-apt-term-buffer (buffer-name)))
|
||||
(term-line-mode)
|
||||
(let ((command (cl-case action
|
||||
(install "sudo apt-get install ")
|
||||
(reinstall "sudo apt-get install --reinstall ")
|
||||
(uninstall "sudo apt-get remove ")
|
||||
(purge "sudo apt-get purge ")
|
||||
(t (error "Unknown action"))))
|
||||
(beg (point))
|
||||
end
|
||||
(cand-list (mapconcat (lambda (x) (format "'%s'" x))
|
||||
(helm-marked-candidates) " ")))
|
||||
(goto-char (point-max))
|
||||
(insert (concat command cand-list))
|
||||
(setq end (point))
|
||||
(if (y-or-n-p (format "%s package(s)" (symbol-name action)))
|
||||
(progn
|
||||
(let* ((command (cl-case action
|
||||
(install "sudo apt-get install ")
|
||||
(reinstall "sudo apt-get install --reinstall ")
|
||||
(uninstall "sudo apt-get remove ")
|
||||
(purge "sudo apt-get purge ")
|
||||
(t (error "Unknown action"))))
|
||||
(cands (helm-marked-candidates))
|
||||
(cand-list (mapconcat (lambda (x) (format "'%s'" x)) cands " ")))
|
||||
(with-helm-display-marked-candidates "*apt candidates*"
|
||||
cands
|
||||
(when (y-or-n-p (format "%s package(s)" (symbol-name action)))
|
||||
(with-current-buffer helm-apt-term-buffer
|
||||
(goto-char (point-max))
|
||||
(insert (concat command cand-list))
|
||||
(setq helm-external-commands-list nil)
|
||||
(setq helm-apt-installed-packages nil)
|
||||
(term-char-mode) (term-send-input))
|
||||
(delete-region beg end))))
|
||||
(term-char-mode) (term-send-input))))))
|
||||
|
||||
;;;###autoload
|
||||
(defun helm-apt (arg)
|
||||
@ -1,16 +1,15 @@
|
||||
;;; helm-autoloads.el --- automatically extracted autoloads
|
||||
;;
|
||||
;;; Code:
|
||||
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
||||
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
|
||||
|
||||
;;;### (autoloads nil "helm-adaptive" "helm-adaptive.el" (22454 5322
|
||||
;;;;;; 428259 677000))
|
||||
;;;### (autoloads nil "helm-adaptive" "helm-adaptive.el" (22490 24935
|
||||
;;;;;; 275408 774000))
|
||||
;;; Generated autoloads from helm-adaptive.el
|
||||
|
||||
(defvar helm-adaptive-mode nil "\
|
||||
Non-nil if Helm-Adaptive mode is enabled.
|
||||
See the `helm-adaptive-mode' command
|
||||
for a description of this minor mode.
|
||||
See the command `helm-adaptive-mode' for a description of this minor mode.
|
||||
Setting this variable directly does not take effect;
|
||||
either customize it (see the info node `Easy Customization')
|
||||
or call the function `helm-adaptive-mode'.")
|
||||
@ -30,8 +29,8 @@ Useful when you have a old or corrupted `helm-adaptive-history-file'.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-apt" "helm-apt.el" (22454 5322 190254
|
||||
;;;;;; 80000))
|
||||
;;;### (autoloads nil "helm-apt" "helm-apt.el" (22490 24935 247408
|
||||
;;;;;; 853000))
|
||||
;;; Generated autoloads from helm-apt.el
|
||||
|
||||
(autoload 'helm-apt "helm-apt" "\
|
||||
@ -42,8 +41,8 @@ With a prefix arg reload cache.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-bookmark" "helm-bookmark.el" (22454 5322
|
||||
;;;;;; 866269 976000))
|
||||
;;;### (autoloads nil "helm-bookmark" "helm-bookmark.el" (22490 24935
|
||||
;;;;;; 323408 637000))
|
||||
;;; Generated autoloads from helm-bookmark.el
|
||||
|
||||
(autoload 'helm-bookmarks "helm-bookmark" "\
|
||||
@ -60,8 +59,8 @@ only if external library addressbook-bookmark.el is available.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-buffers" "helm-buffers.el" (22454 5322
|
||||
;;;;;; 122252 481000))
|
||||
;;;### (autoloads nil "helm-buffers" "helm-buffers.el" (22490 24935
|
||||
;;;;;; 227408 911000))
|
||||
;;; Generated autoloads from helm-buffers.el
|
||||
|
||||
(autoload 'helm-buffers-list "helm-buffers" "\
|
||||
@ -76,8 +75,8 @@ Preconfigured `helm' lightweight version (buffer -> recentf).
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-color" "helm-color.el" (22454 5322 731266
|
||||
;;;;;; 803000))
|
||||
;;;### (autoloads nil "helm-color" "helm-color.el" (22490 24935 307408
|
||||
;;;;;; 682000))
|
||||
;;; Generated autoloads from helm-color.el
|
||||
|
||||
(autoload 'helm-colors "helm-color" "\
|
||||
@ -87,8 +86,8 @@ Preconfigured `helm' for color.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-command" "helm-command.el" (22454 5321
|
||||
;;;;;; 795244 793000))
|
||||
;;;### (autoloads nil "helm-command" "helm-command.el" (22490 24935
|
||||
;;;;;; 183409 35000))
|
||||
;;; Generated autoloads from helm-command.el
|
||||
|
||||
(autoload 'helm-M-x "helm-command" "\
|
||||
@ -106,8 +105,8 @@ You can get help on each command by persistent action.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-config" "helm-config.el" (22454 5322
|
||||
;;;;;; 821268 918000))
|
||||
;;;### (autoloads nil "helm-config" "helm-config.el" (22490 24935
|
||||
;;;;;; 315408 659000))
|
||||
;;; Generated autoloads from helm-config.el
|
||||
|
||||
(autoload 'helm-configuration "helm-config" "\
|
||||
@ -117,8 +116,8 @@ Customize `helm'.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-dabbrev" "helm-dabbrev.el" (22454 5322
|
||||
;;;;;; 257255 656000))
|
||||
;;;### (autoloads nil "helm-dabbrev" "helm-dabbrev.el" (22490 24935
|
||||
;;;;;; 255408 831000))
|
||||
;;; Generated autoloads from helm-dabbrev.el
|
||||
|
||||
(autoload 'helm-dabbrev "helm-dabbrev" "\
|
||||
@ -128,8 +127,8 @@ Preconfigured helm for dynamic abbreviations.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-elisp" "helm-elisp.el" (22454 5322 777267
|
||||
;;;;;; 884000))
|
||||
;;;### (autoloads nil "helm-elisp" "helm-elisp.el" (22490 24935 311408
|
||||
;;;;;; 670000))
|
||||
;;; Generated autoloads from helm-elisp.el
|
||||
|
||||
(autoload 'helm-lisp-completion-at-point "helm-elisp" "\
|
||||
@ -183,7 +182,7 @@ Preconfigured helm for complex command history.
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-elisp-package" "helm-elisp-package.el"
|
||||
;;;;;; (22454 5321 829245 592000))
|
||||
;;;;;; (22490 24935 191409 13000))
|
||||
;;; Generated autoloads from helm-elisp-package.el
|
||||
|
||||
(autoload 'helm-list-elisp-packages "helm-elisp-package" "\
|
||||
@ -199,8 +198,8 @@ Same as `helm-list-elisp-packages' but don't fetch packages on remote.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-elscreen" "helm-elscreen.el" (22454 5321
|
||||
;;;;;; 728243 218000))
|
||||
;;;### (autoloads nil "helm-elscreen" "helm-elscreen.el" (22490 24935
|
||||
;;;;;; 171409 70000))
|
||||
;;; Generated autoloads from helm-elscreen.el
|
||||
|
||||
(autoload 'helm-elscreen "helm-elscreen" "\
|
||||
@ -215,8 +214,8 @@ Preconfigured helm to list elscreen in history order.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-eshell" "helm-eshell.el" (22454 5321
|
||||
;;;;;; 942248 250000))
|
||||
;;;### (autoloads nil "helm-eshell" "helm-eshell.el" (22490 24935
|
||||
;;;;;; 203408 979000))
|
||||
;;; Generated autoloads from helm-eshell.el
|
||||
|
||||
(autoload 'helm-esh-pcomplete "helm-eshell" "\
|
||||
@ -231,8 +230,8 @@ Preconfigured helm for eshell history.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-eval" "helm-eval.el" (22454 5322 518261
|
||||
;;;;;; 793000))
|
||||
;;;### (autoloads nil "helm-eval" "helm-eval.el" (22490 24935 283408
|
||||
;;;;;; 750000))
|
||||
;;; Generated autoloads from helm-eval.el
|
||||
|
||||
(autoload 'helm-eval-expression "helm-eval" "\
|
||||
@ -252,8 +251,8 @@ Preconfigured helm for `helm-source-calculation-result'.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-external" "helm-external.el" (22454 5321
|
||||
;;;;;; 638241 101000))
|
||||
;;;### (autoloads nil "helm-external" "helm-external.el" (22490 24935
|
||||
;;;;;; 163409 93000))
|
||||
;;; Generated autoloads from helm-external.el
|
||||
|
||||
(autoload 'helm-run-external-command "helm-external" "\
|
||||
@ -266,8 +265,8 @@ You can set your own list of commands with
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-files" "helm-files.el" (22454 5322 291256
|
||||
;;;;;; 455000))
|
||||
;;;### (autoloads nil "helm-files" "helm-files.el" (22490 24935 259408
|
||||
;;;;;; 818000))
|
||||
;;; Generated autoloads from helm-files.el
|
||||
|
||||
(autoload 'helm-projects-history "helm-files" "\
|
||||
@ -345,8 +344,8 @@ Preconfigured `helm' for `recentf'.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-font" "helm-font.el" (22454 5321 987249
|
||||
;;;;;; 307000))
|
||||
;;;### (autoloads nil "helm-font" "helm-font.el" (22490 24935 207408
|
||||
;;;;;; 967000))
|
||||
;;; Generated autoloads from helm-font.el
|
||||
|
||||
(autoload 'helm-select-xfont "helm-font" "\
|
||||
@ -361,8 +360,8 @@ Preconfigured helm for `ucs-names' math symbols.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-grep" "helm-grep.el" (22454 5322 912271
|
||||
;;;;;; 58000))
|
||||
;;;### (autoloads nil "helm-grep" "helm-grep.el" (22490 24935 327408
|
||||
;;;;;; 625000))
|
||||
;;; Generated autoloads from helm-grep.el
|
||||
|
||||
(autoload 'helm-goto-precedent-file "helm-grep" "\
|
||||
@ -389,8 +388,8 @@ With a prefix arg ARG git-grep the whole repository.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-help" "helm-help.el" (22454 5321 593240
|
||||
;;;;;; 43000))
|
||||
;;;### (autoloads nil "helm-help" "helm-help.el" (22490 24935 159409
|
||||
;;;;;; 104000))
|
||||
;;; Generated autoloads from helm-help.el
|
||||
|
||||
(autoload 'helm-documentation "helm-help" "\
|
||||
@ -410,8 +409,8 @@ String displayed in mode-line in `helm-source-find-files'.")
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-id-utils" "helm-id-utils.el" (22454 5322
|
||||
;;;;;; 156253 281000))
|
||||
;;;### (autoloads nil "helm-id-utils" "helm-id-utils.el" (22490 24935
|
||||
;;;;;; 239408 876000))
|
||||
;;; Generated autoloads from helm-id-utils.el
|
||||
|
||||
(autoload 'helm-gid "helm-id-utils" "\
|
||||
@ -425,8 +424,8 @@ See <https://www.gnu.org/software/idutils/>.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-imenu" "helm-imenu.el" (22454 5322 54250
|
||||
;;;;;; 883000))
|
||||
;;;### (autoloads nil "helm-imenu" "helm-imenu.el" (22490 24935 219408
|
||||
;;;;;; 933000))
|
||||
;;; Generated autoloads from helm-imenu.el
|
||||
|
||||
(autoload 'helm-imenu "helm-imenu" "\
|
||||
@ -443,8 +442,8 @@ or it have an association in `helm-imenu-all-buffer-assoc'.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-info" "helm-info.el" (22454 5322 20250
|
||||
;;;;;; 83000))
|
||||
;;;### (autoloads nil "helm-info" "helm-info.el" (22490 24935 215408
|
||||
;;;;;; 945000))
|
||||
;;; Generated autoloads from helm-info.el
|
||||
|
||||
(autoload 'helm-info "helm-info" "\
|
||||
@ -460,8 +459,8 @@ With a prefix-arg insert symbol at point.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-locate" "helm-locate.el" (22454 5321
|
||||
;;;;;; 683242 159000))
|
||||
;;;### (autoloads nil "helm-locate" "helm-locate.el" (22490 24935
|
||||
;;;;;; 167409 82000))
|
||||
;;; Generated autoloads from helm-locate.el
|
||||
|
||||
(autoload 'helm-projects-find-files "helm-locate" "\
|
||||
@ -488,8 +487,8 @@ Where db_path is a filename matched by
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-man" "helm-man.el" (22454 5322 563262
|
||||
;;;;;; 851000))
|
||||
;;;### (autoloads nil "helm-man" "helm-man.el" (22490 24935 291408
|
||||
;;;;;; 728000))
|
||||
;;; Generated autoloads from helm-man.el
|
||||
|
||||
(autoload 'helm-man-woman "helm-man" "\
|
||||
@ -500,8 +499,8 @@ With a prefix arg reinitialize the cache.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-misc" "helm-misc.el" (22454 5322 383258
|
||||
;;;;;; 619000))
|
||||
;;;### (autoloads nil "helm-misc" "helm-misc.el" (22490 24935 271408
|
||||
;;;;;; 785000))
|
||||
;;; Generated autoloads from helm-misc.el
|
||||
|
||||
(autoload 'helm-browse-menubar "helm-misc" "\
|
||||
@ -542,8 +541,8 @@ Preconfigured `helm' that provide completion of `comint' history.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-mode" "helm-mode.el" (22454 5321 482237
|
||||
;;;;;; 433000))
|
||||
;;;### (autoloads nil "helm-mode" "helm-mode.el" (22490 24935 143409
|
||||
;;;;;; 149000))
|
||||
;;; Generated autoloads from helm-mode.el
|
||||
|
||||
(autoload 'helm-comp-read "helm-mode" "\
|
||||
@ -640,7 +639,7 @@ in `helm-current-prefix-arg', otherwise if prefix args were given before
|
||||
That's mean you can pass prefix args before or after calling a command
|
||||
that use `helm-comp-read' See `helm-M-x' for example.
|
||||
|
||||
\(fn PROMPT COLLECTION &key TEST INITIAL-INPUT DEFAULT PRESELECT (BUFFER \"*Helm Completions*\") MUST-MATCH FUZZY REVERSE-HISTORY (REQUIRES-PATTERN 0) HISTORY INPUT-HISTORY (CASE-FOLD helm-comp-read-case-fold-search) (DEL-INPUT t) (PERSISTENT-ACTION nil) (PERSISTENT-HELP \"DoNothing\") (MODE-LINE helm-comp-read-mode-line) HELP-MESSAGE (KEYMAP helm-comp-read-map) (NAME \"Helm Completions\") CANDIDATES-IN-BUFFER MATCH-PART EXEC-WHEN-ONLY-ONE QUIT-WHEN-NO-CAND (VOLATILE t) SORT (FC-TRANSFORMER \\='helm-cr-default-transformer) HIST-FC-TRANSFORMER MARKED-CANDIDATES NOMARK (ALISTP t) (CANDIDATE-NUMBER-LIMIT helm-candidate-number-limit))" nil nil)
|
||||
\(fn PROMPT COLLECTION &key TEST INITIAL-INPUT DEFAULT PRESELECT (buffer \"*Helm Completions*\") MUST-MATCH FUZZY REVERSE-HISTORY (requires-pattern 0) HISTORY INPUT-HISTORY (case-fold helm-comp-read-case-fold-search) (del-input t) (persistent-action nil) (persistent-help \"DoNothing\") (mode-line helm-comp-read-mode-line) HELP-MESSAGE (keymap helm-comp-read-map) (name \"Helm Completions\") CANDIDATES-IN-BUFFER MATCH-PART EXEC-WHEN-ONLY-ONE QUIT-WHEN-NO-CAND (volatile t) SORT (fc-transformer (quote helm-cr-default-transformer)) HIST-FC-TRANSFORMER MARKED-CANDIDATES NOMARK (alistp t) (candidate-number-limit helm-candidate-number-limit))" nil nil)
|
||||
|
||||
(autoload 'helm-read-file-name "helm-mode" "\
|
||||
Read a file name with helm completion.
|
||||
@ -678,12 +677,11 @@ Keys description:
|
||||
|
||||
- MODE-LINE: A mode line message, default is `helm-read-file-name-mode-line-string'.
|
||||
|
||||
\(fn PROMPT &key (NAME \"Read File Name\") (INITIAL-INPUT default-directory) (BUFFER \"*Helm file completions*\") TEST (CASE-FOLD helm-file-name-case-fold-search) PRESELECT HISTORY MUST-MATCH DEFAULT MARKED-CANDIDATES (CANDIDATE-NUMBER-LIMIT helm-ff-candidate-number-limit) NOMARK (ALISTP t) (PERSISTENT-ACTION \\='helm-find-files-persistent-action) (PERSISTENT-HELP \"Hit1 Expand Candidate, Hit2 or (C-u) Find file\") (MODE-LINE helm-read-file-name-mode-line-string))" nil nil)
|
||||
\(fn PROMPT &key (name \"Read File Name\") (initial-input default-directory) (buffer \"*Helm file completions*\") TEST (case-fold helm-file-name-case-fold-search) PRESELECT HISTORY MUST-MATCH DEFAULT MARKED-CANDIDATES (candidate-number-limit helm-ff-candidate-number-limit) NOMARK (alistp t) (persistent-action (quote helm-find-files-persistent-action)) (persistent-help \"Hit1 Expand Candidate, Hit2 or (C-u) Find file\") (mode-line helm-read-file-name-mode-line-string))" nil nil)
|
||||
|
||||
(defvar helm-mode nil "\
|
||||
Non-nil if Helm mode is enabled.
|
||||
See the `helm-mode' command
|
||||
for a description of this minor mode.
|
||||
See the command `helm-mode' for a description of this minor mode.
|
||||
Setting this variable directly does not take effect;
|
||||
either customize it (see the info node `Easy Customization')
|
||||
or call the function `helm-mode'.")
|
||||
@ -714,8 +712,8 @@ Note: This mode is incompatible with Emacs23.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-net" "helm-net.el" (22454 5322 686265
|
||||
;;;;;; 744000))
|
||||
;;;### (autoloads nil "helm-net" "helm-net.el" (22490 24935 303408
|
||||
;;;;;; 694000))
|
||||
;;; Generated autoloads from helm-net.el
|
||||
|
||||
(autoload 'helm-surfraw "helm-net" "\
|
||||
@ -735,8 +733,8 @@ Preconfigured `helm' for Wikipedia lookup with Wikipedia suggest.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-org" "helm-org.el" (22454 5322 957272
|
||||
;;;;;; 116000))
|
||||
;;;### (autoloads nil "helm-org" "helm-org.el" (22490 24935 331408
|
||||
;;;;;; 613000))
|
||||
;;; Generated autoloads from helm-org.el
|
||||
|
||||
(autoload 'helm-org-agenda-files-headings "helm-org" "\
|
||||
@ -767,8 +765,8 @@ Preconfigured helm for org templates.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-regexp" "helm-regexp.el" (22454 5322
|
||||
;;;;;; 642264 709000))
|
||||
;;;### (autoloads nil "helm-regexp" "helm-regexp.el" (22490 24935
|
||||
;;;;;; 299408 706000))
|
||||
;;; Generated autoloads from helm-regexp.el
|
||||
|
||||
(autoload 'helm-moccur-mode "helm-regexp" "\
|
||||
@ -807,14 +805,13 @@ The prefix arg can be set before calling
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-ring" "helm-ring.el" (22454 5321 548238
|
||||
;;;;;; 985000))
|
||||
;;;### (autoloads nil "helm-ring" "helm-ring.el" (22490 24935 151409
|
||||
;;;;;; 127000))
|
||||
;;; Generated autoloads from helm-ring.el
|
||||
|
||||
(defvar helm-push-mark-mode nil "\
|
||||
Non-nil if Helm-Push-Mark mode is enabled.
|
||||
See the `helm-push-mark-mode' command
|
||||
for a description of this minor mode.
|
||||
See the command `helm-push-mark-mode' for a description of this minor mode.
|
||||
Setting this variable directly does not take effect;
|
||||
either customize it (see the info node `Easy Customization')
|
||||
or call the function `helm-push-mark-mode'.")
|
||||
@ -866,8 +863,8 @@ This command is useful when used with persistent action.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-semantic" "helm-semantic.el" (22454 5322
|
||||
;;;;;; 88251 682000))
|
||||
;;;### (autoloads nil "helm-semantic" "helm-semantic.el" (22490 24935
|
||||
;;;;;; 223408 922000))
|
||||
;;; Generated autoloads from helm-semantic.el
|
||||
|
||||
(autoload 'helm-semantic "helm-semantic" "\
|
||||
@ -889,14 +886,13 @@ Fill in the symbol at point by default.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-sys" "helm-sys.el" (22454 5322 223254
|
||||
;;;;;; 856000))
|
||||
;;;### (autoloads nil "helm-sys" "helm-sys.el" (22490 24935 251408
|
||||
;;;;;; 842000))
|
||||
;;; Generated autoloads from helm-sys.el
|
||||
|
||||
(defvar helm-top-poll-mode nil "\
|
||||
Non-nil if Helm-Top-Poll mode is enabled.
|
||||
See the `helm-top-poll-mode' command
|
||||
for a description of this minor mode.
|
||||
See the command `helm-top-poll-mode' for a description of this minor mode.
|
||||
Setting this variable directly does not take effect;
|
||||
either customize it (see the info node `Easy Customization')
|
||||
or call the function `helm-top-poll-mode'.")
|
||||
@ -925,8 +921,8 @@ Preconfigured helm for xrandr.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-tags" "helm-tags.el" (22454 5321 897247
|
||||
;;;;;; 191000))
|
||||
;;;### (autoloads nil "helm-tags" "helm-tags.el" (22490 24935 199408
|
||||
;;;;;; 990000))
|
||||
;;; Generated autoloads from helm-tags.el
|
||||
|
||||
(autoload 'helm-etags-select "helm-tags" "\
|
||||
@ -945,14 +941,13 @@ This function aggregates three sources of tag files:
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "helm-utils" "helm-utils.el" (22454 5321 761243
|
||||
;;;;;; 994000))
|
||||
;;;### (autoloads nil "helm-utils" "helm-utils.el" (22490 24935 179409
|
||||
;;;;;; 47000))
|
||||
;;; Generated autoloads from helm-utils.el
|
||||
|
||||
(defvar helm-popup-tip-mode nil "\
|
||||
Non-nil if Helm-Popup-Tip mode is enabled.
|
||||
See the `helm-popup-tip-mode' command
|
||||
for a description of this minor mode.
|
||||
See the command `helm-popup-tip-mode' for a description of this minor mode.
|
||||
Setting this variable directly does not take effect;
|
||||
either customize it (see the info node `Easy Customization')
|
||||
or call the function `helm-popup-tip-mode'.")
|
||||
@ -966,8 +961,8 @@ Show help-echo informations in a popup tip at end of line.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil nil ("helm-easymenu.el" "helm-multi-match.el"
|
||||
;;;;;; "helm-pkg.el" "helm-types.el") (22454 5323 1273 151000))
|
||||
;;;### (autoloads nil nil ("helm-easymenu.el" "helm-pkg.el" "helm-types.el")
|
||||
;;;;;; (22490 24935 351383 40000))
|
||||
|
||||
;;;***
|
||||
|
||||
@ -19,6 +19,7 @@
|
||||
(require 'cl-lib)
|
||||
(require 'bookmark)
|
||||
(require 'helm)
|
||||
(require 'helm-lib)
|
||||
(require 'helm-help)
|
||||
(require 'helm-types)
|
||||
(require 'helm-utils)
|
||||
@ -477,9 +478,10 @@ than `w3m-browse-url' use it."
|
||||
(define-key map (kbd "C-x C-d") 'helm-bookmark-run-browse-project)
|
||||
map))
|
||||
|
||||
(defclass helm-bookmark-overwrite-inheritor (helm-source) ())
|
||||
(defclass helm-bookmark-override-inheritor (helm-source) ())
|
||||
|
||||
(defmethod helm--setup-source ((source helm-bookmark-overwrite-inheritor))
|
||||
(defmethod helm--setup-source ((source helm-bookmark-override-inheritor))
|
||||
;; Ensure `helm-source-in-buffer' method is called.
|
||||
(call-next-method)
|
||||
(setf (slot-value source 'action)
|
||||
(helm-append-at-nth
|
||||
@ -489,7 +491,7 @@ than `w3m-browse-url' use it."
|
||||
(setf (slot-value source 'keymap) helm-bookmark-find-files-map))
|
||||
|
||||
(defclass helm-bookmark-find-files-class (helm-source-filtered-bookmarks
|
||||
helm-bookmark-overwrite-inheritor)
|
||||
helm-bookmark-override-inheritor)
|
||||
())
|
||||
|
||||
(defvar helm-source-bookmark-helm-find-files
|
||||
@ -435,8 +435,9 @@ Should be called after others transformers i.e (boring buffers)."
|
||||
|
||||
(defun helm-buffers-mark-similar-buffers-1 ()
|
||||
(with-helm-window
|
||||
(let ((type (get-text-property
|
||||
0 'type (helm-get-selection nil 'withprop))))
|
||||
(let* ((src (helm-get-current-source))
|
||||
(type (get-text-property
|
||||
0 'type (helm-get-selection nil 'withprop src))))
|
||||
(save-excursion
|
||||
(goto-char (helm-get-previous-header-pos))
|
||||
(helm-next-line)
|
||||
@ -449,13 +450,13 @@ Should be called after others transformers i.e (boring buffers)."
|
||||
(maxpoint (or end (point-max))))
|
||||
(while (< (point) maxpoint)
|
||||
(helm-mark-current-line)
|
||||
(let ((cand (helm-get-selection nil 'withprop)))
|
||||
(let ((cand (helm-get-selection nil 'withprop src)))
|
||||
(when (and (not (helm-this-visible-mark))
|
||||
(eq (get-text-property 0 'type cand) type))
|
||||
(helm-make-visible-mark)))
|
||||
(forward-line 1) (end-of-line))))
|
||||
(helm-mark-current-line)
|
||||
(helm-display-mode-line (helm-get-current-source) t)
|
||||
(helm-display-mode-line src t)
|
||||
(message "%s candidates marked" (length helm-marked-candidates)))))
|
||||
|
||||
(defun helm-buffers-mark-similar-buffers ()
|
||||
@ -593,11 +594,10 @@ If REGEXP-FLAG is given use `query-replace-regexp'."
|
||||
|
||||
(defun helm-buffer-toggle-diff (candidate)
|
||||
"Toggle diff buffer CANDIDATE with it's file."
|
||||
(let (helm-persistent-action-use-special-display)
|
||||
(helm-aif (get-buffer-window "*Diff*")
|
||||
(progn (kill-buffer "*Diff*")
|
||||
(set-window-buffer it helm-current-buffer))
|
||||
(diff-buffer-with-file (get-buffer candidate)))))
|
||||
(helm-aif (get-buffer-window "*Diff*")
|
||||
(progn (kill-buffer "*Diff*")
|
||||
(set-window-buffer it helm-current-buffer))
|
||||
(diff-buffer-with-file (get-buffer candidate))))
|
||||
|
||||
(defun helm-buffer-diff-persistent ()
|
||||
"Toggle diff buffer without quitting helm."
|
||||
@ -783,7 +783,8 @@ If REGEXP-FLAG is given use `query-replace-regexp'."
|
||||
|
||||
(defun helm-buffers-list-persistent-action (candidate)
|
||||
(let ((current (window-buffer helm-persistent-action-display-window)))
|
||||
(if (or (eql current (get-buffer helm-current-buffer))
|
||||
(if (or (helm-follow-mode-p)
|
||||
(eql current (get-buffer helm-current-buffer))
|
||||
(not (eql current (get-buffer candidate))))
|
||||
(switch-to-buffer candidate)
|
||||
(switch-to-buffer helm-current-buffer))))
|
||||
@ -144,7 +144,6 @@
|
||||
("(\\<\\(with-helm-buffer\\)\\>" 1 font-lock-keyword-face)
|
||||
("(\\<\\(with-helm-show-completion\\)\\>" 1 font-lock-keyword-face)
|
||||
("(\\<\\(with-helm-default-directory\\)\\>" 1 font-lock-keyword-face)
|
||||
("(\\<\\(with-helm-display-same-window\\)\\>" 1 font-lock-keyword-face)
|
||||
("(\\<\\(with-helm-restore-variables\\)\\>" 1 font-lock-keyword-face)
|
||||
("(\\<\\(helm-multi-key-defun\\)\\>" 1 font-lock-keyword-face)
|
||||
("(\\<\\(helm-while-no-input\\)\\>" 1 font-lock-keyword-face)
|
||||
@ -71,7 +71,7 @@
|
||||
(setq helm-el-package--upgrades (helm-el-package-menu--find-upgrades))
|
||||
(if helm--force-updating-p
|
||||
(if helm-el-package--upgrades
|
||||
(message "%d package(s) can be upgraded, Refreshing packages list done"
|
||||
(message "Refreshing packages list done, [%d] package(s) to upgrade"
|
||||
(length helm-el-package--upgrades))
|
||||
(message "Refreshing packages list done, no upgrades available"))
|
||||
(setq helm-el-package--show-only (if helm-el-package--upgrades
|
||||
@ -130,7 +130,7 @@
|
||||
(helm-exit-and-execute-action 'helm-el-package-install)))
|
||||
(put 'helm-el-run-package-install 'helm-only t)
|
||||
|
||||
(defun helm-el-package-uninstall-1 (pkg-list)
|
||||
(defun helm-el-package-uninstall-1 (pkg-list &optional force)
|
||||
(cl-loop with mkd = pkg-list
|
||||
for p in mkd
|
||||
for id = (get-text-property 0 'tabulated-list-id p)
|
||||
@ -139,7 +139,10 @@
|
||||
(with-no-warnings
|
||||
(if (fboundp 'package-desc-full-name)
|
||||
;; emacs 24.4
|
||||
(package-delete id)
|
||||
(condition-case nil
|
||||
(package-delete id force)
|
||||
(wrong-number-of-arguments
|
||||
(package-delete id)))
|
||||
;; emacs 24.3
|
||||
(package-delete (symbol-name (car id))
|
||||
(package-version-join (cdr id)))))
|
||||
@ -171,7 +174,7 @@
|
||||
"No package deleted")))
|
||||
|
||||
(defun helm-el-package-uninstall (_candidate)
|
||||
(helm-el-package-uninstall-1 (helm-marked-candidates)))
|
||||
(helm-el-package-uninstall-1 (helm-marked-candidates) helm-current-prefix-arg))
|
||||
|
||||
(defun helm-el-run-package-uninstall ()
|
||||
(interactive)
|
||||
@ -94,6 +94,13 @@ fuzzy completion is not available in `completion-at-point'."
|
||||
:group 'helm-elisp
|
||||
:type '(repeat (choice symbol)))
|
||||
|
||||
(defcustom helm-apropos-defaut-info-lookup-sources '(helm-source-info-elisp
|
||||
helm-source-info-cl
|
||||
helm-source-info-eieio)
|
||||
"A list of sources to look into when searching info page of a symbol."
|
||||
:group 'helm-elisp
|
||||
:type '(repeat (choice symbol)))
|
||||
|
||||
|
||||
;;; Faces
|
||||
;;
|
||||
@ -309,12 +316,12 @@ Return a cons \(beg . end\)."
|
||||
:persistent-help (helm-lisp-completion-persistent-help)
|
||||
:filtered-candidate-transformer
|
||||
'helm-lisp-completion-transformer
|
||||
:action `(lambda (candidate)
|
||||
(with-helm-current-buffer
|
||||
(run-with-timer
|
||||
0.01 nil
|
||||
'helm-insert-completion-at-point
|
||||
,beg ,end candidate))))
|
||||
:action (lambda (candidate)
|
||||
(with-helm-current-buffer
|
||||
(run-with-timer
|
||||
0.01 nil
|
||||
'helm-insert-completion-at-point
|
||||
beg end candidate))))
|
||||
:input (if helm-lisp-fuzzy-completion
|
||||
target (concat target " "))
|
||||
:resume 'noresume
|
||||
@ -495,9 +502,9 @@ Filename completion happen if string start after or between a double quote."
|
||||
|
||||
(defun helm-def-source--emacs-variables (&optional default)
|
||||
(helm-build-in-buffer-source "Variables"
|
||||
:init `(lambda ()
|
||||
(helm-apropos-init
|
||||
(lambda (x) (and (boundp x) (not (keywordp x)))) ,default))
|
||||
:init (lambda ()
|
||||
(helm-apropos-init
|
||||
(lambda (x) (and (boundp x) (not (keywordp x)))) default))
|
||||
:fuzzy-match helm-apropos-fuzzy-match
|
||||
:filtered-candidate-transformer (and (null helm-apropos-fuzzy-match)
|
||||
'helm-apropos-default-sort-fn)
|
||||
@ -552,8 +559,8 @@ Filename completion happen if string start after or between a double quote."
|
||||
|
||||
(defun helm-def-source--emacs-commands (&optional default)
|
||||
(helm-build-in-buffer-source "Commands"
|
||||
:init `(lambda ()
|
||||
(helm-apropos-init 'commandp ,default))
|
||||
:init (lambda ()
|
||||
(helm-apropos-init 'commandp default))
|
||||
:fuzzy-match helm-apropos-fuzzy-match
|
||||
:filtered-candidate-transformer (and (null helm-apropos-fuzzy-match)
|
||||
'helm-apropos-default-sort-fn)
|
||||
@ -568,13 +575,13 @@ Filename completion happen if string start after or between a double quote."
|
||||
|
||||
(defun helm-def-source--emacs-functions (&optional default)
|
||||
(helm-build-in-buffer-source "Functions"
|
||||
:init `(lambda ()
|
||||
(helm-apropos-init (lambda (x)
|
||||
(and (fboundp x)
|
||||
(not (commandp x))
|
||||
(not (generic-p x))
|
||||
(not (class-p x))))
|
||||
,default))
|
||||
:init (lambda ()
|
||||
(helm-apropos-init (lambda (x)
|
||||
(and (fboundp x)
|
||||
(not (commandp x))
|
||||
(not (generic-p x))
|
||||
(not (class-p x))))
|
||||
default))
|
||||
:fuzzy-match helm-apropos-fuzzy-match
|
||||
:filtered-candidate-transformer (and (null helm-apropos-fuzzy-match)
|
||||
'helm-apropos-default-sort-fn)
|
||||
@ -589,10 +596,10 @@ Filename completion happen if string start after or between a double quote."
|
||||
|
||||
(defun helm-def-source--eieio-classes (&optional default)
|
||||
(helm-build-in-buffer-source "Classes"
|
||||
:init `(lambda ()
|
||||
(helm-apropos-init (lambda (x)
|
||||
(class-p x))
|
||||
,default))
|
||||
:init (lambda ()
|
||||
(helm-apropos-init (lambda (x)
|
||||
(class-p x))
|
||||
default))
|
||||
:fuzzy-match helm-apropos-fuzzy-match
|
||||
:filtered-candidate-transformer (and (null helm-apropos-fuzzy-match)
|
||||
'helm-apropos-default-sort-fn)
|
||||
@ -607,10 +614,10 @@ Filename completion happen if string start after or between a double quote."
|
||||
|
||||
(defun helm-def-source--eieio-generic (&optional default)
|
||||
(helm-build-in-buffer-source "Generic functions"
|
||||
:init `(lambda ()
|
||||
(helm-apropos-init (lambda (x)
|
||||
(generic-p x))
|
||||
,default))
|
||||
:init (lambda ()
|
||||
(helm-apropos-init (lambda (x)
|
||||
(generic-p x))
|
||||
default))
|
||||
:fuzzy-match helm-apropos-fuzzy-match
|
||||
:filtered-candidate-transformer (and (null helm-apropos-fuzzy-match)
|
||||
'helm-apropos-default-sort-fn)
|
||||
@ -623,36 +630,67 @@ Filename completion happen if string start after or between a double quote."
|
||||
("Find function" . helm-find-function)
|
||||
("Info lookup" . helm-info-lookup-symbol))))
|
||||
|
||||
(defun helm-info-lookup-fallback-source (candidate)
|
||||
(let ((sym (helm-symbolify candidate))
|
||||
src-name fn)
|
||||
(cond ((class-p sym)
|
||||
(setq fn #'helm-describe-function
|
||||
src-name "Describe class"))
|
||||
((generic-p sym)
|
||||
(setq fn #'helm-describe-function
|
||||
src-name "Describe generic function"))
|
||||
((fboundp sym)
|
||||
(setq fn #'helm-describe-function
|
||||
src-name "Describe function"))
|
||||
((facep sym)
|
||||
(setq fn #'helm-describe-face
|
||||
src-name "Describe face"))
|
||||
(t
|
||||
(setq fn #'helm-describe-variable
|
||||
src-name "Describe variable")))
|
||||
(helm-build-sync-source src-name
|
||||
:candidates (list candidate)
|
||||
:persistent-action (lambda (candidate)
|
||||
(helm-elisp--persistent-help
|
||||
candidate fn))
|
||||
:persistent-help src-name
|
||||
:nomark t
|
||||
:action fn)))
|
||||
|
||||
(defun helm-info-lookup-symbol-1 (c)
|
||||
(let ((helm-execute-action-at-once-if-one t)
|
||||
(helm-quit-if-no-candidate
|
||||
`(lambda ()
|
||||
(message "`%s' Not Documented as a symbol" ,c))))
|
||||
(helm :sources '(helm-source-info-elisp
|
||||
helm-source-info-cl
|
||||
helm-source-info-eieio)
|
||||
(let ((helm-execute-action-at-once-if-one 'current-source))
|
||||
(helm :sources (append helm-apropos-defaut-info-lookup-sources
|
||||
(list (helm-info-lookup-fallback-source c)))
|
||||
:resume 'noresume
|
||||
:buffer "*helm lookup*"
|
||||
:input c)))
|
||||
|
||||
(defun helm-info-lookup-symbol (candidate)
|
||||
(run-with-timer 0.01 nil #'helm-info-lookup-symbol-1 candidate))
|
||||
;; Running an idle-timer allow not catching RET
|
||||
;; when exiting with the fallback source.
|
||||
(run-with-idle-timer 0.01 nil #'helm-info-lookup-symbol-1 candidate))
|
||||
|
||||
(defun helm-elisp--persistent-help (candidate fun &optional name)
|
||||
(let ((hbuf (get-buffer (help-buffer))))
|
||||
(if (and (helm-attr 'help-running-p)
|
||||
(string= candidate (helm-attr 'help-current-symbol))
|
||||
(null helm-persistent-action-use-special-display))
|
||||
(progn
|
||||
;; When started from a help buffer,
|
||||
;; Don't kill this buffer as it is helm-current-buffer.
|
||||
(unless (equal hbuf helm-current-buffer)
|
||||
(kill-buffer hbuf)
|
||||
(set-window-buffer (get-buffer-window hbuf)
|
||||
helm-current-buffer))
|
||||
(helm-attrset 'help-running-p nil))
|
||||
(if name (funcall fun candidate name) (funcall fun candidate))
|
||||
(helm-attrset 'help-running-p t))
|
||||
(cond ((helm-follow-mode-p)
|
||||
(if name
|
||||
(funcall fun candidate name)
|
||||
(funcall fun candidate)))
|
||||
((or (and (helm-attr 'help-running-p)
|
||||
(string= candidate (helm-attr 'help-current-symbol))))
|
||||
(progn
|
||||
;; When started from a help buffer,
|
||||
;; Don't kill this buffer as it is helm-current-buffer.
|
||||
(unless (equal hbuf helm-current-buffer)
|
||||
(kill-buffer hbuf)
|
||||
(set-window-buffer (get-buffer-window hbuf)
|
||||
helm-current-buffer))
|
||||
(helm-attrset 'help-running-p nil)))
|
||||
(t
|
||||
(if name
|
||||
(funcall fun candidate name)
|
||||
(funcall fun candidate))
|
||||
(helm-attrset 'help-running-p t)))
|
||||
(helm-attrset 'help-current-symbol candidate)))
|
||||
|
||||
;;;###autoload
|
||||
@ -734,11 +772,11 @@ i.e the `symbol-name' of any existing symbol."
|
||||
;;
|
||||
(defun helm-locate-library-scan-list ()
|
||||
(cl-loop for dir in load-path
|
||||
when (file-directory-p dir)
|
||||
append (directory-files dir t (concat (regexp-opt (get-load-suffixes))
|
||||
"\\'"))
|
||||
into lst
|
||||
finally return (helm-fast-remove-dups lst :test 'equal)))
|
||||
with load-suffixes = '(".el")
|
||||
when (file-directory-p dir)
|
||||
append (directory-files
|
||||
dir t (concat (regexp-opt (get-load-suffixes))
|
||||
"\\'"))))
|
||||
|
||||
;;;###autoload
|
||||
(defun helm-locate-library ()
|
||||
@ -44,6 +44,12 @@
|
||||
"Helm eshell completion and history."
|
||||
:group 'helm)
|
||||
|
||||
|
||||
(defcustom helm-eshell-fuzzy-match nil
|
||||
"Enable fuzzy matching in `helm-esh-pcomplete' when non--nil."
|
||||
:group 'helm-eshell
|
||||
:type 'boolean)
|
||||
|
||||
|
||||
(defvar helm-eshell-history-map
|
||||
(let ((map (make-sparse-keymap)))
|
||||
@ -222,7 +228,8 @@ The function that call this should set `helm-ec-target' to thing at point."
|
||||
(car (last (ignore-errors
|
||||
(pcomplete-parse-arguments))))))
|
||||
(with-helm-show-completion beg end
|
||||
(or (helm :sources (helm-make-source "Eshell completions" 'helm-esh-source)
|
||||
(or (helm :sources (helm-make-source "Eshell completions" 'helm-esh-source
|
||||
:fuzzy-match helm-eshell-fuzzy-match)
|
||||
:buffer "*helm pcomplete*"
|
||||
:keymap helm-esh-completion-map
|
||||
:resume 'noresume
|
||||
@ -447,6 +447,7 @@ Don't set it directly, use instead `helm-ff-auto-update-initial-value'.")
|
||||
(defvar helm-multi-files--toggle-locate nil)
|
||||
(defvar helm-ff--move-to-first-real-candidate t)
|
||||
(defvar helm-find-files--toggle-bookmark nil)
|
||||
(defvar helm-ff--tramp-methods nil)
|
||||
|
||||
|
||||
;;; Helm-find-files
|
||||
@ -1434,30 +1435,31 @@ The checksum is copied to kill-ring."
|
||||
If prefix numeric arg is given go ARG level up."
|
||||
(interactive "p")
|
||||
(with-helm-alive-p
|
||||
(when (and (helm-file-completion-source-p)
|
||||
(not (helm-ff-invalid-tramp-name-p)))
|
||||
(with-helm-window
|
||||
(when helm-follow-mode
|
||||
(helm-follow-mode -1) (message nil)))
|
||||
;; When going up one level we want to be at the line
|
||||
;; corresponding to actual directory, so store this info
|
||||
;; in `helm-ff-last-expanded'.
|
||||
(let ((cur-cand (helm-get-selection))
|
||||
(new-pattern (helm-reduce-file-name helm-pattern arg)))
|
||||
(cond ((file-directory-p helm-pattern)
|
||||
(setq helm-ff-last-expanded helm-ff-default-directory))
|
||||
((file-exists-p helm-pattern)
|
||||
(setq helm-ff-last-expanded helm-pattern))
|
||||
((and cur-cand (file-exists-p cur-cand))
|
||||
(setq helm-ff-last-expanded cur-cand)))
|
||||
(unless helm-find-files--level-tree
|
||||
(setq helm-find-files--level-tree
|
||||
(cons helm-ff-default-directory
|
||||
helm-find-files--level-tree)))
|
||||
(setq helm-find-files--level-tree-iterator nil)
|
||||
(push new-pattern helm-find-files--level-tree)
|
||||
(helm-set-pattern new-pattern helm-suspend-update-flag)
|
||||
(with-helm-after-update-hook (helm-ff-retrieve-last-expanded))))))
|
||||
(let ((src (helm-get-current-source)))
|
||||
(when (and (helm-file-completion-source-p src)
|
||||
(not (helm-ff-invalid-tramp-name-p)))
|
||||
(with-helm-window
|
||||
(when (helm-follow-mode-p)
|
||||
(helm-follow-mode -1) (message nil)))
|
||||
;; When going up one level we want to be at the line
|
||||
;; corresponding to actual directory, so store this info
|
||||
;; in `helm-ff-last-expanded'.
|
||||
(let ((cur-cand (helm-get-selection nil nil src))
|
||||
(new-pattern (helm-reduce-file-name helm-pattern arg)))
|
||||
(cond ((file-directory-p helm-pattern)
|
||||
(setq helm-ff-last-expanded helm-ff-default-directory))
|
||||
((file-exists-p helm-pattern)
|
||||
(setq helm-ff-last-expanded helm-pattern))
|
||||
((and cur-cand (file-exists-p cur-cand))
|
||||
(setq helm-ff-last-expanded cur-cand)))
|
||||
(unless helm-find-files--level-tree
|
||||
(setq helm-find-files--level-tree
|
||||
(cons helm-ff-default-directory
|
||||
helm-find-files--level-tree)))
|
||||
(setq helm-find-files--level-tree-iterator nil)
|
||||
(push new-pattern helm-find-files--level-tree)
|
||||
(helm-set-pattern new-pattern helm-suspend-update-flag)
|
||||
(with-helm-after-update-hook (helm-ff-retrieve-last-expanded)))))))
|
||||
(put 'helm-find-files-up-one-level 'helm-only t)
|
||||
|
||||
(defun helm-find-files-down-last-level ()
|
||||
@ -1500,18 +1502,19 @@ or hitting C-j on \"..\"."
|
||||
|
||||
(defun helm-ff-move-to-first-real-candidate ()
|
||||
"When candidate is an incomplete file name move to first real candidate."
|
||||
(helm-aif (and (helm-file-completion-source-p)
|
||||
(not (helm-empty-source-p))
|
||||
(not (string-match
|
||||
"\\`[Dd]ired-"
|
||||
(assoc-default 'name (helm-get-current-source))))
|
||||
helm-ff--move-to-first-real-candidate
|
||||
(helm-get-selection))
|
||||
(unless (or (not (stringp it))
|
||||
(and (string-match helm-tramp-file-name-regexp it)
|
||||
(not (file-remote-p it nil t)))
|
||||
(file-exists-p it))
|
||||
(helm-next-line))))
|
||||
(let ((src (helm-get-current-source)))
|
||||
(helm-aif (and (helm-file-completion-source-p src)
|
||||
(not (helm-empty-source-p))
|
||||
(not (string-match
|
||||
"\\`[Dd]ired-"
|
||||
(assoc-default 'name (helm-get-current-source))))
|
||||
helm-ff--move-to-first-real-candidate
|
||||
(helm-get-selection nil nil src))
|
||||
(unless (or (not (stringp it))
|
||||
(and (string-match helm-tramp-file-name-regexp it)
|
||||
(not (file-remote-p it nil t)))
|
||||
(file-exists-p it))
|
||||
(helm-next-line)))))
|
||||
|
||||
;;; Auto-update - helm-find-files auto expansion of directories.
|
||||
;;
|
||||
@ -1522,81 +1525,81 @@ When only one candidate is remaining and it is a directory,
|
||||
expand to this directory.
|
||||
This happen only when `helm-ff-auto-update-flag' is non--nil
|
||||
or when `helm-pattern' is equal to \"~/\"."
|
||||
(when (and (helm-file-completion-source-p)
|
||||
(not (helm-ff-invalid-tramp-name-p)))
|
||||
(with-helm-window
|
||||
(let* ((history-p (string= (assoc-default
|
||||
'name (helm-get-current-source))
|
||||
"Read File Name History"))
|
||||
(pat (if (string-match helm-tramp-file-name-regexp
|
||||
helm-pattern)
|
||||
(helm-create-tramp-name helm-pattern)
|
||||
helm-pattern))
|
||||
(completed-p (string= (file-name-as-directory
|
||||
(expand-file-name
|
||||
(substitute-in-file-name pat)))
|
||||
helm-ff-default-directory))
|
||||
(candnum (helm-get-candidate-number))
|
||||
(lt2-p (and (<= candnum 2)
|
||||
(>= (string-width (helm-basename helm-pattern)) 2)))
|
||||
(cur-cand (prog2
|
||||
(unless (or completed-p
|
||||
(file-exists-p pat)
|
||||
history-p (null lt2-p))
|
||||
;; Only one non--existing candidate
|
||||
;; and one directory candidate, move to it,
|
||||
;; but not when renaming, copying etc...,
|
||||
;; so for this use
|
||||
;; `helm-ff-move-to-first-real-candidate'
|
||||
;; instead of `helm-next-line' (Issue #910).
|
||||
(helm-ff-move-to-first-real-candidate))
|
||||
(helm-get-selection))))
|
||||
(when (and (or (and helm-ff-auto-update-flag
|
||||
(null helm-ff--deleting-char-backward)
|
||||
(not (get-buffer-window helm-action-buffer 'visible))
|
||||
;; Issue #295
|
||||
;; File predicates are returning t
|
||||
;; with paths like //home/foo.
|
||||
;; So check it is not the case by regexp
|
||||
;; to allow user to do C-a / to start e.g
|
||||
;; entering a tramp method e.g /sudo::.
|
||||
(not (string-match "\\`//" helm-pattern))
|
||||
(not (eq last-command 'helm-yank-text-at-point)))
|
||||
;; Fix issue #542.
|
||||
(string= helm-pattern "~/")
|
||||
;; Only one remaining directory, expand it.
|
||||
(and (= candnum 1)
|
||||
helm-ff--auto-update-state
|
||||
(file-accessible-directory-p pat)
|
||||
(null helm-ff--deleting-char-backward)))
|
||||
(or
|
||||
;; Only one candidate remaining
|
||||
;; and at least 2 char in basename.
|
||||
lt2-p
|
||||
;; Already completed.
|
||||
completed-p)
|
||||
(not history-p) ; Don't try to auto complete in history.
|
||||
(stringp cur-cand)
|
||||
(file-accessible-directory-p cur-cand))
|
||||
(if (and (not (helm-dir-is-dot cur-cand)) ; [1]
|
||||
;; Maybe we are here because completed-p is true
|
||||
;; but check this again to be sure. (Windows fix)
|
||||
(<= candnum 2)) ; [2]
|
||||
;; If after going to next line the candidate
|
||||
;; is not one of "." or ".." [1]
|
||||
;; and only one candidate is remaining [2],
|
||||
;; assume candidate is a new directory to expand, and do it.
|
||||
(helm-set-pattern (file-name-as-directory cur-cand))
|
||||
;; The candidate is one of "." or ".."
|
||||
;; that mean we have entered the last letter of the directory name
|
||||
;; in prompt, so expansion is already done, just add the "/" at end
|
||||
;; of name unless helm-pattern ends with "."
|
||||
;; (i.e we are writing something starting with ".")
|
||||
(unless (string-match "\\`.*[.]\\{1\\}\\'" helm-pattern)
|
||||
(helm-set-pattern
|
||||
;; Need to expand-file-name to avoid e.g /ssh:host:./ in prompt.
|
||||
(expand-file-name (file-name-as-directory helm-pattern)))))
|
||||
(helm-check-minibuffer-input))))))
|
||||
(let ((src (helm-get-current-source)))
|
||||
(when (and (helm-file-completion-source-p src)
|
||||
(not (helm-ff-invalid-tramp-name-p)))
|
||||
(with-helm-window
|
||||
(let* ((history-p (string= (assoc-default 'name src)
|
||||
"Read File Name History"))
|
||||
(pat (if (string-match helm-tramp-file-name-regexp
|
||||
helm-pattern)
|
||||
(helm-create-tramp-name helm-pattern)
|
||||
helm-pattern))
|
||||
(completed-p (string= (file-name-as-directory
|
||||
(expand-file-name
|
||||
(substitute-in-file-name pat)))
|
||||
helm-ff-default-directory))
|
||||
(candnum (helm-get-candidate-number))
|
||||
(lt2-p (and (<= candnum 2)
|
||||
(>= (string-width (helm-basename helm-pattern)) 2)))
|
||||
(cur-cand (prog2
|
||||
(unless (or completed-p
|
||||
(file-exists-p pat)
|
||||
history-p (null lt2-p))
|
||||
;; Only one non--existing candidate
|
||||
;; and one directory candidate, move to it,
|
||||
;; but not when renaming, copying etc...,
|
||||
;; so for this use
|
||||
;; `helm-ff-move-to-first-real-candidate'
|
||||
;; instead of `helm-next-line' (Issue #910).
|
||||
(helm-ff-move-to-first-real-candidate))
|
||||
(helm-get-selection nil nil src))))
|
||||
(when (and (or (and helm-ff-auto-update-flag
|
||||
(null helm-ff--deleting-char-backward)
|
||||
(not (get-buffer-window helm-action-buffer 'visible))
|
||||
;; Issue #295
|
||||
;; File predicates are returning t
|
||||
;; with paths like //home/foo.
|
||||
;; So check it is not the case by regexp
|
||||
;; to allow user to do C-a / to start e.g
|
||||
;; entering a tramp method e.g /sudo::.
|
||||
(not (string-match "\\`//" helm-pattern))
|
||||
(not (eq last-command 'helm-yank-text-at-point)))
|
||||
;; Fix issue #542.
|
||||
(string= helm-pattern "~/")
|
||||
;; Only one remaining directory, expand it.
|
||||
(and (= candnum 1)
|
||||
helm-ff--auto-update-state
|
||||
(file-accessible-directory-p pat)
|
||||
(null helm-ff--deleting-char-backward)))
|
||||
(or
|
||||
;; Only one candidate remaining
|
||||
;; and at least 2 char in basename.
|
||||
lt2-p
|
||||
;; Already completed.
|
||||
completed-p)
|
||||
(not history-p) ; Don't try to auto complete in history.
|
||||
(stringp cur-cand)
|
||||
(file-accessible-directory-p cur-cand))
|
||||
(if (and (not (helm-dir-is-dot cur-cand)) ; [1]
|
||||
;; Maybe we are here because completed-p is true
|
||||
;; but check this again to be sure. (Windows fix)
|
||||
(<= candnum 2)) ; [2]
|
||||
;; If after going to next line the candidate
|
||||
;; is not one of "." or ".." [1]
|
||||
;; and only one candidate is remaining [2],
|
||||
;; assume candidate is a new directory to expand, and do it.
|
||||
(helm-set-pattern (file-name-as-directory cur-cand))
|
||||
;; The candidate is one of "." or ".."
|
||||
;; that mean we have entered the last letter of the directory name
|
||||
;; in prompt, so expansion is already done, just add the "/" at end
|
||||
;; of name unless helm-pattern ends with "."
|
||||
;; (i.e we are writing something starting with ".")
|
||||
(unless (string-match "\\`.*[.]\\{1\\}\\'" helm-pattern)
|
||||
(helm-set-pattern
|
||||
;; Need to expand-file-name to avoid e.g /ssh:host:./ in prompt.
|
||||
(expand-file-name (file-name-as-directory helm-pattern)))))
|
||||
(helm-check-minibuffer-input)))))))
|
||||
|
||||
(defun helm-ff-auto-expand-to-home-or-root ()
|
||||
"Allow expanding to home/user directory or root or text yanked after pattern."
|
||||
@ -1680,6 +1683,11 @@ and should be used carefully elsewhere, or not at all, using
|
||||
(cl-loop with v = (tramp-dissect-file-name fname)
|
||||
for i across v collect i)))
|
||||
|
||||
(defun helm-ff-get-tramp-methods ()
|
||||
"Returns a list of the car of `tramp-methods'."
|
||||
(or helm-ff--tramp-methods
|
||||
(setq helm-ff--tramp-methods (mapcar 'car tramp-methods))))
|
||||
|
||||
(cl-defun helm-ff-tramp-hostnames (&optional (pattern helm-pattern))
|
||||
"Get a list of hosts for tramp method found in `helm-pattern'.
|
||||
Argument PATTERN default to `helm-pattern', it is here only for debugging
|
||||
@ -1687,7 +1695,7 @@ purpose."
|
||||
(when (string-match helm-tramp-file-name-regexp pattern)
|
||||
(let ((method (match-string 1 pattern))
|
||||
(tn (match-string 0 pattern))
|
||||
(all-methods (mapcar 'car tramp-methods)))
|
||||
(all-methods (helm-ff-get-tramp-methods)))
|
||||
(helm-fast-remove-dups
|
||||
(cl-loop for (f . h) in (tramp-get-completion-function method)
|
||||
append (cl-loop for e in (funcall f (car h))
|
||||
@ -1698,8 +1706,9 @@ purpose."
|
||||
|
||||
(defun helm-ff-before-action-hook-fn ()
|
||||
"Exit helm when user try to execute action on an invalid tramp fname."
|
||||
(let ((cand (helm-get-selection)))
|
||||
(when (and (helm-file-completion-source-p)
|
||||
(let* ((src (helm-get-current-source))
|
||||
(cand (helm-get-selection nil nil src)))
|
||||
(when (and (helm-file-completion-source-p src)
|
||||
(stringp cand)
|
||||
(helm-ff-invalid-tramp-name-p cand) ; Check candidate.
|
||||
(helm-ff-invalid-tramp-name-p)) ; check helm-pattern.
|
||||
@ -1711,11 +1720,27 @@ purpose."
|
||||
(string= (helm-ff-set-pattern pattern)
|
||||
"Invalid tramp file name"))
|
||||
|
||||
(defun helm-ff-tramp-postfixed-p (str methods)
|
||||
(let (result)
|
||||
(save-match-data
|
||||
(with-temp-buffer
|
||||
(save-excursion (insert str))
|
||||
(helm-awhile (search-forward ":" nil t)
|
||||
(if (save-excursion
|
||||
(forward-char -1)
|
||||
(looking-back (mapconcat 'identity methods "\\|")
|
||||
(point-at-bol)))
|
||||
(setq result nil)
|
||||
(setq result it)))))
|
||||
result))
|
||||
|
||||
(defun helm-ff-set-pattern (pattern)
|
||||
"Handle tramp filenames in `helm-pattern'."
|
||||
(let ((methods (mapcar 'car tramp-methods))
|
||||
(reg "\\`/\\([^[/:]+\\|[^/]+]\\):.*:")
|
||||
cur-method tramp-name)
|
||||
(let* ((methods (helm-ff-get-tramp-methods))
|
||||
;; Returns the position of last ":" entered.
|
||||
(postfixed (helm-ff-tramp-postfixed-p pattern methods))
|
||||
(reg "\\`/\\([^[/:]+\\|[^/]+]\\):.*:")
|
||||
cur-method tramp-name)
|
||||
;; In some rare cases tramp can return a nil input,
|
||||
;; so be sure pattern is a string for safety (Issue #476).
|
||||
(unless pattern (setq pattern ""))
|
||||
@ -1728,11 +1753,12 @@ purpose."
|
||||
((string-match ".*\\(~?/?[.]\\{1\\}/\\)\\'" pattern)
|
||||
(expand-file-name default-directory))
|
||||
((string-match ".*\\(~//\\|//\\)\\'" pattern)
|
||||
(expand-file-name "/")) ; Expand to "/" or "c:/"
|
||||
(expand-file-name "/")) ; Expand to "/" or "c:/"
|
||||
((string-match "\\`\\(~/\\|.*/~/\\)\\'" pattern)
|
||||
(expand-file-name "~/"))
|
||||
;; Match "/method:maybe_hostname:~"
|
||||
((and (string-match (concat reg "~") pattern)
|
||||
postfixed
|
||||
(setq cur-method (match-string 1 pattern))
|
||||
(member cur-method methods))
|
||||
(setq tramp-name (expand-file-name
|
||||
@ -1741,20 +1767,22 @@ purpose."
|
||||
(replace-match tramp-name nil t pattern))
|
||||
;; Match "/method:maybe_hostname:"
|
||||
((and (string-match reg pattern)
|
||||
postfixed
|
||||
(setq cur-method (match-string 1 pattern))
|
||||
(member cur-method methods))
|
||||
(setq tramp-name (helm-create-tramp-name
|
||||
(match-string 0 pattern)))
|
||||
(replace-match tramp-name nil t pattern))
|
||||
;; Match "/hostname:"
|
||||
((and (string-match helm-tramp-file-name-regexp pattern)
|
||||
((and (string-match helm-tramp-file-name-regexp pattern)
|
||||
postfixed
|
||||
(setq cur-method (match-string 1 pattern))
|
||||
(and cur-method (not (member cur-method methods))))
|
||||
(setq tramp-name (helm-create-tramp-name
|
||||
(match-string 0 pattern)))
|
||||
(replace-match tramp-name nil t pattern))
|
||||
;; Match "/method:" in this case don't try to connect.
|
||||
((and (not (string-match reg pattern))
|
||||
((and (null postfixed)
|
||||
(string-match helm-tramp-file-name-regexp pattern)
|
||||
(member (match-string 1 pattern) methods))
|
||||
"Invalid tramp file name") ; Write in helm-buffer.
|
||||
@ -1779,6 +1807,9 @@ purpose."
|
||||
(string= path "Invalid tramp file name")
|
||||
;; An empty pattern
|
||||
(string= path "")
|
||||
(and (string-match-p ":\\'" path)
|
||||
(helm-ff-tramp-postfixed-p
|
||||
path (helm-ff-get-tramp-methods)))
|
||||
;; Check if base directory of PATH is valid.
|
||||
(helm-aif (file-name-directory path)
|
||||
;; If PATH is a valid directory IT=PATH,
|
||||
@ -1803,6 +1834,7 @@ purpose."
|
||||
helm-ff--deleting-char-backward
|
||||
(and dir-p (not (string-match-p "/\\'" path))))
|
||||
(or (>= (length (helm-basename path)) 3) dir-p)))
|
||||
;; At this point the tramp connection is triggered.
|
||||
(setq helm-pattern (helm-ff--transform-pattern-for-completion path))
|
||||
;; This have to be set after [1] to allow deleting char backward.
|
||||
(setq basedir (expand-file-name
|
||||
@ -1810,8 +1842,8 @@ purpose."
|
||||
;; Add the final "/" to path
|
||||
;; when `helm-ff-auto-update-flag' is enabled.
|
||||
(file-name-as-directory path)
|
||||
(if (string= path "") "/"
|
||||
(file-name-directory path)))))
|
||||
(if (string= path "")
|
||||
"/" (file-name-directory path)))))
|
||||
(setq helm-ff-default-directory
|
||||
(if (string= helm-pattern "")
|
||||
(expand-file-name "/") ; Expand to "/" or "c:/"
|
||||
@ -1820,6 +1852,9 @@ purpose."
|
||||
(and ffap-url-regexp
|
||||
(string-match ffap-url-regexp path)))
|
||||
basedir))))
|
||||
(when (and (string-match ":\\'" path)
|
||||
(file-remote-p basedir nil t))
|
||||
(setq helm-pattern basedir))
|
||||
(cond ((string= path "Invalid tramp file name")
|
||||
(or (helm-ff-tramp-hostnames) ; Hostnames completion.
|
||||
(prog2
|
||||
@ -1909,6 +1944,7 @@ If PATTERN is a valid directory name,return PATTERN unchanged."
|
||||
(setq pattern (helm-ff-handle-backslash pattern))
|
||||
(let ((bn (helm-basename pattern))
|
||||
(bd (or (helm-basedir pattern) ""))
|
||||
;; Trigger tramp connection with file-directory-p.
|
||||
(dir-p (file-directory-p pattern))
|
||||
(tramp-p (cl-loop for (m . f) in tramp-methods
|
||||
thereis (string-match m pattern))))
|
||||
@ -1960,8 +1996,9 @@ Note that only existing directories are saved here."
|
||||
|
||||
(defun helm-files-save-file-name-history (&optional force)
|
||||
"Save selected file to `file-name-history'."
|
||||
(let ((src-name (assoc-default 'name (helm-get-current-source))))
|
||||
(when (or force (helm-file-completion-source-p)
|
||||
(let* ((src (helm-get-current-source))
|
||||
(src-name (assoc-default 'name src)))
|
||||
(when (or force (helm-file-completion-source-p src)
|
||||
(member src-name helm-files-save-history-extra-sources))
|
||||
(let ((mkd (helm-marked-candidates))
|
||||
(history-delete-duplicates t))
|
||||
@ -2363,9 +2400,7 @@ If CANDIDATE is alone, open file CANDIDATE filename.
|
||||
That's mean:
|
||||
First hit on C-j expand CANDIDATE second hit open file.
|
||||
If a prefix arg is given or `helm-follow-mode' is on open file."
|
||||
(let* ((follow (or (buffer-local-value
|
||||
'helm-follow-mode
|
||||
(get-buffer-create helm-buffer))
|
||||
(let* ((follow (or (helm-follow-mode-p)
|
||||
helm--temp-follow-flag))
|
||||
(new-pattern (helm-get-selection))
|
||||
(num-lines-buf (with-current-buffer helm-buffer
|
||||
@ -2556,7 +2591,8 @@ Use it for non--interactive calls of `helm-find-files'."
|
||||
(not (minibuffer-window-active-p (minibuffer-window)))))
|
||||
(tap (thing-at-point 'filename))
|
||||
(def (and tap (or (file-remote-p tap)
|
||||
(expand-file-name tap)))))
|
||||
(expand-file-name tap))))
|
||||
helm-follow-mode-persistent)
|
||||
(unless helm-source-find-files
|
||||
(setq helm-source-find-files (helm-make-source
|
||||
"Find Files" 'helm-source-ffiles)))
|
||||
@ -2575,11 +2611,11 @@ Use it for non--interactive calls of `helm-find-files'."
|
||||
:default def
|
||||
:prompt "Find files or url: "
|
||||
:buffer "*helm find files*")
|
||||
(helm-attrset 'resume `(lambda ()
|
||||
(setq helm-ff-default-directory
|
||||
,helm-ff-default-directory
|
||||
helm-ff-last-expanded
|
||||
,helm-ff-last-expanded))
|
||||
(helm-attrset 'resume (lambda ()
|
||||
(setq helm-ff-default-directory
|
||||
helm-ff-default-directory
|
||||
helm-ff-last-expanded
|
||||
helm-ff-last-expanded))
|
||||
helm-source-find-files)
|
||||
(setq helm-ff-default-directory nil))))
|
||||
|
||||
@ -3183,6 +3219,7 @@ Set `recentf-max-saved-items' to a bigger value if default is too small.")
|
||||
for bn = (buffer-file-name (get-buffer b))
|
||||
if (or (and bn (file-in-directory-p bn root-directory))
|
||||
(and (null bn)
|
||||
(not (file-remote-p cd))
|
||||
(file-in-directory-p cd root-directory)))
|
||||
collect b))
|
||||
|
||||
@ -632,6 +632,7 @@ If N is positive go forward otherwise go backward."
|
||||
(goto-char it)
|
||||
(forward-line 1))
|
||||
(funcall mark-maybe)))
|
||||
(helm-follow-execute-persistent-action-maybe)
|
||||
(helm-log-run-hook 'helm-move-selection-after-hook)))
|
||||
|
||||
;;;###autoload
|
||||
@ -900,6 +901,13 @@ These extensions will be added to command line with --include arg of grep."
|
||||
(keymap :initform helm-grep-map)
|
||||
(nohighlight :initform t)
|
||||
(nomark :initform t)
|
||||
(backend :initarg :backend
|
||||
:initform nil
|
||||
:documentation
|
||||
" The grep backend that will be used.
|
||||
It is actually used only as an internal flag
|
||||
and don't set the backend by itself.
|
||||
You probably don't want to modify this.")
|
||||
(candidate-number-limit :initform 9999)
|
||||
(help-message :initform 'helm-grep-help-message)
|
||||
(history :initform 'helm-grep-history)
|
||||
@ -910,11 +918,21 @@ These extensions will be added to command line with --include arg of grep."
|
||||
|
||||
(defvar helm-source-grep nil)
|
||||
|
||||
(defun helm-do-grep-1 (targets &optional recurse grep exts default-input input)
|
||||
"Launch grep on a list of TARGETS files.
|
||||
(defmethod helm--setup-source ((source helm-grep-class))
|
||||
(call-next-method)
|
||||
(helm-aif (and helm-follow-mode-persistent
|
||||
(if (eq (slot-value source 'backend) 'git)
|
||||
helm-source-grep-git
|
||||
helm-source-grep))
|
||||
(setf (slot-value source 'follow)
|
||||
(assoc-default 'follow it))))
|
||||
|
||||
When RECURSE is given use -r option of grep and prompt user
|
||||
for EXTS to set the --include args of grep.
|
||||
(cl-defun helm-do-grep-1 (targets &optional recurse backend exts
|
||||
default-input input (source 'helm-source-grep))
|
||||
"Launch helm using backend BACKEND on a list of TARGETS files.
|
||||
|
||||
When RECURSE is given and BACKEND is 'grep' use -r option of
|
||||
BACKEND and prompt user for EXTS to set the --include args of BACKEND.
|
||||
Interactively you can give more than one arg separated by space at prompt.
|
||||
e.g
|
||||
$Pattern: *.el *.py *.tex
|
||||
@ -927,9 +945,9 @@ If prompt is empty `helm-grep-ignored-files' are added to --exclude.
|
||||
Argument DEFAULT-INPUT is use as `default' arg of `helm' and INPUT
|
||||
is used as `input' arg of `helm', See `helm' docstring.
|
||||
|
||||
Arg GREP when non--nil specify which grep to use
|
||||
It is used actually to specify 'zgrep or 'git.
|
||||
When zgrep is used don't prompt for a choice
|
||||
Arg BACKEND when non--nil specify which backend to use
|
||||
It is used actually to specify 'zgrep' or 'git'.
|
||||
When BACKEND 'zgrep' is used don't prompt for a choice
|
||||
in recurse, and ignore EXTS, search being made recursively on files matching
|
||||
`helm-zgrep-file-extension-regexp' only."
|
||||
(when (and (helm-grep-use-ack-p)
|
||||
@ -939,7 +957,7 @@ in recurse, and ignore EXTS, search being made recursively on files matching
|
||||
(let* (non-essential
|
||||
(exts (and recurse
|
||||
;; [FIXME] I could handle this from helm-walk-directory.
|
||||
(not (eq grep 'zgrep)) ; zgrep doesn't handle -r opt.
|
||||
(not (eq backend 'zgrep)) ; zgrep doesn't handle -r opt.
|
||||
(not (helm-grep-use-ack-p :where 'recursive))
|
||||
(or exts (helm-grep-get-file-extensions targets))))
|
||||
(include-files
|
||||
@ -951,16 +969,14 @@ in recurse, and ignore EXTS, search being made recursively on files matching
|
||||
(remove "*" exts)
|
||||
exts) " ")))
|
||||
(types (and (not include-files)
|
||||
(not (eq grep 'zgrep))
|
||||
(not (eq backend 'zgrep))
|
||||
recurse
|
||||
(helm-grep-use-ack-p :where 'recursive)
|
||||
;; When %e format spec is not specified
|
||||
;; ignore types and do not prompt for choice.
|
||||
(string-match "%e" helm-grep-default-command)
|
||||
(helm-grep-read-ack-type)))
|
||||
(follow (and helm-follow-mode-persistent
|
||||
(assoc-default 'follow helm-source-grep)))
|
||||
(src-name (capitalize (helm-grep-command recurse grep))))
|
||||
(src-name (capitalize (helm-grep-command recurse backend))))
|
||||
;; When called as action from an other source e.g *-find-files
|
||||
;; we have to kill action buffer.
|
||||
(when (get-buffer helm-action-buffer)
|
||||
@ -973,14 +989,14 @@ in recurse, and ignore EXTS, search being made recursively on files matching
|
||||
;; We need to store these vars locally
|
||||
;; to pass infos later to `helm-resume'.
|
||||
(helm-set-local-variable
|
||||
'helm-zgrep-recurse-flag (and recurse (eq grep 'zgrep))
|
||||
'helm-zgrep-recurse-flag (and recurse (eq backend 'zgrep))
|
||||
'helm-grep-last-targets targets
|
||||
'helm-grep-include-files (or include-files types)
|
||||
'helm-grep-in-recurse recurse
|
||||
'helm-grep-use-zgrep (eq grep 'zgrep)
|
||||
'helm-grep-use-zgrep (eq backend 'zgrep)
|
||||
'helm-grep-default-command
|
||||
(cond ((eq grep 'zgrep) helm-default-zgrep-command)
|
||||
((eq grep 'git) helm-grep-git-grep-command)
|
||||
(cond ((eq backend 'zgrep) helm-default-zgrep-command)
|
||||
((eq backend 'git) helm-grep-git-grep-command)
|
||||
(recurse helm-grep-default-recurse-command)
|
||||
;; When resuming, the local value of
|
||||
;; `helm-grep-default-command' is used, only git-grep
|
||||
@ -988,11 +1004,11 @@ in recurse, and ignore EXTS, search being made recursively on files matching
|
||||
(t helm-grep-default-command))
|
||||
'default-directory helm-ff-default-directory) ;; [1]
|
||||
;; Setup the source.
|
||||
(setq helm-source-grep (helm-make-source src-name 'helm-grep-class
|
||||
:follow follow))
|
||||
(set source (helm-make-source src-name 'helm-grep-class
|
||||
:backend backend))
|
||||
(helm
|
||||
:sources 'helm-source-grep
|
||||
:buffer (format "*helm %s*" (helm-grep-command recurse grep))
|
||||
:sources source
|
||||
:buffer (format "*helm %s*" (helm-grep-command recurse backend))
|
||||
:default default-input
|
||||
:input input
|
||||
:keymap helm-grep-map
|
||||
@ -1354,6 +1370,13 @@ if available with current AG version."
|
||||
|
||||
(defvar helm-source-grep-ag nil)
|
||||
|
||||
(defmethod helm--setup-source ((source helm-grep-ag-class))
|
||||
(call-next-method)
|
||||
(helm-aif (and helm-follow-mode-persistent
|
||||
helm-source-grep-ag
|
||||
(assoc-default 'follow helm-source-grep-ag))
|
||||
(setf (slot-value source 'follow) it)))
|
||||
|
||||
(defun helm-grep-ag-1 (directory &optional type)
|
||||
"Start helm ag in DIRECTORY maybe searching in files of type TYPE."
|
||||
(setq helm-source-grep-ag
|
||||
@ -1384,6 +1407,8 @@ When WITH-TYPES is non-nil provide completion on AG types."
|
||||
;;; Git grep
|
||||
;;
|
||||
;;
|
||||
(defvar helm-source-grep-git nil)
|
||||
|
||||
(defcustom helm-grep-git-grep-command
|
||||
"git --no-pager grep -n%cH --color=always --exclude-standard --no-index --full-name -e %p -- %f"
|
||||
"The git grep default command line.
|
||||
@ -1415,7 +1440,7 @@ arg INPUT is what you will have by default at prompt on startup."
|
||||
(helm-ff-default-directory (funcall helm-grep-default-directory-fn)))
|
||||
(cl-assert helm-ff-default-directory nil "Not inside a Git repository")
|
||||
(helm-do-grep-1 (if all '("") `(,(expand-file-name directory)))
|
||||
nil 'git nil default input)))
|
||||
nil 'git nil default input 'helm-source-grep-git)))
|
||||
|
||||
|
||||
;;;###autoload
|
||||
@ -1424,7 +1449,7 @@ arg INPUT is what you will have by default at prompt on startup."
|
||||
With prefix-arg prompt for type if available with your AG version."
|
||||
(interactive "P")
|
||||
(require 'helm-files)
|
||||
(helm-grep-ag default-directory arg))
|
||||
(helm-grep-ag (expand-file-name default-directory) arg))
|
||||
|
||||
;;;###autoload
|
||||
(defun helm-grep-do-git-grep (arg)
|
||||
@ -144,23 +144,13 @@ For Windows and `es' use something like \"es -r ^%s.*%s.*$\"."
|
||||
"Try to find if a local locatedb file is available.
|
||||
The search is done in `helm-ff-default-directory' or
|
||||
fall back to `default-directory' if FROM-FF is nil."
|
||||
(when helm-ff-locate-db-filename
|
||||
(cond ((and helm-ff-default-directory
|
||||
from-ff
|
||||
(file-exists-p (expand-file-name
|
||||
helm-ff-locate-db-filename
|
||||
helm-ff-default-directory))
|
||||
(expand-file-name
|
||||
helm-ff-locate-db-filename
|
||||
helm-ff-default-directory)))
|
||||
((and (not from-ff)
|
||||
(file-exists-p (expand-file-name
|
||||
helm-ff-locate-db-filename
|
||||
default-directory))
|
||||
(expand-file-name
|
||||
helm-ff-locate-db-filename
|
||||
default-directory))))))
|
||||
|
||||
(helm-aif (and helm-ff-locate-db-filename
|
||||
(locate-dominating-file
|
||||
(or (and from-ff
|
||||
helm-ff-default-directory)
|
||||
default-directory)
|
||||
helm-ff-locate-db-filename))
|
||||
(expand-file-name helm-ff-locate-db-filename it)))
|
||||
|
||||
(defun helm-locate-create-db-default-function (db-name directory)
|
||||
"Default function used to create a locale locate db file.
|
||||
@ -19,6 +19,7 @@
|
||||
|
||||
(require 'cl-lib)
|
||||
(require 'helm)
|
||||
(require 'helm-lib)
|
||||
(require 'helm-files)
|
||||
|
||||
|
||||
@ -219,13 +220,13 @@ If COLLECTION is an `obarray', a TEST should be needed. See `obarray'."
|
||||
;; Also, the history collections generally collect their
|
||||
;; elements as string, so intern them to call predicate.
|
||||
((and (symbolp collection) (boundp collection) test)
|
||||
(let ((predicate `(lambda (elm)
|
||||
(condition-case err
|
||||
(if (eq (quote ,test) 'commandp)
|
||||
(funcall (quote ,test) (intern elm))
|
||||
(funcall (quote ,test) elm))
|
||||
(wrong-type-argument
|
||||
(funcall (quote ,test) (intern elm)))))))
|
||||
(let ((predicate (lambda (elm)
|
||||
(condition-case _err
|
||||
(if (eq test 'commandp)
|
||||
(funcall test (intern elm))
|
||||
(funcall test elm))
|
||||
(wrong-type-argument
|
||||
(funcall test (intern elm)))))))
|
||||
(all-completions input (symbol-value collection) predicate)))
|
||||
((and (symbolp collection) (boundp collection))
|
||||
(all-completions input (symbol-value collection)))
|
||||
@ -826,6 +827,7 @@ Keys description:
|
||||
(and helm-ff-auto-update-initial-value
|
||||
(not (minibuffer-window-active-p (minibuffer-window)))))
|
||||
helm-full-frame
|
||||
helm-follow-mode-persistent
|
||||
(hist (and history (helm-comp-read-get-candidates
|
||||
history nil nil alistp)))
|
||||
(minibuffer-completion-confirm must-match)
|
||||
@ -96,11 +96,6 @@ This is a format string, don't forget the `%s'."
|
||||
:type 'string
|
||||
:group 'helm-net)
|
||||
|
||||
(defcustom helm-wikipedia-follow-delay 2
|
||||
"Delay before wikipedia summary popup."
|
||||
:type 'number
|
||||
:group 'helm-net)
|
||||
|
||||
(defcustom helm-search-suggest-action-youtube-url
|
||||
"http://www.youtube.com/results?aq=f&search_query=%s"
|
||||
"The Youtube search url.
|
||||
@ -359,10 +354,9 @@ Can be \"-new-tab\" (default) or \"-new-window\"."
|
||||
helm-search-suggest-action-wikipedia-url
|
||||
candidate))))
|
||||
:persistent-action #'helm-wikipedia-persistent-action
|
||||
:persistent-help "show summary"
|
||||
:volatile t
|
||||
:keymap helm-map
|
||||
:follow 1
|
||||
:follow-delay helm-wikipedia-follow-delay
|
||||
:requires-pattern 3))
|
||||
|
||||
|
||||
@ -57,9 +57,9 @@ Note this have no effect in `helm-org-in-buffer-headings'."
|
||||
|
||||
(defcustom helm-org-headings-actions
|
||||
'(("Go to heading" . helm-org-goto-marker)
|
||||
("Open in indirect buffer `C-RET'" . helm-org--open-heading-in-indirect-buffer)
|
||||
("Refile to this heading `C-w`''" . helm-org-heading-refile)
|
||||
("Insert link to this heading `C-l`''" . helm-org-insert-link-to-heading-at-marker))
|
||||
("Open in indirect buffer `C-c i'" . helm-org--open-heading-in-indirect-buffer)
|
||||
("Refile to this heading `C-c w`" . helm-org-heading-refile)
|
||||
("Insert link to this heading `C-c l`" . helm-org-insert-link-to-heading-at-marker))
|
||||
"Default actions alist for
|
||||
`helm-source-org-headings-for-files'."
|
||||
:group 'helm-org
|
||||
@ -100,19 +100,19 @@ Note this have no effect in `helm-org-in-buffer-headings'."
|
||||
(set-window-prev-buffers nil (append (cdr (window-prev-buffers))
|
||||
(car (window-prev-buffers)))))
|
||||
|
||||
(defun helm-org--run-open-heading-in-indirect-buffer ()
|
||||
(defun helm-org-run-open-heading-in-indirect-buffer ()
|
||||
"Open selected Org heading in an indirect buffer."
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action #'helm-org--open-heading-in-indirect-buffer)))
|
||||
(put 'helm-org--run-open-heading-in-indirect-buffer 'helm-only t)
|
||||
(put 'helm-org-run-open-heading-in-indirect-buffer 'helm-only t)
|
||||
|
||||
(defvar helm-org-headings-map
|
||||
(let ((map (make-sparse-keymap)))
|
||||
(set-keymap-parent map helm-map)
|
||||
(define-key map (kbd "<C-return>") 'helm-org--run-open-heading-in-indirect-buffer)
|
||||
(define-key map (kbd "C-w") 'helm-org-heading-refile)
|
||||
(define-key map (kbd "C-l") 'helm-org-insert-link-to-heading-at-marker)
|
||||
(define-key map (kbd "<C-c i>") 'helm-org-run-open-heading-in-indirect-buffer)
|
||||
(define-key map (kbd "C-c w") 'helm-org-run-heading-refile)
|
||||
(define-key map (kbd "C-c l") 'helm-org-run-insert-link-to-heading-at-marker)
|
||||
map)
|
||||
"Keymap for `helm-source-org-headings-for-files'.")
|
||||
|
||||
@ -218,6 +218,12 @@ Note this have no effect in `helm-org-in-buffer-headings'."
|
||||
(org-insert-link
|
||||
file-name (concat "file:" file-name "::*" heading-name))))))
|
||||
|
||||
(defun helm-org-run-insert-link-to-heading-at-marker ()
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action
|
||||
'helm-org-insert-link-to-heading-at-marker)))
|
||||
|
||||
(defun helm-org-heading-refile (marker)
|
||||
(save-selected-window
|
||||
(when (eq major-mode 'org-agenda-mode)
|
||||
@ -230,6 +236,19 @@ Note this have no effect in `helm-org-in-buffer-headings'."
|
||||
(org-end-of-subtree t t)
|
||||
(org-paste-subtree (+ target-level 1)))))
|
||||
|
||||
(defun helm-org-in-buffer-preselect ()
|
||||
(if (org-on-heading-p)
|
||||
(buffer-substring-no-properties (point-at-bol) (point-at-eol))
|
||||
(save-excursion
|
||||
(outline-previous-visible-heading 1)
|
||||
(buffer-substring-no-properties (point-at-bol) (point-at-eol)))))
|
||||
|
||||
(defun helm-org-run-heading-refile ()
|
||||
(interactive)
|
||||
(with-helm-alive-p
|
||||
(helm-exit-and-execute-action 'helm-org-heading-refile)))
|
||||
(put 'helm-org-run-heading-refile 'helm-only t)
|
||||
|
||||
;;;###autoload
|
||||
(defun helm-org-agenda-files-headings ()
|
||||
"Preconfigured helm for org files headings."
|
||||
@ -243,10 +262,11 @@ Note this have no effect in `helm-org-in-buffer-headings'."
|
||||
(defun helm-org-in-buffer-headings ()
|
||||
"Preconfigured helm for org buffer headings."
|
||||
(interactive)
|
||||
(let ((helm-org-show-filename nil))
|
||||
(let (helm-org-show-filename helm-org-format-outline-path)
|
||||
(helm :sources (helm-source-org-headings-for-files
|
||||
(list (current-buffer)))
|
||||
:candidate-number-limit 99999
|
||||
:preselect (helm-org-in-buffer-preselect)
|
||||
:truncate-lines helm-org-truncate-lines
|
||||
:buffer "*helm org inbuffer*")))
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
(define-package "helm" "20160818.623" "Helm is an Emacs incremental and narrowing framework"
|
||||
'((emacs "24.3")
|
||||
(define-package "helm" "20160914.813" "Helm is an Emacs incremental and narrowing framework"
|
||||
'((emacs "24.4")
|
||||
(async "1.9")
|
||||
(popup "0.5.3")
|
||||
(helm-core "1.9.9"))
|
||||
(helm-core "2.1.0"))
|
||||
:url "https://emacs-helm.github.io/helm/")
|
||||
;; Local Variables:
|
||||
;; no-byte-compile: t
|
||||
@ -164,7 +164,7 @@ i.e Don't replace inside a word, regexp is surrounded with \\bregexp\\b."
|
||||
(helm-highlight-current-line))
|
||||
|
||||
(defun helm-regexp-kill-new (input)
|
||||
(kill-new input)
|
||||
(kill-new (substring-no-properties input))
|
||||
(message "Killed: %s" input))
|
||||
|
||||
|
||||
@ -249,9 +249,6 @@ replace with STR as yanked string."
|
||||
(set-mark (mark t)))
|
||||
nil)
|
||||
|
||||
(defadvice push-mark (around helm-push-mark-mode)
|
||||
(helm--push-mark location nomsg activate))
|
||||
|
||||
;;;###autoload
|
||||
(define-minor-mode helm-push-mark-mode
|
||||
"Provide an improved version of `push-mark'.
|
||||
@ -260,12 +257,8 @@ the `global-mark-ring' after each new visit."
|
||||
:group 'helm-ring
|
||||
:global t
|
||||
(if helm-push-mark-mode
|
||||
(if (fboundp 'advice-add)
|
||||
(advice-add 'push-mark :override #'helm--push-mark)
|
||||
(ad-activate 'push-mark))
|
||||
(if (fboundp 'advice-remove)
|
||||
(advice-remove 'push-mark #'helm--push-mark)
|
||||
(ad-deactivate 'push-mark))))
|
||||
(advice-add 'push-mark :override #'helm--push-mark)
|
||||
(advice-remove 'push-mark #'helm--push-mark)))
|
||||
|
||||
;;;; <Register>
|
||||
;;; Insert from register
|
||||
@ -35,22 +35,41 @@
|
||||
|
||||
(defcustom helm-top-command
|
||||
(cl-case system-type
|
||||
(darwin "env COLUMNS=%s ps -axo pid,user,pri,nice,ucomm,tty,start,vsz,%%cpu,%%mem,etime,command")
|
||||
(darwin "env COLUMNS=%s ps -axo pid,user,pri,nice,ucomm,tty,start_time,vsz,%%cpu,%%mem,etime,command")
|
||||
(t "env COLUMNS=%s top -b -n 1"))
|
||||
"Top command used to display output of top.
|
||||
To use top command, a version supporting batch mode (-b option) is needed.
|
||||
On Mac OSX top command doesn't support this, so ps command
|
||||
is used by default instead.
|
||||
If you modify this the number and order of elements displayed
|
||||
should be the same as top command to have the sort commands
|
||||
working properly, that is 12 elements with the 2 first being
|
||||
PID and USER and the last 4 being %CPU, %MEM, TIME and COMMAND.
|
||||
A format string where %s will be replaced with `frame-width'."
|
||||
A format string where %s will be replaced with `frame-width'.
|
||||
|
||||
To use 'top' command, a version supporting batch mode (-b option) is needed.
|
||||
On Mac OSX 'top' command doesn't support this, so ps command
|
||||
is used instead by default.
|
||||
Normally 'top' command output have 12 columns, but in some versions you may
|
||||
have less than this, so you can either customize top to use 12 columns with the
|
||||
interactives 'f' and 'W' commands of top, or modify
|
||||
`helm-top-sort-colums-alist' to fit with the number of columns
|
||||
your 'top' command is using.
|
||||
|
||||
If you modify 'ps' command be sure that 'pid' comes in first
|
||||
and \"env COLUMNS=%s\" is specified at beginning of command.
|
||||
Ensure also that no elements contain spaces (e.g use start_time and not start).
|
||||
Same as for 'top' you can customize `helm-top-sort-colums-alist' to make sort commands
|
||||
working properly according to your settings."
|
||||
:group 'helm-sys
|
||||
:type 'string)
|
||||
|
||||
(defcustom helm-top-sort-colums-alist '((com . 11)
|
||||
(mem . 9)
|
||||
(cpu . 8)
|
||||
(user . 1))
|
||||
"Allow defining which column to use when sorting output of top/ps command.
|
||||
Only com, mem, cpu and user are sorted, so no need to put something else there,
|
||||
it will have no effect.
|
||||
Note that column numbers are counted from zero, i.e column 1 is the nth 0 column."
|
||||
:group 'helm-sys
|
||||
:type '(alist :key-type symbol :value-type (integer :tag "Column number")))
|
||||
|
||||
(defcustom helm-top-poll-delay 1.5
|
||||
"Helm top poll after this dealy when `helm-top-poll-mode' is enabled.
|
||||
"Helm top poll after this delay when `helm-top-poll-mode' is enabled.
|
||||
The minimal delay allowed is 1.5, if less than this helm-top will use 1.5."
|
||||
:group 'helm-sys
|
||||
:type 'float)
|
||||
@ -64,7 +83,8 @@ being idle."
|
||||
|
||||
(defcustom helm-top-poll-preselection 'linum
|
||||
"Stay on same line or follow candidate when `helm-top-poll' update display.
|
||||
Possible values are 'candidate or 'linum."
|
||||
Possible values are 'candidate or 'linum.
|
||||
This affect also sorting functions in the same way."
|
||||
:group'helm-sys
|
||||
:type '(radio :tag "Preferred preselection action for helm-top"
|
||||
(const :tag "Follow candidate" candidate)
|
||||
@ -164,6 +184,7 @@ Possible values are 'candidate or 'linum."
|
||||
:persistent-action #'helm-top-sh-persistent-action
|
||||
:persistent-help "SIGTERM"
|
||||
:help-message 'helm-top-help-message
|
||||
:mode-line 'helm-top-mode-line
|
||||
:follow 'never
|
||||
:keymap helm-top-map
|
||||
:filtered-candidate-transformer #'helm-top-sort-transformer
|
||||
@ -183,10 +204,11 @@ Return empty string for non--valid candidates."
|
||||
(cons helm-top--line lst))))
|
||||
|
||||
(defun helm-top--skip-top-line ()
|
||||
(let ((src-name (assoc-default 'name (helm-get-current-source))))
|
||||
(let* ((src (helm-get-current-source))
|
||||
(src-name (assoc-default 'name src)))
|
||||
(helm-aif (and (stringp src-name)
|
||||
(string= src-name "Top")
|
||||
(helm-get-selection nil t))
|
||||
(helm-get-selection nil t src))
|
||||
(when (string-match-p "^ *PID" it)
|
||||
(helm-next-line)))))
|
||||
|
||||
@ -258,55 +280,69 @@ Show actions only on line starting by a PID."
|
||||
(defun helm-top-sort-by-com (s1 s2)
|
||||
(let* ((split-1 (split-string s1))
|
||||
(split-2 (split-string s2))
|
||||
(com-1 (nth 11 split-1))
|
||||
(com-2 (nth 11 split-2)))
|
||||
(col (cdr (assq 'com helm-top-sort-colums-alist)))
|
||||
(com-1 (nth col split-1))
|
||||
(com-2 (nth col split-2)))
|
||||
(string< com-1 com-2)))
|
||||
|
||||
(defun helm-top-sort-by-mem (s1 s2)
|
||||
(let* ((split-1 (split-string s1))
|
||||
(split-2 (split-string s2))
|
||||
(mem-1 (string-to-number (nth 9 split-1)))
|
||||
(mem-2 (string-to-number (nth 9 split-2))))
|
||||
(col (cdr (assq 'mem helm-top-sort-colums-alist)))
|
||||
(mem-1 (string-to-number (nth col split-1)))
|
||||
(mem-2 (string-to-number (nth col split-2))))
|
||||
(> mem-1 mem-2)))
|
||||
|
||||
(defun helm-top-sort-by-cpu (s1 s2)
|
||||
(let* ((split-1 (split-string s1))
|
||||
(split-2 (split-string s2))
|
||||
(col (cdr (assq 'cpu helm-top-sort-colums-alist)))
|
||||
(cpu-1 (string-to-number (nth col split-1)))
|
||||
(cpu-2 (string-to-number (nth col split-2))))
|
||||
(> cpu-1 cpu-2)))
|
||||
|
||||
(defun helm-top-sort-by-user (s1 s2)
|
||||
(let* ((split-1 (split-string s1))
|
||||
(split-2 (split-string s2))
|
||||
(user-1 (nth 1 split-1))
|
||||
(user-2 (nth 1 split-2)))
|
||||
(col (cdr (assq 'user helm-top-sort-colums-alist)))
|
||||
(user-1 (nth col split-1))
|
||||
(user-2 (nth col split-2)))
|
||||
(string< user-1 user-2)))
|
||||
|
||||
(defun helm-top--preselect-fn ()
|
||||
(if (eq helm-top-poll-preselection 'linum)
|
||||
`(lambda ()
|
||||
(goto-char (point-min))
|
||||
(forward-line ,(helm-candidate-number-at-point)))
|
||||
(replace-regexp-in-string
|
||||
"[0-9]+" "[0-9]+"
|
||||
(regexp-quote (helm-get-selection nil t)))))
|
||||
|
||||
(defun helm-top-run-sort-by-com ()
|
||||
(interactive)
|
||||
(helm-top-set-mode-line "COM")
|
||||
(setq helm-top-sort-fn 'helm-top-sort-by-com)
|
||||
(helm-update (replace-regexp-in-string
|
||||
"[0-9]+" "[0-9]+"
|
||||
(regexp-quote (helm-get-selection nil t)))))
|
||||
(helm-update (helm-top--preselect-fn)))
|
||||
|
||||
(defun helm-top-run-sort-by-cpu ()
|
||||
(interactive)
|
||||
(helm-top-set-mode-line "CPU")
|
||||
(setq helm-top-sort-fn nil)
|
||||
(helm-update (replace-regexp-in-string
|
||||
"[0-9]+" "[0-9]+"
|
||||
(regexp-quote (helm-get-selection nil t)))))
|
||||
(let ((com (nth 2 (split-string helm-top-command))))
|
||||
(helm-top-set-mode-line "CPU")
|
||||
(setq helm-top-sort-fn (and (null (string= com "top"))
|
||||
'helm-top-sort-by-cpu))
|
||||
(helm-update (helm-top--preselect-fn))))
|
||||
|
||||
(defun helm-top-run-sort-by-mem ()
|
||||
(interactive)
|
||||
(helm-top-set-mode-line "MEM")
|
||||
(setq helm-top-sort-fn 'helm-top-sort-by-mem)
|
||||
(helm-update (replace-regexp-in-string
|
||||
"[0-9]+" "[0-9]+"
|
||||
(regexp-quote (helm-get-selection nil t)))))
|
||||
(helm-update (helm-top--preselect-fn)))
|
||||
|
||||
(defun helm-top-run-sort-by-user ()
|
||||
(interactive)
|
||||
(helm-top-set-mode-line "USER")
|
||||
(setq helm-top-sort-fn 'helm-top-sort-by-user)
|
||||
(helm-update (replace-regexp-in-string
|
||||
"[0-9]+" "[0-9]+"
|
||||
(regexp-quote (helm-get-selection nil t)))))
|
||||
(helm-update (helm-top--preselect-fn)))
|
||||
|
||||
|
||||
;;; X RandR resolution change
|
||||
@ -115,7 +115,8 @@
|
||||
(setf (slot-value source 'keymap) helm-bookmark-map)
|
||||
(setf (slot-value source 'mode-line) (list "Bookmark(s)" helm-mode-line-string))
|
||||
(setf (slot-value source 'help-message) 'helm-bookmark-help-message)
|
||||
(setf (slot-value source 'migemo) t))
|
||||
(setf (slot-value source 'migemo) t)
|
||||
(setf (slot-value source 'follow) 'never))
|
||||
|
||||
|
||||
;; Buffers
|
||||
@ -211,16 +211,6 @@ In this case last position is added to the register
|
||||
"Face used to highlight item matched in a selected line."
|
||||
:group 'helm-faces)
|
||||
|
||||
|
||||
;; CUA workaround
|
||||
(defadvice cua-delete-region (around helm-avoid-cua activate)
|
||||
(ignore-errors ad-do-it))
|
||||
|
||||
(defadvice copy-region-as-kill (around helm-avoid-cua activate)
|
||||
(if cua-mode
|
||||
(ignore-errors ad-do-it)
|
||||
ad-do-it))
|
||||
|
||||
|
||||
;;; Utils functions
|
||||
;;
|
||||
@ -680,15 +670,16 @@ If STRING is non--nil return instead a space separated string."
|
||||
(member (assoc-default 'name (helm-get-current-source))
|
||||
helm-sources-using-help-echo-popup))
|
||||
(setq helm--show-help-echo-timer
|
||||
(run-with-idle-timer
|
||||
(run-with-timer
|
||||
1 nil
|
||||
(lambda ()
|
||||
(with-helm-window
|
||||
(helm-aif (get-text-property (point-at-bol) 'help-echo)
|
||||
(popup-tip (concat " " (abbreviate-file-name it))
|
||||
:around nil
|
||||
:point (save-excursion
|
||||
(end-of-visual-line) (point))))))))))
|
||||
(save-selected-window
|
||||
(with-helm-window
|
||||
(helm-aif (get-text-property (point-at-bol) 'help-echo)
|
||||
(popup-tip (concat " " (abbreviate-file-name it))
|
||||
:around nil
|
||||
:point (save-excursion
|
||||
(end-of-visual-line) (point)))))))))))
|
||||
|
||||
;;;###autoload
|
||||
(define-minor-mode helm-popup-tip-mode
|
||||
@ -1,373 +0,0 @@
|
||||
;;; helm-multi-match.el --- Multiple regexp matching methods for helm -*- lexical-binding: t -*-
|
||||
|
||||
;; Original Author: rubikitch
|
||||
|
||||
;; Copyright (C) 2008 ~ 2011 rubikitch
|
||||
;; Copyright (C) 2011 ~ 2016 Thierry Volpiatto <thierry.volpiatto@gmail.com>
|
||||
|
||||
;; Author: Thierry Volpiatto <thierry.volpiatto@gmail.com>
|
||||
;; URL: http://github.com/emacs-helm/helm
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'cl-lib)
|
||||
(require 'helm-lib)
|
||||
|
||||
|
||||
(defgroup helm-multi-match nil
|
||||
"Helm multi match."
|
||||
:group 'helm)
|
||||
|
||||
(defcustom helm-mm-matching-method 'multi3
|
||||
"Matching method for helm match plugin.
|
||||
You can set here different methods to match candidates in helm.
|
||||
Here are the possible value of this symbol and their meaning:
|
||||
- multi1: Respect order, prefix of pattern must match.
|
||||
- multi2: Same but with partial match.
|
||||
- multi3: The best, multiple regexp match, allow negation.
|
||||
- multi3p: Same but prefix must match.
|
||||
|
||||
Default is multi3, you should keep this for a better experience.
|
||||
|
||||
Note that multi1 and multi3p are incompatible with fuzzy matching
|
||||
in file completion and by the way fuzzy matching will be disabled there
|
||||
when these options are used."
|
||||
:type '(radio :tag "Matching methods for helm"
|
||||
(const :tag "Multiple regexp 1 ordered with prefix match" multi1)
|
||||
(const :tag "Multiple regexp 2 ordered with partial match" multi2)
|
||||
(const :tag "Multiple regexp 3 matching no order, partial, best." multi3)
|
||||
(const :tag "Multiple regexp 3p matching with prefix match" multi3p))
|
||||
:group 'helm-multi-match)
|
||||
|
||||
|
||||
;; Internal
|
||||
(defvar helm-mm-default-match-functions
|
||||
'(helm-mm-exact-match helm-mm-match))
|
||||
(defvar helm-mm-default-search-functions
|
||||
'(helm-mm-exact-search helm-mm-search))
|
||||
|
||||
|
||||
;;; Build regexps
|
||||
;;
|
||||
;;
|
||||
(defvar helm-mm-space-regexp "[\\ ] "
|
||||
"Regexp to represent space itself in multiple regexp match.")
|
||||
|
||||
(defun helm-mm-split-pattern (pattern)
|
||||
"Split PATTERN if it contain spaces and return resulting list.
|
||||
If spaces in PATTERN are escaped, don't split at this place.
|
||||
i.e \"foo bar\"=> (\"foo\" \"bar\")
|
||||
but \"foo\ bar\"=> (\"foobar\")."
|
||||
(if (string= pattern "")
|
||||
'("")
|
||||
(cl-loop for s in (split-string
|
||||
(replace-regexp-in-string helm-mm-space-regexp
|
||||
"\000\000" pattern)
|
||||
" " t)
|
||||
collect (replace-regexp-in-string "\000\000" " " s))))
|
||||
|
||||
(defun helm-mm-1-make-regexp (pattern)
|
||||
"Replace spaces in PATTERN with \"\.*\"."
|
||||
(mapconcat 'identity (helm-mm-split-pattern pattern) ".*"))
|
||||
|
||||
|
||||
;;; Exact match.
|
||||
;;
|
||||
;;
|
||||
;; Internal.
|
||||
(defvar helm-mm-exact-pattern-str nil)
|
||||
(defvar helm-mm-exact-pattern-real nil)
|
||||
|
||||
(defun helm-mm-exact-get-pattern (pattern)
|
||||
(unless (equal pattern helm-mm-exact-pattern-str)
|
||||
(setq helm-mm-exact-pattern-str pattern
|
||||
helm-mm-exact-pattern-real (concat "\n" pattern "\n")))
|
||||
helm-mm-exact-pattern-real)
|
||||
|
||||
|
||||
(cl-defun helm-mm-exact-match (str &optional (pattern helm-pattern))
|
||||
(if case-fold-search
|
||||
(progn
|
||||
(setq str (downcase str)
|
||||
pattern (downcase pattern))
|
||||
(string= str pattern))
|
||||
(string= str pattern)))
|
||||
|
||||
(defun helm-mm-exact-search (pattern &rest _ignore)
|
||||
(and (search-forward (helm-mm-exact-get-pattern pattern) nil t)
|
||||
(forward-line -1)))
|
||||
|
||||
|
||||
;;; Prefix match
|
||||
;;
|
||||
;;
|
||||
;; Internal
|
||||
(defvar helm-mm-prefix-pattern-str nil)
|
||||
(defvar helm-mm-prefix-pattern-real nil)
|
||||
|
||||
(defun helm-mm-prefix-get-pattern (pattern)
|
||||
(unless (equal pattern helm-mm-prefix-pattern-str)
|
||||
(setq helm-mm-prefix-pattern-str pattern
|
||||
helm-mm-prefix-pattern-real (concat "\n" pattern)))
|
||||
helm-mm-prefix-pattern-real)
|
||||
|
||||
(defun helm-mm-prefix-match (str &optional pattern)
|
||||
;; In filename completion basename and basedir may be
|
||||
;; quoted, unquote them for string comparison (Issue #1283).
|
||||
(setq pattern (replace-regexp-in-string
|
||||
"\\\\" "" (or pattern helm-pattern)))
|
||||
(let ((len (length pattern)))
|
||||
(and (<= len (length str))
|
||||
(string= (substring str 0 len) pattern ))))
|
||||
|
||||
(defun helm-mm-prefix-search (pattern &rest _ignore)
|
||||
(search-forward (helm-mm-prefix-get-pattern pattern) nil t))
|
||||
|
||||
|
||||
;;; Multiple regexp patterns 1 (order is preserved / prefix).
|
||||
;;
|
||||
;;
|
||||
;; Internal
|
||||
(defvar helm-mm-1-pattern-str nil)
|
||||
(defvar helm-mm-1-pattern-real nil)
|
||||
|
||||
(defun helm-mm-1-get-pattern (pattern)
|
||||
(unless (equal pattern helm-mm-1-pattern-str)
|
||||
(setq helm-mm-1-pattern-str pattern
|
||||
helm-mm-1-pattern-real
|
||||
(concat "^" (helm-mm-1-make-regexp pattern))))
|
||||
helm-mm-1-pattern-real)
|
||||
|
||||
(cl-defun helm-mm-1-match (str &optional (pattern helm-pattern))
|
||||
(string-match (helm-mm-1-get-pattern pattern) str))
|
||||
|
||||
(defun helm-mm-1-search (pattern &rest _ignore)
|
||||
(re-search-forward (helm-mm-1-get-pattern pattern) nil t))
|
||||
|
||||
|
||||
;;; Multiple regexp patterns 2 (order is preserved / partial).
|
||||
;;
|
||||
;;
|
||||
;; Internal
|
||||
(defvar helm-mm-2-pattern-str nil)
|
||||
(defvar helm-mm-2-pattern-real nil)
|
||||
|
||||
(defun helm-mm-2-get-pattern (pattern)
|
||||
(unless (equal pattern helm-mm-2-pattern-str)
|
||||
(setq helm-mm-2-pattern-str pattern
|
||||
helm-mm-2-pattern-real
|
||||
(concat "^.*" (helm-mm-1-make-regexp pattern))))
|
||||
helm-mm-2-pattern-real)
|
||||
|
||||
(cl-defun helm-mm-2-match (str &optional (pattern helm-pattern))
|
||||
(string-match (helm-mm-2-get-pattern pattern) str))
|
||||
|
||||
(defun helm-mm-2-search (pattern &rest _ignore)
|
||||
(re-search-forward (helm-mm-2-get-pattern pattern) nil t))
|
||||
|
||||
|
||||
;;; Multiple regexp patterns 3 (permutation).
|
||||
;;
|
||||
;;
|
||||
;; Internal
|
||||
(defvar helm-mm-3-pattern-str nil)
|
||||
(defvar helm-mm-3-pattern-list nil)
|
||||
|
||||
(defun helm-mm-3-get-patterns (pattern)
|
||||
"Return `helm-mm-3-pattern-list', a list of predicate/regexp cons cells.
|
||||
e.g ((identity . \"foo\") (identity . \"bar\")).
|
||||
This is done only if `helm-mm-3-pattern-str' is same as PATTERN."
|
||||
(unless (equal pattern helm-mm-3-pattern-str)
|
||||
(setq helm-mm-3-pattern-str pattern
|
||||
helm-mm-3-pattern-list
|
||||
(helm-mm-3-get-patterns-internal pattern)))
|
||||
helm-mm-3-pattern-list)
|
||||
|
||||
(defun helm-mm-3-get-patterns-internal (pattern)
|
||||
"Return a list of predicate/regexp cons cells.
|
||||
e.g ((identity . \"foo\") (identity . \"bar\"))."
|
||||
(unless (string= pattern "")
|
||||
(cl-loop for pat in (helm-mm-split-pattern pattern)
|
||||
collect (if (string= "!" (substring pat 0 1))
|
||||
(cons 'not (substring pat 1))
|
||||
(cons 'identity pat)))))
|
||||
|
||||
(cl-defun helm-mm-3-match (str &optional (pattern helm-pattern))
|
||||
"Check if PATTERN match STR.
|
||||
When PATTERN contain a space, it is splitted and matching is done
|
||||
with the several resulting regexps against STR.
|
||||
e.g \"bar foo\" will match \"foobar\" and \"barfoo\".
|
||||
Argument PATTERN, a string, is transformed in a list of
|
||||
cons cell with `helm-mm-3-get-patterns' if it contain a space.
|
||||
e.g \"foo bar\"=>((identity . \"foo\") (identity . \"bar\")).
|
||||
Then each predicate of cons cell(s) is called with regexp of same
|
||||
cons cell against STR (a candidate).
|
||||
i.e (identity (string-match \"foo\" \"foo bar\")) => t."
|
||||
(let ((pat (helm-mm-3-get-patterns pattern)))
|
||||
(cl-loop for (predicate . regexp) in pat
|
||||
always (funcall predicate
|
||||
(condition-case _err
|
||||
;; FIXME: Probably do nothing when
|
||||
;; using fuzzy leaving the job
|
||||
;; to the fuzzy fn.
|
||||
(string-match regexp str)
|
||||
(invalid-regexp nil))))))
|
||||
|
||||
(defun helm-mm-3-search-base (pattern searchfn1 searchfn2)
|
||||
"Try to find PATTERN in `helm-buffer' with SEARCHFN1 and SEARCHFN2.
|
||||
This is the search function for `candidates-in-buffer' enabled sources.
|
||||
Use the same method as `helm-mm-3-match' except it search in buffer
|
||||
instead of matching on a string.
|
||||
i.e (identity (re-search-forward \"foo\" (point-at-eol) t)) => t."
|
||||
(cl-loop with pat = (if (stringp pattern)
|
||||
(helm-mm-3-get-patterns pattern)
|
||||
pattern)
|
||||
when (eq (caar pat) 'not) return
|
||||
;; Pass the job to `helm-search-match-part'.
|
||||
(prog1 (list (point-at-bol) (point-at-eol))
|
||||
(forward-line 1))
|
||||
while (condition-case _err
|
||||
(funcall searchfn1 (or (cdar pat) "") nil t)
|
||||
(invalid-regexp nil))
|
||||
for bol = (point-at-bol)
|
||||
for eol = (point-at-eol)
|
||||
if (cl-loop for (pred . str) in (cdr pat) always
|
||||
(progn (goto-char bol)
|
||||
(funcall pred (condition-case _err
|
||||
(funcall searchfn2 str eol t)
|
||||
(invalid-regexp nil)))))
|
||||
do (goto-char eol) and return t
|
||||
else do (goto-char eol)
|
||||
finally return nil))
|
||||
|
||||
(defun helm-mm-3-search (pattern &rest _ignore)
|
||||
(when (stringp pattern)
|
||||
(setq pattern (helm-mm-3-get-patterns pattern)))
|
||||
(helm-mm-3-search-base
|
||||
pattern 're-search-forward 're-search-forward))
|
||||
|
||||
;;; mp-3 with migemo
|
||||
;;
|
||||
;;
|
||||
(defvar helm-mm--previous-migemo-info nil
|
||||
"[Internal] Cache previous migemo query.")
|
||||
(make-local-variable 'helm-mm--previous-migemo-info)
|
||||
|
||||
(declare-function migemo-get-pattern "ext:migemo.el")
|
||||
(declare-function migemo-search-pattern-get "ext:migemo.el")
|
||||
|
||||
(define-minor-mode helm-migemo-mode
|
||||
"Enable migemo in helm.
|
||||
It will be available in the sources handling it,
|
||||
i.e the sources which have the slot :migemo with non--nil value."
|
||||
:lighter " Hmio"
|
||||
:group 'helm
|
||||
:global t
|
||||
(cl-assert (featurep 'migemo)
|
||||
nil "No feature called migemo found, install migemo.el."))
|
||||
|
||||
(defun helm-mm-migemo-get-pattern (pattern)
|
||||
(let ((regex (migemo-get-pattern pattern)))
|
||||
(if (ignore-errors (string-match regex "") t)
|
||||
(concat regex "\\|" pattern) pattern)))
|
||||
|
||||
(defun helm-mm-migemo-search-pattern-get (pattern)
|
||||
(let ((regex (migemo-search-pattern-get pattern)))
|
||||
(if (ignore-errors (string-match regex "") t)
|
||||
(concat regex "\\|" pattern) pattern)))
|
||||
|
||||
(defun helm-mm-migemo-string-match (pattern str)
|
||||
"Migemo version of `string-match'."
|
||||
(unless (assoc pattern helm-mm--previous-migemo-info)
|
||||
(with-helm-buffer
|
||||
(setq helm-mm--previous-migemo-info
|
||||
(push (cons pattern (helm-mm-migemo-get-pattern pattern))
|
||||
helm-mm--previous-migemo-info))))
|
||||
(string-match (assoc-default pattern helm-mm--previous-migemo-info) str))
|
||||
|
||||
(cl-defun helm-mm-3-migemo-match (str &optional (pattern helm-pattern))
|
||||
(and helm-migemo-mode
|
||||
(cl-loop for (pred . re) in (helm-mm-3-get-patterns pattern)
|
||||
always (funcall pred (helm-mm-migemo-string-match re str)))))
|
||||
|
||||
(defun helm-mm-migemo-forward (word &optional bound noerror count)
|
||||
(with-helm-buffer
|
||||
(unless (assoc word helm-mm--previous-migemo-info)
|
||||
(setq helm-mm--previous-migemo-info
|
||||
(push (cons word (if (delq 'ascii (find-charset-string word))
|
||||
word
|
||||
(helm-mm-migemo-search-pattern-get word)))
|
||||
helm-mm--previous-migemo-info))))
|
||||
(re-search-forward
|
||||
(assoc-default word helm-mm--previous-migemo-info) bound noerror count))
|
||||
|
||||
(defun helm-mm-3-migemo-search (pattern &rest _ignore)
|
||||
(and helm-migemo-mode
|
||||
(helm-mm-3-search-base
|
||||
pattern 'helm-mm-migemo-forward 'helm-mm-migemo-forward)))
|
||||
|
||||
|
||||
;;; mp-3p- (multiple regexp pattern 3 with prefix search)
|
||||
;;
|
||||
;;
|
||||
(defun helm-mm-3p-match (str &optional pattern)
|
||||
"Check if PATTERN match STR.
|
||||
Same as `helm-mm-3-match' but more strict, matching against prefix also.
|
||||
e.g \"bar foo\" will match \"barfoo\" but not \"foobar\" contrarily to
|
||||
`helm-mm-3-match'."
|
||||
(let* ((pat (helm-mm-3-get-patterns (or pattern helm-pattern)))
|
||||
(first (car pat)))
|
||||
(and (funcall (car first) (helm-mm-prefix-match str (cdr first)))
|
||||
(cl-loop for (predicate . regexp) in (cdr pat)
|
||||
always (funcall predicate (string-match regexp str))))))
|
||||
|
||||
(defun helm-mm-3p-search (pattern &rest _ignore)
|
||||
(when (stringp pattern)
|
||||
(setq pattern (helm-mm-3-get-patterns pattern)))
|
||||
(helm-mm-3-search-base
|
||||
pattern 'helm-mm-prefix-search 're-search-forward))
|
||||
|
||||
|
||||
;;; Generic multi-match/search functions
|
||||
;;
|
||||
;;
|
||||
(cl-defun helm-mm-match (str &optional (pattern helm-pattern))
|
||||
(let ((fun (cl-ecase helm-mm-matching-method
|
||||
(multi1 #'helm-mm-1-match)
|
||||
(multi2 #'helm-mm-2-match)
|
||||
(multi3 #'helm-mm-3-match)
|
||||
(multi3p #'helm-mm-3p-match))))
|
||||
(funcall fun str pattern)))
|
||||
|
||||
(defun helm-mm-search (pattern &rest _ignore)
|
||||
(let ((fun (cl-ecase helm-mm-matching-method
|
||||
(multi1 #'helm-mm-1-search)
|
||||
(multi2 #'helm-mm-2-search)
|
||||
(multi3 #'helm-mm-3-search)
|
||||
(multi3p #'helm-mm-3p-search))))
|
||||
(funcall fun pattern)))
|
||||
|
||||
|
||||
(provide 'helm-multi-match)
|
||||
|
||||
|
||||
;; Local Variables:
|
||||
;; byte-compile-warnings: (not cl-functions obsolete)
|
||||
;; coding: utf-8
|
||||
;; indent-tabs-mode: nil
|
||||
;; End:
|
||||
|
||||
;;; helm-multi-match.el ends here
|
||||
@ -1,9 +1,9 @@
|
||||
;;; helm-core-autoloads.el --- automatically extracted autoloads
|
||||
;;
|
||||
;;; Code:
|
||||
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
||||
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
|
||||
|
||||
;;;### (autoloads nil "helm" "helm.el" (22454 5318 318163 35000))
|
||||
;;;### (autoloads nil "helm" "helm.el" (22490 24934 255411 690000))
|
||||
;;; Generated autoloads from helm.el
|
||||
|
||||
(autoload 'helm-define-multi-key "helm" "\
|
||||
@ -35,7 +35,7 @@ See `helm-define-multi-key'.
|
||||
|
||||
\(fn NAME DOCSTRING FUNS &optional DELAY)" nil t)
|
||||
|
||||
(function-put 'helm-multi-key-defun 'lisp-indent-function '2)
|
||||
(put 'helm-multi-key-defun 'lisp-indent-function '2)
|
||||
|
||||
(autoload 'helm-define-key-with-subkeys "helm" "\
|
||||
Defines in MAP a KEY and SUBKEY to COMMAND.
|
||||
@ -69,7 +69,7 @@ NOTE: SUBKEY and OTHER-SUBKEYS bindings support char syntax only
|
||||
|
||||
\(fn MAP KEY SUBKEY COMMAND &optional OTHER-SUBKEYS MENU EXIT-FN)" nil nil)
|
||||
|
||||
(function-put 'helm-define-key-with-subkeys 'lisp-indent-function '1)
|
||||
(put 'helm-define-key-with-subkeys 'lisp-indent-function '1)
|
||||
|
||||
(autoload 'helm-debug-open-last-log "helm" "\
|
||||
Open helm log file or buffer of last helm session.
|
||||
@ -188,7 +188,7 @@ Enable/disable helm debugging from outside of helm session.
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil nil ("helm-core-pkg.el" "helm-lib.el" "helm-multi-match.el"
|
||||
;;;;;; "helm-source.el") (22454 5318 397164 892000))
|
||||
;;;;;; "helm-source.el") (22490 24934 280627 285000))
|
||||
|
||||
;;;***
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
(define-package "helm-core" "20160818.5" "Development files for Helm"
|
||||
'((emacs "24.3")
|
||||
(define-package "helm-core" "20160913.219" "Development files for Helm"
|
||||
'((emacs "24.4")
|
||||
(async "1.9"))
|
||||
:url "https://emacs-helm.github.io/helm/")
|
||||
;; Local Variables:
|
||||
@ -104,6 +104,33 @@ When only `add-text-properties' is available APPEND is ignored."
|
||||
symbols)
|
||||
,@body))
|
||||
|
||||
;;; Command loop helper
|
||||
;;
|
||||
(defun helm-this-command ()
|
||||
"Returns the actual command in action.
|
||||
Like `this-command' but return the real command,
|
||||
and not `exit-minibuffer' or other unwanted functions."
|
||||
(cl-loop with bl = '(helm-maybe-exit-minibuffer
|
||||
helm-confirm-and-exit-minibuffer
|
||||
helm-exit-minibuffer
|
||||
exit-minibuffer)
|
||||
for count from 1 to 50
|
||||
for btf = (backtrace-frame count)
|
||||
for fn = (cl-second btf)
|
||||
if (and
|
||||
;; In some case we may have in the way an
|
||||
;; advice compiled resulting in byte-code,
|
||||
;; ignore it (Issue #691).
|
||||
(symbolp fn)
|
||||
(commandp fn)
|
||||
(not (memq fn bl)))
|
||||
return fn
|
||||
else
|
||||
if (and (eq fn 'call-interactively)
|
||||
(> (length btf) 2))
|
||||
return (cadr (cdr btf))))
|
||||
|
||||
|
||||
;;; Iterators
|
||||
;;
|
||||
(defun helm-iter-list (seq)
|
||||
@ -167,9 +194,6 @@ of `cl-return' is possible to exit the loop."
|
||||
(progn ,@(cdr clause1))
|
||||
(helm-acond ,@(cdr clauses))))))))
|
||||
|
||||
(defun helm-current-line-contents ()
|
||||
"Current line string without properties."
|
||||
(buffer-substring-no-properties (point-at-bol) (point-at-eol)))
|
||||
|
||||
;;; Fuzzy matching routines
|
||||
;;
|
||||
@ -403,6 +427,35 @@ ARGS is (cand1 cand2 ...) or ((disp1 . real1) (disp2 . real2) ...)
|
||||
collect (cons (car arg) (funcall function (cdr arg)))
|
||||
else
|
||||
collect (funcall function arg)))
|
||||
|
||||
(defun helm-append-at-nth (seq elm index)
|
||||
"Append ELM at INDEX in SEQ."
|
||||
(let ((len (length seq)))
|
||||
(cond ((> index len) (setq index len))
|
||||
((< index 0) (setq index 0)))
|
||||
(if (zerop index)
|
||||
(append elm seq)
|
||||
(cl-loop for i in seq
|
||||
for count from 1 collect i
|
||||
when (= count index)
|
||||
if (listp elm) append elm
|
||||
else collect elm))))
|
||||
|
||||
(defun helm-source-by-name (name &optional sources)
|
||||
"Get a Helm source in SOURCES by NAME.
|
||||
|
||||
Optional argument SOURCES is a list of Helm sources. The default
|
||||
value is computed with `helm-get-sources' which is faster
|
||||
than specifying SOURCES because sources are cached."
|
||||
(cl-loop with src-list = (if sources
|
||||
(cl-loop for src in sources
|
||||
collect (if (listp src)
|
||||
src
|
||||
(symbol-value src)))
|
||||
(helm-get-sources))
|
||||
for source in src-list
|
||||
thereis (and (string= name (assoc-default 'name source)) source)))
|
||||
|
||||
|
||||
;;; Strings processing.
|
||||
;;
|
||||
@ -465,6 +518,10 @@ Add spaces at end if needed to reach WIDTH when STR is shorter than WIDTH."
|
||||
"Quote whitespace, if some, in string CANDIDATE."
|
||||
(replace-regexp-in-string " " "\\\\ " candidate))
|
||||
|
||||
(defun helm-current-line-contents ()
|
||||
"Current line string without properties."
|
||||
(buffer-substring-no-properties (point-at-bol) (point-at-eol)))
|
||||
|
||||
|
||||
;;; Symbols routines
|
||||
;;
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user