(Emacs|Shell|SystemD)~Small changes
This commit is contained in:
@@ -37,9 +37,8 @@
|
||||
"Minor mode for haskell buffers generated by haskell-interactive-mode.
|
||||
Provides bindings to retrieve content back into the REPL with
|
||||
full multi-edit commands"
|
||||
nil
|
||||
""
|
||||
haskell-multiedit-mode-map)
|
||||
:lighter nil
|
||||
:keymap haskell-multiedit-mode-map)
|
||||
|
||||
(with-eval-after-load "haskell"
|
||||
(defun haskell-multiedit ()
|
||||
|
||||
@@ -37,16 +37,11 @@
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defun +move/--normalise-arg (arg)
|
||||
(if (or (null arg) (< arg 1))
|
||||
1
|
||||
arg))
|
||||
|
||||
(defmacro +move/create-move (name description &rest body)
|
||||
`(defun ,name (&optional arg)
|
||||
,description
|
||||
(interactive "P")
|
||||
(let ((arg (+move/--normalise-arg arg)))
|
||||
(let ((arg (if (or (null arg) (< arg 1)) 1 arg)))
|
||||
(while (not (= arg 0))
|
||||
,@body
|
||||
(setq arg (- arg 1))))))
|
||||
|
||||
Reference in New Issue
Block a user