7 files changed, 57 insertions, 3 deletions
diff --git a/.emacs.d/rul-lisp/packages/rul-dashboard.el b/.emacs.d/rul-lisp/packages/rul-dashboard.el
new file mode 100644
index 0000000..67bd188
--- /dev/null
+++ b/.emacs.d/rul-lisp/packages/rul-dashboard.el
@@ -0,0 +1,22 @@
+(use-package page-break-lines :ensure t)
+
+(use-package dashboard
+  :ensure t
+
+  :config
+  (dashboard-setup-startup-hook)
+
+  :custom
+  (dashboard-center-content t)
+  (dashboard-startup-banner 3)
+  (dashboard-items '((recents   . 5)
+                     (bookmarks . 5)
+                     (projects  . 5)
+                     (agenda    . 5)
+                     ))
+  (dashboard-icon-type 'nerd-icons)
+  (dashboard-set-heading-icons t)
+  (dashboard-set-file-icons t)
+)
+
+(provide 'rul-dashboard)
diff --git a/.emacs.d/rul-lisp/packages/rul-fonts.el b/.emacs.d/rul-lisp/packages/rul-fonts.el
index fdc4cd3..34cc54a 100644
--- a/.emacs.d/rul-lisp/packages/rul-fonts.el
+++ b/.emacs.d/rul-lisp/packages/rul-fonts.el
@@ -9,7 +9,7 @@
         (small
          :default-height 120)
         (medium
-         :default-height 140)
+         :default-height 150)
         (large
          :default-weight semilight
          :default-height 180
diff --git a/.emacs.d/rul-lisp/packages/rul-mail.el b/.emacs.d/rul-lisp/packages/rul-mail.el
index 15354d0..6206118 100644
--- a/.emacs.d/rul-lisp/packages/rul-mail.el
+++ b/.emacs.d/rul-lisp/packages/rul-mail.el
@@ -17,6 +17,8 @@
         notmuch-show-text/html-blocked-images nil
         )
 
+  (setq notmuch-draft-folder "current/Drafts")
+
   ;; Keymaps
   (defun rul/capture-mail()
     "Capture mail to org mode."
diff --git a/.emacs.d/rul-lisp/packages/rul-modeline.el b/.emacs.d/rul-lisp/packages/rul-modeline.el
index e20bb2c..32c6048 100644
--- a/.emacs.d/rul-lisp/packages/rul-modeline.el
+++ b/.emacs.d/rul-lisp/packages/rul-modeline.el
@@ -105,10 +105,14 @@ Specific to the current window's mode line.")
                 mode-line-front-space
                 mode-line-buffer-identification
                 mode-line-front-space
+                mode-line-percent-position
+                mode-line-front-space
                 rul-modeline-major-mode
                 prot-modeline-eglot
                 mode-line-format-right-align
                 rul-modeline-misc-info
+                mode-line-front-space
+                mode-line-front-space
                 ))
 
 (provide 'rul-modeline)
diff --git a/.emacs.d/rul-lisp/packages/rul-org.el b/.emacs.d/rul-lisp/packages/rul-org.el
index 409517e..7b2670b 100644
--- a/.emacs.d/rul-lisp/packages/rul-org.el
+++ b/.emacs.d/rul-lisp/packages/rul-org.el
@@ -171,4 +171,14 @@
 ;; Honor ATTR_ORG attribute. Defaults to image's width if not set.
 (setq org-image-actual-width nil)
 
+(use-package org-clock-agenda-daytime-mode
+    :ensure t
+    :config
+    (setq
+     org-clock-agenda-daytime-target-work-time-minutes 300
+     org-clock-agenda-daytime-maximum-work-time-minutes 480
+     )
+    (org-clock-agenda-daytime-mode)
+    )
+
 (provide 'rul-org)
diff --git a/.emacs.d/rul-lisp/packages/rul-wm.el b/.emacs.d/rul-lisp/packages/rul-wm.el
index 6c671f7..d33bcdb 100644
--- a/.emacs.d/rul-lisp/packages/rul-wm.el
+++ b/.emacs.d/rul-lisp/packages/rul-wm.el
@@ -10,8 +10,9 @@
 (setq switch-to-buffer-obey-display-actions t)
 (add-to-list 'display-buffer-alist
    '("^\\*Dictionary\\*" display-buffer-in-side-window
-     (side . left)
-     (window-width . 80)))
+     (side . bottom)
+     (window-height . 12)
+     ))
 
 ;;;; tab-bar.el
 (let ((map global-map))
diff --git a/.emacs.d/rul-lisp/packages/rul-write.el b/.emacs.d/rul-lisp/packages/rul-write.el
index de16e98..4160d2f 100644
--- a/.emacs.d/rul-lisp/packages/rul-write.el
+++ b/.emacs.d/rul-lisp/packages/rul-write.el
@@ -54,6 +54,21 @@ Else create a new file."
 ;; auto-fill mode
 (add-hook 'text-mode-hook 'turn-on-auto-fill)
 
+(use-package electric
+  :init
+  (setq electric-quote-replace-double t)
+  :hook
+  (message-mode . electric-quote-local-mode))
+
+(use-package message
+  :hook
+  (message-mode . my/message-mode-setup))
+
+(defun my/message-mode-setup ()
+  (setq fill-column 72
+        sentence-end-double-space nil)
+  (auto-fill-mode 1))
+
 ;; Flycheck
 (use-package flycheck
   :ensure t