diff options
| -rw-r--r-- | .emacs.d/init.el | 1 | ||||
| -rw-r--r-- | .emacs.d/rul-lisp/packages/rul-dashboard.el | 22 | ||||
| -rw-r--r-- | .emacs.d/rul-lisp/packages/rul-fonts.el | 2 | ||||
| -rw-r--r-- | .emacs.d/rul-lisp/packages/rul-mail.el | 2 | ||||
| -rw-r--r-- | .emacs.d/rul-lisp/packages/rul-modeline.el | 4 | ||||
| -rw-r--r-- | .emacs.d/rul-lisp/packages/rul-org.el | 10 | ||||
| -rw-r--r-- | .emacs.d/rul-lisp/packages/rul-wm.el | 5 | ||||
| -rw-r--r-- | .emacs.d/rul-lisp/packages/rul-write.el | 15 |
8 files changed, 58 insertions, 3 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index a07d86f..43b9e06 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -76,6 +76,7 @@ (require 'rul-themes) (require 'rul-bindings) (require 'rul-completion) +(require 'rul-dashboard) (require 'rul-fm) (require 'rul-fonts) (require 'rul-io) 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 |