Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 332 lines (283 sloc) 11.456 kb
530d89f Thierry Volpiatto Enable lexical-binding in all files.
thierryvolpiatto authored
1 ;;; helm-misc.el --- Various functions for helm -*- lexical-binding: t -*-
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
2
064302a Thierry Volpiatto Update copyrights.
thierryvolpiatto authored
3 ;; Copyright (C) 2012 ~ 2014 Thierry Volpiatto <thierry.volpiatto@gmail.com>
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
4
5 ;; This program is free software; you can redistribute it and/or modify
6 ;; it under the terms of the GNU General Public License as published by
7 ;; the Free Software Foundation, either version 3 of the License, or
8 ;; (at your option) any later version.
9
10 ;; This program is distributed in the hope that it will be useful,
11 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
12 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 ;; GNU General Public License for more details.
14
15 ;; You should have received a copy of the GNU General Public License
16 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
17
18 ;;; Code:
b740a4b Thierry Volpiatto Finish replacing cl symbols and requiring cl-lib, no compile error.
thierryvolpiatto authored
19 (require 'cl-lib)
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
20 (require 'helm)
21
ba17f09 Thierry Volpiatto Move all defcustoms and faces in their respectives groups and files.
thierryvolpiatto authored
22
23 (defgroup helm-misc nil
24 "Various Applications and libraries for Helm."
25 :group 'helm)
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
26
5173877 Thierry Volpiatto * helm-files.el (helm-ff-highlight-files): Fix prefix non--filenames. Us...
thierryvolpiatto authored
27 (defcustom helm-time-zone-home-location "Paris"
28 "The time zone of your home"
29 :group 'helm-misc
30 :type 'string)
31
e2805a7 Thierry Volpiatto * helm-files.el (helm-source-file-name-history): Use appropriate transfo...
thierryvolpiatto authored
32 (defcustom helm-mini-default-sources '(helm-source-buffers-list
33 helm-source-recentf
34 helm-source-buffer-not-found)
35 "Default sources list used in `helm-mini'."
36 :group 'helm-misc
37 :type '(repeat (choice symbol)))
38
5173877 Thierry Volpiatto * helm-files.el (helm-ff-highlight-files): Fix prefix non--filenames. Us...
thierryvolpiatto authored
39 (defface helm-time-zone-current
9bc2702 Thierry Volpiatto Reindent all again.
thierryvolpiatto authored
40 '((t (:foreground "green")))
5173877 Thierry Volpiatto * helm-files.el (helm-ff-highlight-files): Fix prefix non--filenames. Us...
thierryvolpiatto authored
41 "Face used to colorize current time in `helm-world-time'."
42 :group 'helm-misc)
43
44 (defface helm-time-zone-home
9bc2702 Thierry Volpiatto Reindent all again.
thierryvolpiatto authored
45 '((t (:foreground "red")))
5173877 Thierry Volpiatto * helm-files.el (helm-ff-highlight-files): Fix prefix non--filenames. Us...
thierryvolpiatto authored
46 "Face used to colorize home time in `helm-world-time'."
47 :group 'helm-misc)
48
ba17f09 Thierry Volpiatto Move all defcustoms and faces in their respectives groups and files.
thierryvolpiatto authored
49
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
50 ;;; Latex completion
4e6ddbb Thierry Volpiatto Make declarations with defvar.
thierryvolpiatto authored
51 (defvar LaTeX-math-menu)
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
52 (defun helm-latex-math-candidates ()
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
53 "Collect candidates for latex math completion."
b82caa8 Thierry Volpiatto replace all cl symbol by their cl-lib equivalent.
thierryvolpiatto authored
54 (cl-loop for i in (cddr LaTeX-math-menu)
bc4fb13 Thierry Volpiatto Finally reindent with the cl indentation behavior of 24.4.50.
thierryvolpiatto authored
55 for elm = (cl-loop for s in i when (vectorp s)
56 collect (cons (aref s 0) (aref s 1)))
57 append elm))
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
58
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
59 (defvar helm-source-latex-math
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
60 '((name . "Latex Math Menu")
61 (init . (lambda ()
62 (with-helm-current-buffer
63 (LaTeX-math-mode 1))))
64 (candidate-number-limit . 9999)
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
65 (candidates . helm-latex-math-candidates)
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
66 (action . (lambda (candidate)
67 (call-interactively candidate)))))
68
69
70 ;;; Jabber Contacts (jabber.el)
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
71 (defun helm-jabber-online-contacts ()
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
72 "List online Jabber contacts."
73 (with-no-warnings
dacaf62 Thierry Volpiatto * helm-semantic.el (helm-semantic-default-action): Fix setting tag on pa...
thierryvolpiatto authored
74 (cl-loop for item in (jabber-concat-rosters)
bc4fb13 Thierry Volpiatto Finally reindent with the cl indentation behavior of 24.4.50.
thierryvolpiatto authored
75 when (get item 'connected)
76 collect
77 (if (get item 'name)
78 (cons (get item 'name) item)
79 (cons (symbol-name item) item)))))
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
80
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
81 (defvar helm-source-jabber-contacts
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
82 '((name . "Jabber Contacts")
83 (init . (lambda () (require 'jabber)))
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
84 (candidates . (lambda () (mapcar 'car (helm-jabber-online-contacts))))
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
85 (action . (lambda (x)
86 (jabber-chat-with
87 (jabber-read-account)
88 (symbol-name
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
89 (cdr (assoc x (helm-jabber-online-contacts)))))))))
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
90
91 ;;; World time
92 ;;
b83c4cf Thierry Volpiatto Start fixing unused vars.
thierryvolpiatto authored
93 (defun helm-time-zone-transformer (candidates _source)
b82caa8 Thierry Volpiatto replace all cl symbol by their cl-lib equivalent.
thierryvolpiatto authored
94 (cl-loop for i in candidates
bc4fb13 Thierry Volpiatto Finally reindent with the cl indentation behavior of 24.4.50.
thierryvolpiatto authored
95 collect
96 (cond ((string-match (format-time-string "%H:%M" (current-time)) i)
97 (propertize i 'face 'helm-time-zone-current))
98 ((string-match helm-time-zone-home-location i)
99 (propertize i 'face 'helm-time-zone-home))
100 (t i))))
5173877 Thierry Volpiatto * helm-files.el (helm-ff-highlight-files): Fix prefix non--filenames. Us...
thierryvolpiatto authored
101
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
102 (defvar helm-source-time-world
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
103 '((name . "Time World List")
104 (init . (lambda ()
e1e52fd Victor Deryagin (require 'time) in initialization function of `helm-source-time-world'
vderyagin authored
105 (require 'time)
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
106 (let ((helm-buffer (helm-candidate-buffer 'global)))
107 (with-current-buffer helm-buffer
108 (display-time-world-display display-time-world-list)))))
5173877 Thierry Volpiatto * helm-files.el (helm-ff-highlight-files): Fix prefix non--filenames. Us...
thierryvolpiatto authored
109 (candidates-in-buffer)
110 (filtered-candidate-transformer . helm-time-zone-transformer)))
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
111
112 ;;; LaCarte
113 ;;
6c8573e Thierry Volpiatto * helm-config.el: Update autoload.
thierryvolpiatto authored
114 ;;
366c1a0 Thierry Volpiatto * helm-source.el: Add classes for type function and command.
thierryvolpiatto authored
115 (declare-function lacarte-get-overall-menu-item-alist "ext:lacarte.el" (&optional MAPS))
dc2eb59 Michael Heerdegen improve lacarte.el related stuff
michael-heerdegen authored
116
1d14b77 Michael Heerdegen new fun helm-lacarte-candidate-transformer: propertize key hints with fa...
michael-heerdegen authored
117 (defun helm-lacarte-candidate-transformer (cands)
118 (mapcar (lambda (cand)
1592c28 Thierry Volpiatto Reindent all files.
thierryvolpiatto authored
119 (let* ((item (car cand))
120 (match (string-match "[^>] \\((.*)\\)$" item)))
121 (when match
122 (put-text-property (match-beginning 1) (match-end 1)
123 'face 'helm-M-x-key item))
124 cand))
1d14b77 Michael Heerdegen new fun helm-lacarte-candidate-transformer: propertize key hints with fa...
michael-heerdegen authored
125 cands))
126
366c1a0 Thierry Volpiatto * helm-source.el: Add classes for type function and command.
thierryvolpiatto authored
127 (defclass helm-lacarte (helm-source-sync helm-type-command)
128 ((init :initform (lambda () (require 'lacarte)))
129 (candidates :initform 'helm-lacarte-get-candidates)
130 (candidate-transformer :initform 'helm-lacarte-candidate-transformer)
131 (candidate-number-limit :initform 9999)))
132
133 (defun helm-lacarte-get-candidates (&optional maps)
134 "Extract candidates for menubar using lacarte.el.
135 See http://www.emacswiki.org/cgi-bin/wiki/download/lacarte.el.
136 Optional argument MAPS is a list specifying which keymaps to use: it
137 can contain the symbols `local', `global', and `minor', mean the
138 current local map, current global map, and all current minor maps."
139 (with-helm-current-buffer
140 ;; FIXME: do we still need to remove possible '(nil) candidates.
141 (lacarte-get-overall-menu-item-alist maps)))
dc2eb59 Michael Heerdegen improve lacarte.el related stuff
michael-heerdegen authored
142
6c8573e Thierry Volpiatto * helm-config.el: Update autoload.
thierryvolpiatto authored
143 ;;;###autoload
9e40ab2 Michael Heerdegen helm-browse-menubar: use multiple sources instead of prefix arg (fix #88...
michael-heerdegen authored
144 (defun helm-browse-menubar ()
145 "Helm interface to the menubar using lacarte.el."
146 (interactive)
dc2eb59 Michael Heerdegen improve lacarte.el related stuff
michael-heerdegen authored
147 (require 'lacarte)
9e40ab2 Michael Heerdegen helm-browse-menubar: use multiple sources instead of prefix arg (fix #88...
michael-heerdegen authored
148 (helm :sources (mapcar
149 (lambda (spec) (helm-make-source (car spec) 'helm-lacarte
150 :candidates (lambda () (helm-lacarte-get-candidates (cdr spec)))))
151 '(("Major Mode" . (local))
152 ("Minor Modes" . (minor))
153 ("Global Map" . (global))))
366c1a0 Thierry Volpiatto * helm-source.el: Add classes for type function and command.
thierryvolpiatto authored
154 :buffer "*helm lacarte*"))
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
155
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
156 (defun helm-call-interactively (cmd-or-name)
a1b8c7b Thierry Volpiatto Finish merging and removing obsolete stuff from helm-config.el
thierryvolpiatto authored
157 "Execute CMD-OR-NAME as Emacs command.
158 It is added to `extended-command-history'.
159 `helm-current-prefix-arg' is used as the command's prefix argument."
160 (setq extended-command-history
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
161 (cons (helm-stringify cmd-or-name)
162 (delete (helm-stringify cmd-or-name) extended-command-history)))
a1b8c7b Thierry Volpiatto Finish merging and removing obsolete stuff from helm-config.el
thierryvolpiatto authored
163 (let ((current-prefix-arg helm-current-prefix-arg)
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
164 (cmd (helm-symbolify cmd-or-name)))
a1b8c7b Thierry Volpiatto Finish merging and removing obsolete stuff from helm-config.el
thierryvolpiatto authored
165 (if (stringp (symbol-function cmd))
166 (execute-kbd-macro (symbol-function cmd))
bc4fb13 Thierry Volpiatto Finally reindent with the cl indentation behavior of 24.4.50.
thierryvolpiatto authored
167 (setq this-command cmd)
168 (call-interactively cmd))))
a1b8c7b Thierry Volpiatto Finish merging and removing obsolete stuff from helm-config.el
thierryvolpiatto authored
169
1499497 Thierry Volpiatto * helm-misc.el: Add completion on shell history.
thierryvolpiatto authored
170 ;;; Minibuffer History
a1b8c7b Thierry Volpiatto Finish merging and removing obsolete stuff from helm-config.el
thierryvolpiatto authored
171 ;;
172 ;;
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
173 (defvar helm-source-minibuffer-history
a1b8c7b Thierry Volpiatto Finish merging and removing obsolete stuff from helm-config.el
thierryvolpiatto authored
174 '((name . "Minibuffer History")
175 (header-name . (lambda (name)
176 (format "%s (%s)" name minibuffer-history-variable)))
177 (candidates
178 . (lambda ()
b82caa8 Thierry Volpiatto replace all cl symbol by their cl-lib equivalent.
thierryvolpiatto authored
179 (let ((history (cl-loop for i in
bc4fb13 Thierry Volpiatto Finally reindent with the cl indentation behavior of 24.4.50.
thierryvolpiatto authored
180 (symbol-value minibuffer-history-variable)
181 unless (string= "" i) collect i)))
a1b8c7b Thierry Volpiatto Finish merging and removing obsolete stuff from helm-config.el
thierryvolpiatto authored
182 (if (consp (car history))
183 (mapcar 'prin1-to-string history)
bc4fb13 Thierry Volpiatto Finally reindent with the cl indentation behavior of 24.4.50.
thierryvolpiatto authored
184 history))))
bec9d22 Thierry Volpiatto Revert changes for migemo, add migemo attr to multi-occur.
thierryvolpiatto authored
185 (migemo)
825886b Thierry Volpiatto * helm-misc.el (helm-c-source-minibuffer-history): use multiline.
thierryvolpiatto authored
186 (multiline)
a1b8c7b Thierry Volpiatto Finish merging and removing obsolete stuff from helm-config.el
thierryvolpiatto authored
187 (action . (lambda (candidate)
188 (delete-minibuffer-contents)
189 (insert candidate)))))
190
1499497 Thierry Volpiatto * helm-misc.el: Add completion on shell history.
thierryvolpiatto authored
191 ;;; Shell history
192 ;;
193 ;;
194 (defun helm-comint-input-ring-action (candidate)
195 "Default action for comint history."
196 (with-helm-current-buffer
197 (delete-region (comint-line-beginning-position) (point-max))
198 (insert candidate)))
199
200 (defvar helm-source-comint-input-ring
378c1b7 Evgkeni Sampelnikof helm-comint-input-ring support for all commint modes
sabof authored
201 '((name . "Comint history")
1499497 Thierry Volpiatto * helm-misc.el: Add completion on shell history.
thierryvolpiatto authored
202 (candidates . (lambda ()
203 (with-helm-current-buffer
cf55f88 Evgkeni Sampelnikof Correct use of the ring
sabof authored
204 (ring-elements comint-input-ring))))
1499497 Thierry Volpiatto * helm-misc.el: Add completion on shell history.
thierryvolpiatto authored
205 (action . helm-comint-input-ring-action))
206 "Source that provide helm completion against `comint-input-ring'.")
a1b8c7b Thierry Volpiatto Finish merging and removing obsolete stuff from helm-config.el
thierryvolpiatto authored
207
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
208
209 ;;; Helm ratpoison UI
210 ;;
211 ;;
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
212 (defvar helm-source-ratpoison-commands
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
213 '((name . "Ratpoison Commands")
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
214 (init . helm-ratpoison-commands-init)
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
215 (candidates-in-buffer)
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
216 (action ("Execute the command" . helm-ratpoison-commands-execute))
217 (display-to-real . helm-ratpoison-commands-display-to-real)
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
218 (candidate-number-limit)))
219
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
220 (defun helm-ratpoison-commands-init ()
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
221 (unless (helm-candidate-buffer)
222 (with-current-buffer (helm-candidate-buffer 'global)
223 ;; with ratpoison prefix key
224 (save-excursion
225 (call-process "ratpoison" nil (current-buffer) nil "-c" "help"))
226 (while (re-search-forward "^\\([^ ]+\\) \\(.+\\)$" nil t)
227 (replace-match "<ratpoison> \\1: \\2"))
228 (goto-char (point-max))
229 ;; direct binding
230 (save-excursion
231 (call-process "ratpoison" nil (current-buffer) nil "-c" "help top"))
232 (while (re-search-forward "^\\([^ ]+\\) \\(.+\\)$" nil t)
233 (replace-match "\\1: \\2")))))
234
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
235 (defun helm-ratpoison-commands-display-to-real (display)
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
236 (and (string-match ": " display)
237 (substring display (match-end 0))))
238
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
239 (defun helm-ratpoison-commands-execute (candidate)
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
240 (call-process "ratpoison" nil nil nil "-ic" candidate))
241
8c4c267 Ryo Takaishi add helm-stumpwm-commands.
takaishi authored
242 ;;; Helm stumpwm UI
243 ;;
244 ;;
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
245 (defvar helm-source-stumpwm-commands
8c4c267 Ryo Takaishi add helm-stumpwm-commands.
takaishi authored
246 '((name . "Stumpwm Commands")
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
247 (init . helm-stumpwm-commands-init)
8c4c267 Ryo Takaishi add helm-stumpwm-commands.
takaishi authored
248 (candidates-in-buffer)
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
249 (action ("Execute the command" . helm-stumpwm-commands-execute))
8c4c267 Ryo Takaishi add helm-stumpwm-commands.
takaishi authored
250 (candidate-number-limit)))
251
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
252 (defun helm-stumpwm-commands-init ()
798c81f Thierry Volpiatto reindent.
thierryvolpiatto authored
253 (with-current-buffer (helm-candidate-buffer 'global)
254 (save-excursion
255 (call-process "stumpish" nil (current-buffer) nil "commands"))
256 (while (re-search-forward "[ ]*\\([^ ]+\\)[ ]*\n?" nil t)
257 (replace-match "\n\\1\n"))
258 (delete-blank-lines)
259 (sort-lines nil (point-min) (point-max))
260 (goto-char (point-max))))
8c4c267 Ryo Takaishi add helm-stumpwm-commands.
takaishi authored
261
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
262 (defun helm-stumpwm-commands-execute (candidate)
8c4c267 Ryo Takaishi add helm-stumpwm-commands.
takaishi authored
263 (call-process "stumpish" nil nil nil candidate))
264
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
265 ;;;###autoload
266 (defun helm-world-time ()
267 "Preconfigured `helm' to show world time."
268 (interactive)
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
269 (helm-other-buffer 'helm-source-time-world "*helm world time*"))
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
270
271 ;;;###autoload
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
272 (defun helm-insert-latex-math ()
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
273 "Preconfigured helm for latex math symbols completion."
274 (interactive)
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
275 (helm-other-buffer 'helm-source-latex-math "*helm latex*"))
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
276
277 ;;;###autoload
278 (defun helm-ratpoison-commands ()
279 "Preconfigured `helm' to execute ratpoison commands."
280 (interactive)
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
281 (helm-other-buffer 'helm-source-ratpoison-commands
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
282 "*helm ratpoison commands*"))
283
a1b8c7b Thierry Volpiatto Finish merging and removing obsolete stuff from helm-config.el
thierryvolpiatto authored
284 ;;;###autoload
8c4c267 Ryo Takaishi add helm-stumpwm-commands.
takaishi authored
285 (defun helm-stumpwm-commands()
286 (interactive)
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
287 (helm-other-buffer 'helm-source-stumpwm-commands
8c4c267 Ryo Takaishi add helm-stumpwm-commands.
takaishi authored
288 "*helm stumpwm commands*"))
289
290
291 ;;;###autoload
a1b8c7b Thierry Volpiatto Finish merging and removing obsolete stuff from helm-config.el
thierryvolpiatto authored
292 (defun helm-mini ()
293 "Preconfigured `helm' lightweight version \(buffer -> recentf\)."
294 (interactive)
772645a Thierry Volpiatto * helm-misc.el: Issue #184 Speedup loading by moving unrelated library t...
thierryvolpiatto authored
295 (require 'helm-files)
1bb02a1 Thierry Volpiatto Define `helm-source-buffers-list' at run time.
thierryvolpiatto authored
296 (unless helm-source-buffers-list
297 (setq helm-source-buffers-list
298 (helm-make-source "Buffers" 'helm-source-buffers)))
63ebf28 Thierry Volpiatto * helm-misc.el (helm-recentf): Issue #308 always show full path in recen...
thierryvolpiatto authored
299 (let ((helm-ff-transformer-show-only-basename nil))
5ad1f02 Thierry Volpiatto Use truncate-lines in helm-mini (#851).
thierryvolpiatto authored
300 (helm :sources helm-mini-default-sources
301 :buffer "*helm mini*"
302 :truncate-lines t)))
a1b8c7b Thierry Volpiatto Finish merging and removing obsolete stuff from helm-config.el
thierryvolpiatto authored
303
304 ;;;###autoload
305 (defun helm-minibuffer-history ()
306 "Preconfigured `helm' for `minibuffer-history'."
307 (interactive)
308 (let ((enable-recursive-minibuffers t))
4166d8a Thierry Volpiatto Replace "helm-c-" prefix by "helm-" in all files.
thierryvolpiatto authored
309 (helm-other-buffer 'helm-source-minibuffer-history
a1b8c7b Thierry Volpiatto Finish merging and removing obsolete stuff from helm-config.el
thierryvolpiatto authored
310 "*helm minibuffer-history*")))
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
311
1499497 Thierry Volpiatto * helm-misc.el: Add completion on shell history.
thierryvolpiatto authored
312 ;;;###autoload
313 (defun helm-comint-input-ring ()
378c1b7 Evgkeni Sampelnikof helm-comint-input-ring support for all commint modes
sabof authored
314 "Predefined `helm' that provide completion of `comint' history."
1499497 Thierry Volpiatto * helm-misc.el: Add completion on shell history.
thierryvolpiatto authored
315 (interactive)
378c1b7 Evgkeni Sampelnikof helm-comint-input-ring support for all commint modes
sabof authored
316 (when (derived-mode-p 'comint-mode)
1499497 Thierry Volpiatto * helm-misc.el: Add completion on shell history.
thierryvolpiatto authored
317 (helm :sources 'helm-source-comint-input-ring
318 :input (buffer-substring-no-properties (comint-line-beginning-position)
319 (point-at-eol))
378c1b7 Evgkeni Sampelnikof helm-comint-input-ring support for all commint modes
sabof authored
320 :buffer "*helm comint history*")))
1499497 Thierry Volpiatto * helm-misc.el: Add completion on shell history.
thierryvolpiatto authored
321
322
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
323 (provide 'helm-misc)
324
37b4201 Thierry Volpiatto Fix dependencies and autoloads. Reorder.
thierryvolpiatto authored
325 ;; Local Variables:
a7ee65b Thierry Volpiatto Disable compile warnings and add new keyword to helm.
thierryvolpiatto authored
326 ;; byte-compile-warnings: (not cl-functions obsolete)
37b4201 Thierry Volpiatto Fix dependencies and autoloads. Reorder.
thierryvolpiatto authored
327 ;; coding: utf-8
328 ;; indent-tabs-mode: nil
329 ;; End:
330
5f4a518 Thierry Volpiatto * helm-misc.el: Various things go here
thierryvolpiatto authored
331 ;;; helm-misc.el ends here
Something went wrong with that request. Please try again.