scip/autoscratch
1
0
Fork 0
mirror of https://codeberg.org/scip/autoscratch.git synced 2025-12-16 20:10:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

added (autoscratch-select) for multiple-choice triggers

Browse Source
This commit is contained in:
Thomas von Dein
2017-07-17 16:57:53 +02:00
parent 0054c07ad3
commit 8e7c476216
1 changed files with 36 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
autoscratch.el
View File

@@ -76,14 +76,26 @@
(defcustom autoscratch-triggers-alist
'(("[(;]" . (emacs-lisp-mode))
("#" . (conf-unix-mode))
("#" . (autoscratch-select
'(("perl" . (cperl-mode))
("ruby" . (ruby-mode))
("python" . (python-mode))
("conf" . (conf-unix-mode))
("shell" . (shell-script-mode)))))
("[-a-zA-Z0-9]" . (text-mode))
("/" . (c-mode))
("*" . (progn (insert " ") (org-mode)))
("." . (fundamental-mode)))
"Default trigger alist for autoscratch mode.
This list triggers after the first character entered."
This list triggers after the first character entered.
You can customize this variable directly or use `add-to-list'
to add more triggers.
In case there are more possibilities for a character, you can
use `autoscratch-select' to make autoscratch ask interactively
for a major mode to switch to, which see. A good example for
such a character is # which is the comment-char in many modes."
:group 'autoscratch
:type 'list)
@@ -135,6 +147,28 @@ Executes `autoscratch-rename-hook' afterwards."
(switch-to-buffer buf)
(autoscratch-mode)))
(defun autoscratch-select(modelist)
"Interactively ask for major mode to switch to.
Argument MODELIST must be an alist where the car of each
pair must be a name and the cdr some arbitrary emacs lisp
form.
Example for MODELIST:
'((\"perl\" . (cperl-mode))
(\"ruby\" . (ruby-mode))
(\"python\" . (python-mode))
(\"shell\" . (shell-script-mode))
This function shall only be called from `autoscratch-triggers-alist'."
(interactive)
(let ((keys ()))
(dolist (e modelist)
(push (car e) keys))
(eval (cdr (assoc (completing-read "switch mode to: " keys) modelist)))))
;;;; Internal Functions
(defun autoscratch--fork-and-rename-current ()