From f8bce74e58b4b328dd34c35abd30368672a0841b Mon Sep 17 00:00:00 2001
From: Marc Coquand <marc@coquand.email>
Date: Sat, 14 Dec 2024 20:52:10 +0100
Subject: .

---
 home/dots/.emacs | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

diff --git a/home/dots/.emacs b/home/dots/.emacs
index 4edae97..777784e 100644
--- a/home/dots/.emacs
+++ b/home/dots/.emacs
@@ -1185,7 +1185,14 @@
     "Define module"
     "Module name: "
     > "(define-module (" str ")" \n
-    - "#:use-module (gnu packages))" \n
+    > "#:use-module (gnu packages))" \n
+    )
+
+  (define-skeleton s/scheme-procedure
+    "Procedure"
+    "Procedure name: "
+    > "(define ("str " " - @ ")" \n
+    > ")"
     )
 
   (define-skeleton s/scheme-define
@@ -1199,11 +1206,11 @@
     "G-expression"
     nil
     > "(with-imported-module" \n
-    - "'((guix build utils))" \n
-    - "#~(begin" \n
-    - "(use-modules" \n
-    - "(guix build utils))" \n
-    - @ "))"
+    > "'((guix build utils))" \n
+    > "#~(begin" \n
+    > "(use-modules" \n
+    > "(guix build utils))" \n
+    > - @ "))"
     )
     
   ;; elisp
@@ -1211,7 +1218,7 @@
     "New package"
     "Package name: "
     > "(use-package " str  \n
-    - @ ")")
+    > @ ")")
 
   (define-skeleton s/elisp-new-function
     "New function"
@@ -1268,6 +1275,8 @@
   :init
   (setq-default abbrev-mode t)
   :config
+  (define-abbrev scheme-mode-abbrev-table "2pr"
+    "" 's/scheme-procedure)
   (define-abbrev scheme-mode-abbrev-table "2mo"
     "" 's/scheme-define-module)
   (define-abbrev scheme-mode-abbrev-table "2de"
-- 
cgit v1.2.3