diff options
| author | Marc Coquand <marc@coquand.email> | 2024-12-14 20:52:10 +0100 |
|---|---|---|
| committer | Marc Coquand <marc@coquand.email> | 2024-12-14 20:52:10 +0100 |
| commit | f8bce74e58b4b328dd34c35abd30368672a0841b (patch) | |
| tree | 8eb84d4e980d7422dc647a1f11fd2acd6e5e3401 /home/dots | |
| parent | 8e690c38f95abda65da051764d7804036fa971d0 (diff) | |
| download | guix-f8bce74e58b4b328dd34c35abd30368672a0841b.tar.gz guix-f8bce74e58b4b328dd34c35abd30368672a0841b.tar.bz2 guix-f8bce74e58b4b328dd34c35abd30368672a0841b.zip | |
.
Diffstat (limited to 'home/dots')
| -rw-r--r-- | home/dots/.emacs | 23 |
1 files 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" |