dotemacs

commit cedf62e570f1ef51d0d86817a0ff25795d6445bd
parent 1e3868e26b358474e19b313538ff08395ee992e0
Author: Lukas Henkel <lh@entf.net>
Date:   Sat, 14 May 2022 20:30:55 +0200

Refactor insertion related stuff to own file and add some bindings

Diffstat:
M
init.el
 | 
6
++++++
A
lisp/lh-insert.el
 | 
18
++++++++++++++++++
M
lisp/lh.el
 | 
15
---------------

3 files changed, 24 insertions(+), 15 deletions(-)
diff --git a/init.el b/init.el
@@ -12,6 +12,7 @@
  load-path)
 
 (require 'lh)
+(require 'lh-insert)
 (require 'lh-resurrect)
 (require 'iso-transl)
 
@@ -133,6 +134,11 @@
   ("C-# p" . mc/mark-previous-like-this)
 
   ("C-c n" . lh/buffer-create-new)
+
+  ("C-c i j" . lh/insert-json-encoded)
+  ("C-c i i s" . lh/insert-random-sha1)
+  ("C-c i i u" . uuidgen)
+  ("C-c i r f" . lh/insert-number-from-register-format)
   
   ("<mouse-8>" . xref-go-back)
   ("<mouse-9>" . xref-go-forward)))
diff --git a/lisp/lh-insert.el b/lisp/lh-insert.el
@@ -0,0 +1,18 @@
+;; -*- lexical-binding: t; -*-
+
+(defun lh/insert-random-sha1 ()
+  "Insert a random sha1 sum at point"
+  (interactive)
+  (insert (sha1 (number-to-string (random)))))
+
+(defun lh/insert-number-from-register-format (register format-string)
+  (interactive (list (register-read-with-preview "Insert register: ")
+                     (read-string "Format String: ")))
+  (let ((val (get-register register)))
+    (insert (format format-string val))))
+
+(defun lh/insert-json-encoded (obj)
+  (interactive "MData: ")
+  (insert (json-serialize obj)))
+
+(provide 'lh-insert)
diff --git a/lisp/lh.el b/lisp/lh.el
@@ -84,27 +84,12 @@
     (base64-encode-region (point-min) (point-max))
     (buffer-string)))
 
-(defun lh/insert-random-sha1 ()
-  "Insert a random sha1 sum at point"
-  (interactive)
-  (insert (sha1 (number-to-string (random)))))
-
-(defun lh/insert-number-from-register-format (register format-string)
-  (interactive (list (register-read-with-preview "Insert register: ")
-                     (read-string "Format String: ")))
-  (let ((val (get-register register)))
-    (insert (format format-string val))))
-
 (defun lh/doas-current-buffer ()
   (interactive)
   (let ((old (current-buffer)))
     (find-file (concat "/doas::" (buffer-file-name)))
     (kill-buffer old)))
 
-(defun lh/insert-json-encoded (obj)
-  (interactive "MData: ")
-  (insert (json-serialize obj)))
-
 (defun lh/buffer-create-new ()
   (interactive)
   (let ((buf (generate-new-buffer "new")))