Added common-lisp and stuff

.config/doom/config.el

@@ -3,7 +3,7 @@
 ;; Match Emacs program path to be the same as user shell
 (defun set-exec-path-from-shell-PATH ()
   "Set up Emacs' `exec-path' and PATH environment variable to match
-that used by the user's shell.
+that used by the user's shell."
   (interactive)
   (let ((path-from-shell (replace-regexp-in-string
     "[ \t\n]*$" "" (shell-command-to-string
@@ -65,7 +65,8 @@ that used by the user's shell.
   ;; Replace list hyphen with dot
   (font-lock-add-keywords 'org-mode
                           '(("^ *\\([-]\\) "
-                             (0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))
+                             (0 (prog1 () (compose-region (match-beginning 1) (match-end 1)
+                                                          "•"))))))
 
   ;; Set faces for heading levels
   (dolist (face '((org-level-1 . 1.2)
@@ -205,7 +206,8 @@ that used by the user's shell.
      (scheme . t)
      (javascript . t)
      (html . t)
-     (css . t)))
+     (css . t)
+     (lisp . t)))
 
   (push '("conf-unix" . conf-unix) org-src-lang-modes))
 
@@ -224,6 +226,7 @@ that used by the user's shell.
   (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 '("cl" . "src lisp")))
 
 ;; ;; Define a function that automatically executes rymacs/org-babel-tangle-config (a wrapper around org-babel-tangle) when saving this file.
 ;; (defun rymacs/org-babel-tangle-config ()

Emacs.org

@@ -26,6 +26,8 @@
       - [[#babel-configuration-file-automation-hook][Babel Configuration File Automation Hook]]
     - [[#org-roam][Org Roam]]
     - [[#deft-configuration][Deft Configuration]]
+  - [[#programming-languages][Programming Languages]]
+    - [[#common-lisp][Common Lisp]]
   - [[#mu4e-e-mail][Mu4e (E-mail)]]
   - [[#erc-irc][ERC (IRC)]]
 
@@ -37,7 +39,7 @@
 ;; Match Emacs program path to be the same as user shell
 (defun set-exec-path-from-shell-PATH ()
   "Set up Emacs' `exec-path' and PATH environment variable to match
-that used by the user's shell.
+that used by the user's shell."
   (interactive)
   (let ((path-from-shell (replace-regexp-in-string
     "[ \t\n]*$" "" (shell-command-to-string
@@ -128,7 +130,8 @@ Here  we are setting general font configuration in order to make editing in org
   ;; Replace list hyphen with dot
   (font-lock-add-keywords 'org-mode
                           '(("^ *\\([-]\\) "
-                             (0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))
+                             (0 (prog1 () (compose-region (match-beginning 1) (match-end 1)
+                                                          "•"))))))
 
   ;; Set faces for heading levels
   (dolist (face '((org-level-1 . 1.2)
@@ -299,15 +302,18 @@ Org Babel allows us to evaluate source code blocks within org mode. With this fu
      (scheme . t)
      (javascript . t)
      (html . t)
-     (css . t)))
+     (css . t)
+     (lisp . t)))
 
   (push '("conf-unix" . conf-unix) org-src-lang-modes))
 
 (setq geiser-default-implementation '(guile))
 #+end_src
 
-**** Soure Block Creation Shortcuts
+#+RESULTS:
+| guile |
 
+**** Soure Block Creation Shortcuts
 Here we use a package called org-tempo.
 
 #+begin_src emacs-lisp
@@ -325,6 +331,7 @@ Here we use a package called org-tempo.
   (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 '("cl" . "src lisp")))
 #+end_src
 
 **** Babel Configuration File Automation Hook
@@ -418,6 +425,18 @@ Deft is a package that helps browse and filter plain text files. I use it to sea
   (deft-directory org-roam-directory))
 
 #+end_src
+** Programming Languages
+*** Common Lisp
+#+begin_src emacs-lisp
+(after! sly
+  (setq sly-lisp-implementations
+        '((sbcl ("~/programs/bin/ros" "-L" "sbcl" "-Q" "run") :coding-system utf-8-unix)
+          (clisp ("~/programs/bin/ros" "-L" "clisp" "-Q" "run"))
+          (clozure-cl ("~/Bin/clozure/" "-L" "ccl-bin" "-Q" "run"))
+          (cmucl ("~/programs/bin/ros" "-L" "cmu-bin" "-Q" "run"))
+          (ecl ("~/programs/bin/ros" "-L" "ecl" "-Q" "run") :coding-system utf-8-unix)
+          (abcl ("~/programs/bin/ros" "-L" "abcl-bin" "-Q" "run")))))
+#+end_src
 
 ** Mu4e (E-mail)