Skip to content

HTTPS clone URL

Subversion checkout URL

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