From 7322388ddccfadbf47960fe547029f3e7ce28dfd Mon Sep 17 00:00:00 2001
From: rearman <rearman@r717.net>
Date: Thu, 30 May 2024 08:41:01 -0400
Subject: [PATCH] Setup for Slime, org agenda changes

---
 init.org | 39 +++++++++++++++++++++++++++++++++++----
 1 file changed, 35 insertions(+), 4 deletions(-)

diff --git a/init.org b/init.org
index 14f267a..ab0e79f 100644
--- a/init.org
+++ b/init.org
@@ -192,7 +192,6 @@ I don't need these on a windows PC or android.
 #+BEGIN_SRC emacs-lisp
 (unless (or (equal system-type 'windows-nt)
             (equal system-type 'android))
-  (use-package slime :ensure t)
   (use-package ledger-mode
     :ensure t
     :bind
@@ -341,6 +340,28 @@ Starting to do some work with LaTeX, surprised this is not in base, but org is.
   :defer t)
 #+END_SRC
 
+*** SLIME
+:PROPERTIES:
+:ID:       2e6c92be-b509-42fd-8595-e28369fc2c13
+:END:
+Lisp me
+#+BEGIN_SRC emacs-lisp
+(load (expand-file-name "~/quicklisp/slime-helper.el"))
+(setq inferior-lisp-program "sbcl")
+
+(use-package slime
+  :ensure t
+  :custom
+  (slime-net-coding-system 'utf-8-unix)
+  (slime-lisp-implementations
+   '((sbcl ("sbcl" "--core" "sbcl.core-for-slime") :directory "~/lisp"))))
+
+(add-hook 'slime-mode-hook
+          (lambda ()
+            (unless (slime-connected-p)
+              (save-excursion (slime)))))
+#+END_SRC
+
 ** Non-Package customization
 :PROPERTIES:
 :ID:       6488cb21-1bb0-4b7d-93fb-c04dc4e04024
@@ -1353,7 +1374,8 @@ Add some much-used tags with shortcuts.
 Go back to previous view on quit, always start on current day, warn me for 30 days of a deadline, use the current window for the agenda, and don't show tags, but show full heirarchy.
 #+BEGIN_SRC emacs-lisp
 (setq org-agenda-restore-windows-after-quit t
-      org-agenda-start-on-weekday nil
+      org-agenda-start-on-weekday 0
+      org-agenda-span 14
       org-deadline-warning-days 30
       org-agenda-window-setup 'current-window
       org-agenda-remove-tags t
@@ -1370,7 +1392,7 @@ Go back to previous view on quit, always start on current day, warn me for 30 da
 Set up the agenda view. Access it with ~C-c a SPC~, [[id:3281906e-1f44-4abb-9f9d-0a0a39221752][or ~F2~]].
 #+BEGIN_SRC emacs-lisp
 (setq org-agenda-custom-commands '((" " "Agenda"
-                                    ((agenda "" nil)
+                                    (;(agenda "" nil)
                                      (tags "need"
                                            ((org-agenda-overriding-header "Needed Items")))
                                      (tags-todo "-REFILE+TODO=\"IN-PROGRESS\""
@@ -1397,6 +1419,14 @@ Stolen from [[https://emacs.stackexchange.com/questions/864/how-to-bind-a-key-to
   (org-agenda arg " "))
 #+END_SRC
 
+Do it again for main agenda
+#+BEGIN_SRC emacs-lisp
+(defun org-show-agenda (&optional arg)
+  "Show the main agenda"
+  (interactive "P")
+  (org-agenda arg "a"))
+#+END_SRC
+
 **** Column View
 :PROPERTIES:
 :ID:       b30e7269-c0ba-4014-9fb9-e03e6734a4db
@@ -1661,7 +1691,8 @@ The usual bindings.
 (keymap-global-set "C-c a" 'org-agenda)
 (keymap-global-set "C-c c" 'org-capture)
 (keymap-global-set "C-c b" 'org-switchb)
-(keymap-global-set "<f2>" 'org-agenda-show-custom)
+(keymap-global-set "<f8>" 'org-agenda-show-custom)
+(keymap-global-set "<f6>" 'org-show-agenda)
 #+END_SRC
 
 **** Mode-Specific
-- 
2.39.5