data: Install local sbclrc to configure SBCLHEADmain

3 files changed, 42 insertions, 3 deletions

diff --git a/oni/home/config/common.scm b/oni/home/config/common.scm
index 2b52f58..f762de5 100644
--- a/oni/home/config/common.scm
+++ b/oni/home/config/common.scm
@@ -243,7 +243,6 @@ LocalForward 19999 localhost:19999"))
                      "autoload -U $HOME/.zsh/functions/*(:t)\n"
                      "alias csi=\"rlwrap csi\"\n"
                      "alias scsh=\"rlwrap scsh\"\n"
-                     "alias sbcl=\"rlwrap sbcl\"\n"
                      "alias hc=herbstclient\n"
                      "alias reco=\"pushd ~/projects/new-dotfiles/ && guix home reconfigure config.scm; popd\"\n"
                      "setopt SHARE_HISTORY\n"
diff --git a/oni/home/config/data.scm b/oni/home/config/data.scm
index 9ba3d81..38ae590 100644
--- a/oni/home/config/data.scm
+++ b/oni/home/config/data.scm
@@ -33,7 +33,8 @@
                 #:select (emacs-outli
                           emacs-syncthing-status))
   #:use-module (oni packages emacs-config)
-  #:use-module (oni packages pick-random-wallpaper))
+  #:use-module (oni packages pick-random-wallpaper)
+    #:use-module (oni home services lisp))
 
 (home-environment
  (packages (append
@@ -190,4 +191,5 @@
              (home-guile-swayer-configuration
               (extra-config
                (list
-                (local-file "../../../sway/.config/sway/init.scm")))))))))
+                (local-file "../../../sway/.config/sway/init.scm")))))
+    (service home-sbcl-service-type)))))
diff --git a/oni/home/services/lisp.scm b/oni/home/services/lisp.scm
new file mode 100644
index 0000000..b9b1721
--- /dev/null
+++ b/oni/home/services/lisp.scm
@@ -0,0 +1,38 @@
+(define-module (oni home services lisp)
+  #:use-module (gnu home services)
+  #:use-module (gnu packages lisp)
+  #:use-module (gnu packages lisp-xyz)
+  #:use-module (gnu services configuration)
+  #:use-module (guix packages)
+  #:use-module (guix gexp)
+
+  #:export (home-sbcl-service-type
+            home-sbcl-configuration))
+
+(define-configuration home-sbcl-configuration
+  (package
+    (package sbcl)
+    "Package to use for setting SBCL")
+  (linedit-package
+   (package sbcl-linedit)
+   "Package for setting up linedit"))
+
+(define (add-sbcl-packages config)
+  (list (home-sbcl-configuration-package config)
+        (home-sbcl-configuration-linedit-package config)))
+
+(define (home-sbcl-config-files config)
+  `((".sbclrc"
+     ,(local-file "../../../sbcl/sbclrc"))))
+
+(define home-sbcl-service-type
+  (service-type (name 'home-sbcl)
+                (extensions
+                 (list (service-extension
+                        home-files-service-type
+                        home-sbcl-config-files)
+                       (service-extension
+                        home-profile-service-type
+                        add-sbcl-packages)))
+                (default-value (home-sbcl-configuration))
+                (description "Configure SBCL")))