derp

.config/emacs/init.el

@@ -39,10 +39,10 @@
 (setq custom-safe-themes t)          ;; Treat themes as safe
 
 ;; Disable line mode for specific major/minor modes.
-(dolist (mode '(org-mode-hook))
-    'term-mode-hook
-    'shell-mode-hook
-    'eshell-mode-hook
+(dolist (mode '(org-mode-hook
+                vterm-mode-hook
+                term-mode-hook
+                eshell-mode-hook))
   (add-hook mode (lambda () (display-line-numbers-mode 0))))
 
 (set-frame-parameter (selected-frame) 'alpha '(90 . 90))
@@ -589,6 +589,13 @@
 (defvar inferior-lisp-program "sbcl")
 (use-package sly :straight t)
 
+(use-package geiser
+  :straight t
+  :ensure t
+  :custom
+  (setq geiser-guile-binary "guile")
+  (setq geiser-active-implementations '(guile)))
+
 (use-package yasnippet
   :straight t
   :hook (prog-mode . yas-minor-mode)
@@ -686,3 +693,35 @@
 ;; 	erc-interpret-mirc-color t
 ;; 	erc-rename-buffers t
 ;; 	erc-track-exclude-server-buffer t))
+(custom-set-variables
+ ;; custom-set-variables was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(safe-local-variable-values
+   '((eval modify-syntax-entry 43 "'")
+     (eval modify-syntax-entry 36 "'")
+     (eval modify-syntax-entry 126 "'")
+     (eval let
+           ((root-dir-unexpanded
+             (locate-dominating-file default-directory ".dir-locals.el")))
+           (when root-dir-unexpanded
+             (let*
+                 ((root-dir
+                   (expand-file-name root-dir-unexpanded))
+                  (root-dir*
+                   (directory-file-name root-dir)))
+               (unless
+                   (boundp 'geiser-guile-load-path)
+                 (defvar geiser-guile-load-path 'nil))
+               (make-local-variable 'geiser-guile-load-path)
+               (require 'cl-lib)
+               (cl-pushnew root-dir* geiser-guile-load-path :test #'string-equal))))
+     (eval setq-local guix-directory
+           (locate-dominating-file default-directory ".dir-locals.el")))))
+(custom-set-faces
+ ;; custom-set-faces was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ )

.config/guix/home-desk.scm

@@ -59,7 +59,8 @@
       (specification->package "keepassxc")
       (specification->package "font-fira-mono")
       (specification->package "font-fira-sans")
-      (specification->package "font-fira-code"))
+      (specification->package "font-fira-code") 
+      (specification->package "gcc-toolchain"))
      %base-packages))
   (services
    (append (modify-services %desktop-services

.config/guix/work-laptop.scm

@@ -1,11 +1,16 @@
 (use-modules (gnu)
-	     (nongnu packages linux))
+             (gnu services desktop)
+             (gnu packages wm)
+             (gnu system setuid)
+             (gnu packages admin)
+             (nongnu packages linux))
 (use-service-modules
-  cups
-  desktop
-  networking
-  ssh
-  xorg)
+ cups
+ desktop
+ networking
+ ssh
+ sddm
+ xorg)
 
 (operating-system
  (kernel linux)
@@ -13,6 +18,10 @@
  (locale "en_US.utf8")
  (timezone "America/Los_Angeles")
  (keyboard-layout (keyboard-layout "us"))
+ (setuid-programs
+  (cons (setuid-program
+         (program (file-append swaylock "/bin/swaylock")))
+        %setuid-programs))
  (host-name "work")
  (users (cons* (user-account
                 (name "opal")
@@ -24,34 +33,37 @@
                %base-user-accounts))
  (packages
   (append
-   (list
+   (list 
     (specification->package "git")
-    (specification->package "xclip")
+    (specification->package "wl-clipboard")
     (specification->package "vim")
     (specification->package "nss-certs")
     (specification->package "stow")
     (specification->package "exfat-utils")
     (specification->package "emacs")
-    (specification->package "emacs-exwm")
-    (specification->package "sway")
+    (specification->package "emacs-exwm") 
+    (specification->package "sway") 
+    (specification->package "swaybg") 
+    (specification->package "swaylock") 
+    (specification->package "swayidle") 
+    (specification->package "polybar") 
+    (specification->package "nyxt")
+    (specification->package "dmenu")
     (specification->package "bluez")
     (specification->package "bluez-alsa")
     (specification->package "pulseaudio")
-    (specification->package "nyxt")
     (specification->package "keepassxc")
     (specification->package "font-fira-mono")
     (specification->package "font-fira-sans")
     (specification->package "font-fira-code")
-    (specification->package "gnome-tweaks"))
-   %base-packages))
- (services
-  (append
-   (list (service gnome-desktop-service-type)
-         (service cups-service-type)
-         (set-xorg-configuration
-          (xorg-configuration
-           (keyboard-layout keyboard-layout))))
-   %desktop-services))
+    (specification->package "gcc-toolchain"))
+   %base-packages)) 
+  (services
+   (append (modify-services %desktop-services
+             (delete gdm-service-type))
+       (list (service sddm-service-type
+                      (sddm-configuration
+                       (display-server "wayland"))))))
  (bootloader
   (bootloader-configuration
    (bootloader grub-efi-bootloader)

.config/guix/work-laptop.scm~

@@ -0,0 +1,72 @@
+;; This is an operating system configuration generated
+;; by the graphical installer.
+
+(use-modules (gnu)
+	     (nongnu packages linux))
+(use-service-modules
+  cups
+  desktop
+  networking
+  ssh
+  xorg)
+
+(operating-system
+  (kernel linux)
+  (firmware (list linux-firmware))
+  (locale "en_US.utf8")
+  (timezone "America/Los_Angeles")
+  (keyboard-layout (keyboard-layout "us"))
+  (host-name "work")
+  (users (cons* (user-account
+                  (name "opal")
+                  (comment "Opal")
+                  (group "users")
+                  (home-directory "/home/opal")
+                  (supplementary-groups
+                    '("wheel" "netdev" "audio" "video")))
+                %base-user-accounts))
+  (packages
+    (append
+      (list
+	(specification->package "git")
+	(specification->package "vim")
+	(specification->package "nss-certs")
+	(specification->package "stow")
+	(specification->package "exfat-utils")
+	(specification->package "emacs")
+	(specification->package "bluez")
+	(specification->package "bluez-alsa")
+	(specification->package "pulseaudio")
+	(specification->package "nyxt")
+	(specification->package "keepassxc"))
+      %base-packages))
+  (services
+    (append
+      (list (service gnome-desktop-service-type)
+            (service cups-service-type)
+            (set-xorg-configuration
+              (xorg-configuration
+                (keyboard-layout keyboard-layout))))
+      %desktop-services))
+  (bootloader
+    (bootloader-configuration
+      (bootloader grub-efi-bootloader)
+      (targets (list "/boot/efi"))
+      (keyboard-layout keyboard-layout)))
+  (mapped-devices
+    (list (mapped-device
+            (source
+              (uuid "abe760e2-4ba5-4f43-81a2-1c3f16eb62a8"))
+            (target "cryptroot")
+            (type luks-device-mapping))))
+  (file-systems
+    (cons* (file-system
+             (mount-point "/")
+             (device "/dev/mapper/cryptroot")
+             (type "btrfs")
+             (dependencies mapped-devices))
+           (file-system
+             (mount-point "/boot/efi")
+             (device (uuid "15B3-5DE5" 'fat32))
+             (type "vfat"))
+           %base-file-systems)))

.config/nyxt/init.lisp

@@ -1,8 +1,8 @@
 (in-package :nyxt)
-;; (load "~/quicklisp/setup.lisp")
-;; (ql:quickload 'slynk)
+(load "~/quicklisp/setup.lisp")
+(ql:quickload 'slynk)
 ;; (push #p"~/common-lisp/sly/" asdf:*central-registry*)
-(asdf:load-system :slynk)
+;; (asdf:load-system :slynk)
 ;; (slynk:create-server :port 4008)
 
 (load-after-system :slynk (nyxt-init-file "my-slink.lisp"))

.config/sway/config

@@ -40,7 +40,7 @@ output * bg /home/opal/Dotfiles/guix-wallpaper.jpg stretch
 #
 # Example configuration:
 #
-#   output HDMI-A-1 resolution 1920x1080 position 1920,0
+output eDP-1 resolution 1920x1080 position 0,0
 #
 # You can get the names of your outputs by running: swaymsg -t get_outputs
 
@@ -79,8 +79,7 @@ bindsym $mod+Shift+q kill
 
 # Lock SwayWM
 # Doesn't work for some reason. Needs fix.
-bindsym $mod+Shift+p swaylock
-
+bindsym Control+Shift+l exec swaylock 
 # Start your launcher
 bindsym $mod+d exec $menu
 
@@ -92,7 +91,7 @@ floating_modifier $mod normal
 bindsym $mod+Shift+c reload
 
 # Exit sway (logs you out of your Wayland session)
-bindsym $mod+Shift+x swaymsg -r exit 
+bindsym $mod+Shift+x exec swaymsg -r exit 
 
 # Moving around:
 #

.config/zsh/.zprofile

@@ -12,4 +12,4 @@ export XDG_DATA_HOME=~/.local/share
 export XDG_STATE_HOME=~/.config/zsh
 export EDITOR=nvim
 export VISUAL=nvim
-export GUIX_PROFILE="$HOME/.config/guix/current" . "$GUIX_PROFILE/etc/profile"
+GUIX_PROFILE="$HOME/.config/guix/current" . "$GUIX_PROFILE/etc/profile"