Small emacs service

guix-config/home/emacs/init.el

@@ -0,0 +1,10 @@
+;;; -*- lexical-binding: t; -*-
+(require 'package)
+;;https://github.com/wbolster/emacs-direnv/issues/85
+(setenv "PATH" (mapconcat 'identity exec-path ":")) ;;fixes direnv losing nix pkgs
+(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
+(package-initialize)
+(org-babel-load-file
+ (expand-file-name
+  "config.org"
+  user-emacs-directory))

guix-config/home/services/emacs.scm

@@ -31,13 +31,13 @@
   (list `(".emacs.d/config.el"
           ,(mixed-text-file "config.el"
                             ";; Emacs Config from Guix Home\n"
-                            (call-with-input-file (home-emacs-configuration-config-file config) get-string-all)))
+			    "(load-file \"" (home-emacs-configuration-config-file config) "\")\n"))
         `(".emacs.d/early-config.el"
           ,(mixed-text-file "early-config.el"
                             ";; Emacs Early Config from Guix Home\n"
                             (string-append "(make-directory \"" package-user-dir "\" t)\n")
                             (string-append "(setq package-user-dir \"" package-user-dir "\")\n")
-                            (home-emacs-configuration-early-config-file config)))))
+                            "(load-file \"" (home-emacs-configuration-early-config-file config) "\")\n"))))
 
 (define (home-emacs-profile-service config)
   (list (home-emacs-configuration-emacs config)))

guix-config/home/workstation.scm

@@ -22,6 +22,7 @@
   #:use-module (gnu packages admin)
   #:use-module (gnu packages fonts)
   #:use-module (gnu packages games)
+  #:use-module (gnu packages xdisorg)
   #:use-module (gnu services)
   #:use-module (guix gexp)
   #:use-module (gnu home services shells)
@@ -44,8 +45,6 @@
 		  librewolf
 		  icecat
 		  nheko
-		  supertux
-		  supertuxkart
 		  ;birdtray
 		  nextcloud-client
 		  nautilus
@@ -54,6 +53,7 @@
 		  quickshell
 		  cava
 		  wl-clipboard
+		  cliphist
 		  brightnessctl
 		  qtmultimedia
 		  `(,glib "bin")
@@ -83,15 +83,15 @@
                           (home-dotfiles-configuration
                            (directories '("../../files"))))
 		 (service home-secretsd-service-type)
-		; (service home-emacs-service-type
-		;	  (home-emacs-configuration
-		;	   (emacs emacs-pgtk)
-		;	   (config-file 
-		;	    "../../../.emacs.d/config.el")
-		;	   (early-config-file 
-		;	    "../../../.emacs.d/init.el")
+		 (service home-emacs-service-type
+			  (home-emacs-configuration
+			   (emacs emacs-pgtk)
+			   (config-file 
+			    (local-file "./emacs/config.el"))
+			   (early-config-file 
+			    (local-file "./emacs/init.el"))
 ;			   (emacs-packages (list
 ;					    emacs-guix))
-;))
+))
 )
 		 %base-home-services)))