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
+if [[ ! -f ~/.config/emacs/init.el ]]
-guix package --install --manifest="$dir/manifest.tmpl"
+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,12 +1,12 @@
-;;; -*- mode: scheme -*-
+;; 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
-(use-modules (gnu packages))
+;; that accepts a '--manifest' (or '-m') option.
 
 (specifications->manifest
- '("emacs-pgtk"
+  (list "emacs-pgtk"
         "emacs-corfu"
         "emacs-doom-modeline"
-   "emacs-edit-indirect"                ;for emacs-markdown-mode.
+        "emacs-edit-indirect"
         "emacs-envrc"
         "emacs-evil"
         "emacs-fish-mode"
@@ -33,5 +33,4 @@
         "font-adobe-source-serif"
         "font-google-noto-emoji"
         "font-sarasa-gothic"
-   "font-victor-mono"
+        "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