examples: emacs: Fix installation.

modules/rosenthal/examples/emacs/install.sh

@@ -1,4 +1,8 @@
 #!/bin/sh
 dir="$(dirname "$(realpath "$0")")"
-[[ ! -e ~/.config/emacs/init.el ]] && cp --recursive "$dir/." ~/.config/emacs
-guix package --install --manifest="$dir/manifest.tmpl"
+if [[ ! -f ~/.config/emacs/init.el ]]
+then
+    mkdir -p ~/.config/emacs
+    cp "$dir/init"* ~/.config/emacs
+fi
+cat "$dir/packages.txt" | xargs guix package --install

modules/rosenthal/examples/emacs/manifest.tmpl

@@ -1,37 +1,36 @@
-;;; -*- mode: scheme -*-
-
-(use-modules (gnu packages))
+;; What follows is a "manifest" equivalent to the command line you gave.
+;; You can store it in a file that you may then pass to any 'guix' command
+;; that accepts a '--manifest' (or '-m') option.
 
 (specifications->manifest
- '("emacs-pgtk"
-   "emacs-corfu"
-   "emacs-doom-modeline"
-   "emacs-edit-indirect"                ;for emacs-markdown-mode.
-   "emacs-envrc"
-   "emacs-evil"
-   "emacs-fish-mode"
-   "emacs-flycheck"
-   "emacs-flycheck-guile"
-   "emacs-forge"
-   "emacs-gcmh"
-   "emacs-geiser"
-   "emacs-geiser-guile"
-   "emacs-helpful"
-   "emacs-hl-todo"
-   "emacs-json-mode"
-   "emacs-macrostep"
-   "emacs-macrostep-geiser"
-   "emacs-magit"
-   "emacs-markdown-mode"
-   "emacs-mwim"
-   "emacs-no-littering"
-   "emacs-orderless"
-   "emacs-puni"
-   "emacs-rainbow-delimiters"
-   "emacs-vertico"
-   "fontconfig"
-   "font-adobe-source-serif"
-   "font-google-noto-emoji"
-   "font-sarasa-gothic"
-   "font-victor-mono"
-   ))
+  (list "emacs-pgtk"
+        "emacs-corfu"
+        "emacs-doom-modeline"
+        "emacs-edit-indirect"
+        "emacs-envrc"
+        "emacs-evil"
+        "emacs-fish-mode"
+        "emacs-flycheck"
+        "emacs-flycheck-guile"
+        "emacs-forge"
+        "emacs-gcmh"
+        "emacs-geiser"
+        "emacs-geiser-guile"
+        "emacs-helpful"
+        "emacs-hl-todo"
+        "emacs-json-mode"
+        "emacs-macrostep"
+        "emacs-macrostep-geiser"
+        "emacs-magit"
+        "emacs-markdown-mode"
+        "emacs-mwim"
+        "emacs-no-littering"
+        "emacs-orderless"
+        "emacs-puni"
+        "emacs-rainbow-delimiters"
+        "emacs-vertico"
+        "fontconfig"
+        "font-adobe-source-serif"
+        "font-google-noto-emoji"
+        "font-sarasa-gothic"
+        "font-victor-mono"))

modules/rosenthal/examples/emacs/packages.txt

@@ -0,0 +1,31 @@
+emacs-pgtk
+emacs-corfu
+emacs-doom-modeline
+emacs-edit-indirect
+emacs-envrc
+emacs-evil
+emacs-fish-mode
+emacs-flycheck
+emacs-flycheck-guile
+emacs-forge
+emacs-gcmh
+emacs-geiser
+emacs-geiser-guile
+emacs-helpful
+emacs-hl-todo
+emacs-json-mode
+emacs-macrostep
+emacs-macrostep-geiser
+emacs-magit
+emacs-markdown-mode
+emacs-mwim
+emacs-no-littering
+emacs-orderless
+emacs-puni
+emacs-rainbow-delimiters
+emacs-vertico
+fontconfig
+font-adobe-source-serif
+font-google-noto-emoji
+font-sarasa-gothic
+font-victor-mono