added sly stuff, + some things

.config/doom/config.el

@@ -225,7 +225,7 @@ that used by the user's shell."
   (add-to-list 'org-structure-template-alist '("js" . "src javascript"))
   (add-to-list 'org-structure-template-alist '("html" . "src html"))
   (add-to-list 'org-structure-template-alist '("css" . "src css"))
-  (add-to-list 'org-structure-template-alist '("rt" . "src racket")))
+  (add-to-list 'org-structure-template-alist '("rt" . "src racket"))
   (add-to-list 'org-structure-template-alist '("cl" . "src lisp")))
 
 ;; ;; Define a function that automatically executes rymacs/org-babel-tangle-config (a wrapper around org-babel-tangle) when saving this file.
@@ -296,6 +296,17 @@ that used by the user's shell."
   (deft-default-extension "org")
   (deft-directory org-roam-directory))
 
+(after! sly
+  (setq sly-lisp-implementations
+        '((sbcl ("/bin/sbcl" "-L" "sbcl" "-Q" "run") :coding-system utf-8-unix)
+          (clozure-cl ("/usr/local/bin/ccl64")))))
+
+(defmacro define-sly-lisp (name)
+  `(defun ,name ()  (interactive)  (let ((sly-default-lisp ',name))  (sly))))
+
+(define-sly-lisp sbcl)
+(define-sly-lisp ccl)
+
 (use-package mu4e
   :config
   ;; This is set to 't' to avoid mail syncing issues when using mbsync
@@ -303,7 +314,7 @@ that used by the user's shell."
 
   ;; Refresh mail using isync every 5 minutes
   (setq mu4e-update-interval (* 5 60))
-  (setq mu4e-get-mail-command "mbsync -a -c ~/Dotfiles/.config/mbsync/mbsyncrc")
+  (setq mu4e-get-mail-command "mbsync -a -c ~/Dotfiles/.config/mbsyn c/mbsyncrc")
   (setq mu4e-maildir "~/Mail")
 
   (setq mu4e-contexts

.config/zsh/.zprofile

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

.config/zsh/.zshrc

@@ -21,12 +21,8 @@ export PATH=/home/ry/.cargo/bin:$PATH
 export PATH=/bin:$PATH
 # doom
 export PATH=~/.config/emacs/bin:$PATH
-# Go PKG BIN
+# GUIX PATH
-export PATH=~/code/go/bin:$PATH
+export PATH=/home/ry/.guix-profile/bin:$PATH
-# ansible config
-export ANSIBLE_CONFIG=~/.config/ansible/ansible.cfg
-# Go PATH
-export GOPATH=~/code/go
 
 # locale --- #
 export LANG=en_US.UTF-8

Desktop.org

@@ -0,0 +1,80 @@
+#+TITLE: Desktop Configuration
+
+This =.org= document is where I store all of my user-level application configuration including shells, terminal emulators, etc.
+
+* Shell
+
+Aside from using e-shell for quick command line usage, I mainly use vterm with Zsh. It's a bit of a complicated setup but allows for the maximum number of files possible to live in .config instead of littering my home directory. The entry-poignado
+
+** zshrc
+#+begin_src shell :tangle ~/Dotfiles/.config/zsh/.zshrc
+[[ $TERM == "dumb" ]] && unsetopt zle && PS1='$ ' && return
+
+# --- zsh config --- #
+export ZSH="$XDG_CONFIG_HOME/oh-my-zsh"
+HISTFILE=$XDG_CONFIG_HOME/zsh/.history
+ZSH_THEME="mrtazz"
+DISABLE_AUTO_UPDATE="true"
+ENABLE_CORRECTION="true"
+plugins=(git)
+# This has to stay below plugins.
+source $ZSH/oh-my-zsh.sh
+
+# --- user paths --- #
+# scripts
+export PATH=/home/ry/scripts:$PATH
+# cron scripts
+export PATH=/home/ry/scripts/cron-scripts:$PATH
+# doom
+export PATH=~/.config/emacs/bin:$PATH
+# GNU Guix path
+export PATH=/home/ry/.guix-profile/bin:$PATH
+
+# --- locale --- #
+export LANG=en_US.UTF-8
+
+# --- autostart --- #
+pfetch
+
+# --- Functions --- #
+# Move files to trash folder instead.
+del () { mv "$@" $HOME/.local/share/Trash/files/.; }
+# Make directory and CD into it.
+mkcd () { mkdir -p -- "$1" && cd -P -- "$1" }
+
+# --- Aliases --- #
+# dnf
+alias install="sudo dnf -y install"
+alias remove="sudo dnf remove"
+alias search="dnf search"
+alias update="sudo dnf update"
+
+# qol
+alias vi="nvim"
+alias vim="nvim"
+alias unmount="umount"
+
+# systemD
+alias sr="sudo systemctl restart"
+alias se="sudo systemctl enable"
+alias sen="sudo systemctl enable --now"
+alias sd="sudo systemctl disable"
+
+# git
+alias ga="git add"
+alias gc="git commit -m"
+alias gs="git status"
+alias gd="git diff"
+alias gm="git merge"
+alias gp="git push"
+alias gco="git checkout"
+
+# config
+alias zshrc="vim ~/dotfiles/.config/zsh/.zshrc"
+alias zshrcsource="source ~/.config/zsh/.zshrc"
+
+# firewalld
+alias fcmd="firewall-cmd"
+#+end_src
+
+**

Emacs.org

@@ -330,7 +330,7 @@ Here we use a package called org-tempo.
   (add-to-list 'org-structure-template-alist '("js" . "src javascript"))
   (add-to-list 'org-structure-template-alist '("html" . "src html"))
   (add-to-list 'org-structure-template-alist '("css" . "src css"))
-  (add-to-list 'org-structure-template-alist '("rt" . "src racket")))
+  (add-to-list 'org-structure-template-alist '("rt" . "src racket"))
   (add-to-list 'org-structure-template-alist '("cl" . "src lisp")))
 #+end_src
 
@@ -429,13 +429,16 @@ Deft is a package that helps browse and filter plain text files. I use it to sea
 *** Common Lisp
 #+begin_src emacs-lisp
 (after! sly
+  (load "/home/ry/quicklisp/clhs-use-local.el" t)
   (setq sly-lisp-implementations
-        '((sbcl ("~/programs/bin/ros" "-L" "sbcl" "-Q" "run") :coding-system utf-8-unix)
+        '((sbcl ("/bin/sbcl" "-L" "sbcl" "-Q" "run") :coding-system utf-8-unix)
-          (clisp ("~/programs/bin/ros" "-L" "clisp" "-Q" "run"))
+          (ccl ("/usr/local/bin/ccl64" :coding-system utf-8-unix)))))
-          (clozure-cl ("~/Bin/clozure/" "-L" "ccl-bin" "-Q" "run"))
+
-          (cmucl ("~/programs/bin/ros" "-L" "cmu-bin" "-Q" "run"))
+(defmacro define-sly-lisp (name)
-          (ecl ("~/programs/bin/ros" "-L" "ecl" "-Q" "run") :coding-system utf-8-unix)
+  `(defun ,name ()  (interactive)  (let ((sly-default-lisp ',name))  (sly))))
-          (abcl ("~/programs/bin/ros" "-L" "abcl-bin" "-Q" "run")))))
+
+(define-sly-lisp sbcl)
+(define-sly-lisp ccl)
 #+end_src
 
 ** Mu4e (E-mail)
@@ -453,7 +456,7 @@ Account Information:
 
   ;; Refresh mail using isync every 5 minutes
   (setq mu4e-update-interval (* 5 60))
-  (setq mu4e-get-mail-command "mbsync -a -c ~/Dotfiles/.config/mbsync/mbsyncrc")
+  (setq mu4e-get-mail-command "mbsync -a -c ~/Dotfiles/.config/mbsyn c/mbsyncrc")
   (setq mu4e-maildir "~/Mail")
 
   (setq mu4e-contexts