commit cedf62e570f1ef51d0d86817a0ff25795d6445bd
from: Lukas Henkel <lh@entf.net>
date: Mon May 16 17:25:08 2022 UTC

Refactor insertion related stuff to own file and add some bindings

commit - 1e3868e26b358474e19b313538ff08395ee992e0
commit + cedf62e570f1ef51d0d86817a0ff25795d6445bd
blob - 9b54d5644aa155fcb317d226552947b14840c4ea
blob + 975fa2d6e0432edd0d2e5d474024caceb278ae2f
--- init.el
+++ 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)))
blob - /dev/null
blob + 806d66ac3a7fa1b18e01114298e1de9e6221d82a (mode 644)
--- /dev/null
+++ 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)
blob - 50f76ec8f21650eef1e9bc72b48f267ee8a6ffeb
blob + 96c281e4303ebc0cdfd27a0a75b74401dfb822c5
--- lisp/lh.el
+++ 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")))