From 5cff46d42f58abdd0a101058f3de0a79eac828db Mon Sep 17 00:00:00 2001
From: opalvaults <ry@opal.sh>
Date: Tue, 28 Dec 2021 17:53:22 -0800
Subject: [PATCH] stuff

---
 Emacs.org |   5 ++
 Guix.org  | 214 +++++++++++++++++++++++++++++++++++++++++++++++-------
 2 files changed, 191 insertions(+), 28 deletions(-)

diff --git a/Emacs.org b/Emacs.org
index 4dd34b2..a62082c 100644
--- a/Emacs.org
+++ b/Emacs.org
@@ -734,6 +734,11 @@ Sets HTML strings to have the background of the color they represent.
   :hook (python-mode . lsp-deferred))
 #+end_src
 
+*** Ruby
+#+begin_src emacs-lisp
+
+#+end_src
+
 *** Lisp
 #+begin_src emacs-lisp
 (use-package parinfer
diff --git a/Guix.org b/Guix.org
index cb3a83e..0e41cfc 100644
--- a/Guix.org
+++ b/Guix.org
@@ -235,32 +235,190 @@ Disclaimer: I use the nonguix channel only for the use of building Firefox from
 #+end_src 
 
 * Home
-#+begin_src scheme
-;; List of packages that I need to add to a home configuration.
-(list
- python-pip
- libtool
- emacs-vterm
- emacs-geiser
- emacs-geiser-guile
- make
- cmake
- nyxt
- sbcl
- python
- alacritty
- perl
- gcc
- zsh
- curl
- wget
- zathura
- zathura-pdf-mupdf
- zathura-pdf-poppler
- zip
- unzip
- thunar
- papirus-icon-theme
- guile
- python-lsp-server)
+#+begin_src emacs-lisp
+(use-modules
+ (gnu)
+ (gnu home)
+ (gnu home services)
+ (gnu home services shells)
+ (gnu home services shepard)
+ (gnu packages libreoffice)
+ (gnu packages mail)
+ (gnu packages pdf))
+
+(home-environment
+ (packages
+  (append
+   ;; Tools/Libraries
+   (list
+    gcc-toolchain
+    wget
+    curl
+    cmake
+    make
+    zip
+    unzip
+    libtool
+    binutils-gold
+    openssl
+    openssh
+    gst-plugins-bad
+    gst-plugins-base
+    gst-plugins-good
+    gst-plugins-ugly
+    gst-libav
+    wl-clipboard
+    zsh
+    gnupg)
+    ;; Applications
+    (list
+     alacritty
+     nyxt
+     zathura-pdf-mupdf
+     thunar
+     firefox
+     wl-randr
+     libreoffice
+     calibre
+     mpv
+     youtube-dl
+     icedove)
+     ;; Emacs
+     (list
+      emacs-vterm
+      emacs-geiser
+      emacs-geiser-guile
+      emacs-doom-modeline
+      emacs-all-the-icons
+      emacs-all-the-icons-dired
+      emacs-general
+      emacs-which-key
+      emacs-alert
+      emacs-helpful
+      emacs-pinentry
+      emacs-doom-themes
+      emacs-evil
+      emacs-evil-collection
+      emacs-vertico
+      emacs-orderless
+      emacs-consult
+      emacs-company
+      emacs-marginalia
+      emacs-perspective
+      emacs-dired-rsync
+      emacs-dired-hacks
+      emacs-org-bullets
+      emacs-org-make-toc
+      emacs-visual-fill-column
+      emacs-flycheck
+      emacs-rainbow-mode
+      emacs-rainbow-delimiters
+      emacs-magit
+      emacs-projectile
+      emacs-lsp-mode
+      emacs-lsp-ui
+      emacs-treemacs
+      emacs-lsp-treemacs
+      emacs-parinfer
+      emacs-yasnippet
+      emacs-pdf-tools)
+     ;; Languages
+     (list
+      ruby
+      python
+      guile
+      sbcl
+      perl
+      python-lsp-server
+      ruby-solargraph)
+     ;; Aesthetics/Fonts
+     (list
+      papirus-icon-theme
+      arc-theme
+      font-fira-mono
+      font-fira-code
+      font-fira-sans
+      font-abattis-cantarell
+      font-google-noto
+      font-awesome)))
+ (services
+  (append
+   ;; Shell
+   (list
+    (service home-zsh-service-type
+             (home-zsh-configuration
+              ;; Place all configs to $XDG_CONFIG_HOME/zsh. Makes
+              ;; ~/.zshenv to set ZDOTDIR to $XDG_CONFIG_HOME/zsh
+              ;; and shell process starts with ~/.config/zsh/.zshenv
+              (xdg-flavor? #t)
+              ;; .zshenv
+              (zshenv
+               (list
+                (local-file
+                 (string-append (getenv "HOME")
+                                "/Dotfiles/.config/zsh/.zshenv")
+                 "/.config/zsh/.zshenv")))
+              ;; .zprofile
+              (zprofile
+               (list
+                (local-file
+                 (string-append (getenv "HOME")
+                                "/Dotfiles/.config/zsh/.zprofile")
+                 "/.config/zsh/.zprofile")))
+              (zshrc
+               (list
+                (local-file
+                 (string-append (getenv "HOME")
+                                "/Dotfiles/.config/zsh/.zshrc")
+                 "/.config/zsh/.zshrc"))))))
+   ;; Files
+   (list
+    (simple-service 'emacs-config
+                    home-files-service-type
+                    (list
+                     `(".config/emacs/init.el"
+                       ,(local-file
+                         (string-append (getenv "HOME")
+                                        "/Dotfiles/emacs/init.el")))))
+    
+    (simple-service 'nyxt-config
+                    home-files-service-type
+                    (list
+                     `(".config/nyxt/init.lisp"
+                       ,(local-file
+                         (string-append (getenv "HOME")
+                                        "/Dotfiles/nyxt/init.lisp")))))
+    
+    (simple-service 'dunst-config
+                    home-files-service-type
+                    (list
+                     `(".config/dunst/dunstrc"
+                       ,(local-file
+                         (string-append (getenv "HOME")
+                                        "/Dotfiles/dunst/dunstrc")))))
+    
+    (simple-service 'alacritty-config
+                    home-files-service-type
+                    (list
+                     `(".config/alacritty/alacritty.yml"
+                       ,(local-file
+                         (string-append (getenv "HOME")
+                                        "/Dotfiles/alacritty/alacritty.yml")))))
+    
+    (simple-service 'alacritty-config
+                    )
+   ;; Daemons
+   (list
+    (service home-shepard-service-type
+             (home-shepherd-configuration
+              (services
+               (list
+                (shepard-service
+                 (provision '(emacs))
+                 (start #~(make-system-constructor "emacs --daemon"))
+                 (stop #~(make-system-constructor "emacsclient -e '(kill-emacs)'")))
+                (shepard-service
+                 (provision '(gnome-keyring-daemon))
+                 (start #~(make-system-contructor "gnome-keyring-daemon --daemonize"))
+                 (stop #~(make-system-contructor "pkill gnome-keyring-daemon")))))))))))
 #+end_src