(Emacs|Shell|SystemD)~Small changes

This commit is contained in:
2024-05-06 02:23:38 +05:30
parent 04a4f50daf
commit 2986c04c2f
9 changed files with 90 additions and 54 deletions

View File

@@ -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 ()

View File

@@ -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))))))