paren package customizations, clean up bd--org.el

6 files changed, 26 insertions, 26 deletions

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index dfc5a1c..75686b5 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -43,6 +43,7 @@
         completion-ignore-case t
         read-buffer-completion-ignore-case t)
 (setq-default tab-width 8)
+(blink-cursor-mode -1)
 (indent-tabs-mode 0)
 (fringe-mode '(0 . 0))
 (global-hl-line-mode 1)
diff --git a/.config/emacs/modules/bd--devel.el b/.config/emacs/modules/bd--devel.el
index 9538b57..cc8abfb 100644
--- a/.config/emacs/modules/bd--devel.el
+++ b/.config/emacs/modules/bd--devel.el
@@ -84,13 +84,21 @@ to.")
 ;; fix to force-load newest transient
 (use-package transient
   :load-path (lambda () (car (directory-files
-                              "/home/bdunahu/.guix-home/profile/share/emacs/site-lisp/"
-                              t "transient-"))))
+                         "/home/bdunahu/.guix-home/profile/share/emacs/site-lisp/"
+                         t "transient-"))))
 (use-package magit
   :commands magit-status
   :custom
   (magit-define-global-key-bindings 'recommended))
 
+(use-package paren
+  :custom
+  (show-paren-delay 0)
+  (show-paren-highlight-openparen t)
+  (show-paren-context-when-offscreen t)
+  (show-paren-when-point-in-periphery t)
+  (show-paren-when-point-inside-paren t))
+
 (use-package rainbow-delimiters
   :hook prog-mode)
 
diff --git a/.config/emacs/modules/bd--files.el b/.config/emacs/modules/bd--files.el
index bfb02c0..28563ea 100644
--- a/.config/emacs/modules/bd--files.el
+++ b/.config/emacs/modules/bd--files.el
@@ -7,7 +7,7 @@
   :init
   (recentf-mode 1)
   :custom
-  (recentf-max-saved-items 2000)
+  (recentf-max-saved-items 3500)
   (recentf-keep '(recentf-keep-default-predicate remote-file-p))
   (recentf-auto-cleanup 300))
 
diff --git a/.config/emacs/modules/bd--org.el b/.config/emacs/modules/bd--org.el
index e2a251c..08a7652 100644
--- a/.config/emacs/modules/bd--org.el
+++ b/.config/emacs/modules/bd--org.el
@@ -21,6 +21,7 @@ each org file open."
 
   (plist-put org-format-latex-options :scale 1.2)
   (push '("\\.pdf\\'" . "zathura %s") org-file-apps)
+  (add-hook 'org-babel-after-execute-hook #'org-redisplay-inline-images)
   (org-babel-do-load-languages
    'org-babel-load-languages
    '((emacs-lisp . t)
@@ -78,6 +79,8 @@ representing all the tags ORd or ANDed together."
 	  org-log-into-drawer "history"
 	  org-agenda-restore-windows-after-quit t
 	  org-agenda-show-future-repeats nil
+	  org-agenda-block-separator nil
+	  org-deadline-warning-days 0
 	  org-todo-keywords
 	  '((sequence "TODO(t)" "NEXT(n!)" "HOLD(h!)" "|" "DONE(d)" "CANC(c)"))
 	  org-tag-alist
@@ -113,55 +116,44 @@ representing all the tags ORd or ANDed together."
 	     "* TODO %?\n %u")))
 
   (let ((orphan-view '(tags-todo "-{.*}"
-				 ((org-agenda-block-separator nil)
-				  (org-agenda-overriding-header "\nOrphaned Items\n")))))
+				 ((org-agenda-overriding-header "\nOrphaned Items\n")))))
     (setopt org-agenda-custom-commands
 	    `(("c" "Chores"
-	       ((agenda "" ((org-agenda-block-separator nil)
-			    (org-agenda-entry-types '(:deadline))
+	       ((agenda "" ((org-agenda-entry-types '(:deadline))
 			    (org-agenda-show-all-dates nil)
 			    (org-agenda-span 21)
-			    (org-deadline-warning-days 0)
 			    (org-agenda-skip-function
 			     '(org-agenda-skip-entry-if 'notregexp
 							(regexp-opt (cons "chore" (mapcar #'car bd/device-list)))))
-			    (org-agenda-overriding-header "\nPriority Deadlines (+21d)\n")))
+			    (org-agenda-overriding-header "Priority Deadlines (+21d)\n")))
 		(tags-todo (concat "chore" (bd/combine-tags bd/device-list nil nil))
-			   ((org-agenda-block-separator nil)
-			    (org-agenda-overriding-header "Mundane\n")))
+			   ((org-agenda-overriding-header "\nMundane\n")))
 		,@(mapcar (lambda (e)
 			    `(tags-todo ,(car e)
-					((org-agenda-block-separator nil)
-					 (org-agenda-overriding-header
+					((org-agenda-overriding-header
 					  (concat "\nDevice: " ,(capitalize (car e)) "\n")))))
 			  bd/device-list)
 		,orphan-view))
 	      ("r" "Recreational"
 	       ((tags-todo "+idea"
-			   ((org-agenda-block-separator nil)
-			    (org-agenda-skip-function
+			   ((org-agenda-skip-function
 			     '(org-agenda-skip-entry-if 'regexp "chore"))
 			    (org-agenda-overriding-header "Ideas\n")))
 		(tags-todo "+reading|+writing"
-			   ((org-agenda-block-separator nil)
-			    (org-agenda-skip-function
+			   ((org-agenda-skip-function
 			     '(org-agenda-skip-entry-if 'regexp "chore"))
 			    (org-agenda-overriding-header "\nReading/Writing\n")))
 		(tags-todo "+programming|+web"
-			   ((org-agenda-block-separator nil)
-			    (org-agenda-skip-function
+			   ((org-agenda-skip-function
 			     '(org-agenda-skip-entry-if 'regexp "chore"))
 			    (org-agenda-overriding-header "\nProgramming\n")))
 		,orphan-view))
 	      ("s" "College"
 	       ((tags-todo (bd/combine-tags bd/course-list t t)
-			   ((org-agenda-block-separator nil)
-			    (org-agenda-overriding-header "\nAll Courses\n")))
-		(agenda "" ((org-agenda-block-separator nil)
-			    (org-agenda-entry-types '(:deadline :scheduled))
+			   ((org-agenda-overriding-header "\nAll Courses\n")))
+		(agenda "" ((org-agenda-entry-types '(:deadline :scheduled))
 			    (org-agenda-show-all-dates nil)
 			    (org-agenda-span 15)
-			    (org-deadline-warning-days 0)
 			    (org-scheduled-past-days 7)
 			    (org-agenda-skip-function
 			     '(org-agenda-skip-entry-if 'notregexp
diff --git a/.config/emacs/modules/bd--shells.el b/.config/emacs/modules/bd--shells.el
index 1f31e70..56fcf81 100644
--- a/.config/emacs/modules/bd--shells.el
+++ b/.config/emacs/modules/bd--shells.el
@@ -14,7 +14,7 @@
 
 (use-package em-banner
   :custom
-  (eshell-banner-message (concat "\n" (propertize " " 'display (create-image (expand-file-name "~/.config/emacs/images/raven.png") 'png nil :scale 0.8 :align-to "center")) "\n")))
+  (eshell-banner-message (concat "\n" (propertize " " 'display (create-image (expand-file-name "images/raven.png" user-emacs-directory) 'png nil :scale 0.8 :align-to "center")) "\n")))
 
 (require 'ef-themes)
 (use-package em-prompt
diff --git a/.config/guix/modules/emacs.scm b/.config/guix/modules/emacs.scm
index 4e9b75e..1e80de8 100644
--- a/.config/guix/modules/emacs.scm
+++ b/.config/guix/modules/emacs.scm
@@ -44,7 +44,6 @@
    emacs-transient
    emacs-transmission
    emacs-yasnippet
-   emacs-yasnippet-snippets
 
    aspell
    aspell-dict-en