pixelifytica/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Update dashboard contents

Browse source 
Add bind to toggle visual-fill-column-mode, open dashboard. Remove
some other binds to open directories that I wasn't really using
This commit is contained in:
Evie Litherland-Smith 2025-01-15 09:27:14 +00:00
parent eb601ee3a7
commit 142fab60c4
1 changed files with 8 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
init.el
View file

@ -123,7 +123,9 @@
(use-package dashboard
:if (package-installed-p 'dashboard)
:functions (dashboard-setup-startup-hook)
:functions (dashboard-open
dashboard-setup-startup-hook)
:bind (("C-c w d" . dashboard-open))
:custom
(dashboard-center-content t)
(dashboard-vertical-center-content t)
@ -136,23 +138,24 @@
(dashboard-week-agenda t)
(dashboard-agenda-sort-strategy '(time-up))
(dashboard-agenda-tags-format 'ignore)
(dashboard-items '((agenda . 30)))
(dashboard-items '((recents . 10) (agenda . 30)))
(dashboard-heading-icons '((recents . "nf-oct-history")
(bookmarks . "nf-oct-bookmark")
(agenda . "nf-oct-calendar")
(projects . "nf-oct-rocket")
(registers . "nf-oct-database")))
:init
(dashboard-setup-startup-hook)
(setq initial-buffer-choice #'(lambda ()
(get-buffer-create "*dashboard*")))
:config
(dashboard-setup-startup-hook))
(get-buffer-create "*dashboard*"))))
(global-visual-line-mode +1)
(setopt visual-line-fringe-indicators '(left-curly-arrow right-curly-arrow))
(use-package visual-fill-column
:if (package-installed-p 'visual-fill-column)
:functions (visual-fill-column-mode)
:bind (("C-x x w" . visual-fill-column-mode))
:custom
(visual-fill-column-width 120)
(visual-fill-column-center-text t)
@ -1262,13 +1265,6 @@
(keymap-global-set "C-c w t" #'my/open-template-file)
;; Org shortcuts
(defun my/open-org-directory ()
"Open base `org-mode' directory in Dired."
(interactive)
(require 'org)
(find-file org-directory))
(keymap-global-set "C-c w o" #'my/open-org-directory)
(defun my/open-org-default-notes-file ()
"Open default `org-mode' notes file."
(interactive)
@ -1283,22 +1279,6 @@
(find-file (car org-cite-global-bibliography)))
(keymap-global-set "C-c w b" #'my/open-global-bibliography)
(defun my/open-documents-directory ()
"Open Documents directory."
(interactive)
(find-file "~/Documents/"))
(defun my/open-downloads-directory ()
"Open Downloads directory."
(interactive)
(find-file "~/Downloads/"))
(defun my/open-projects-directory ()
"Open Projects directory."
(interactive)
(find-file "~/Projects/"))
(keymap-global-set "C-c w d" #'my/open-documents-directory)
(keymap-global-set "C-c w C-d" #'my/open-downloads-directory)
(keymap-global-set "C-c w p" #'my/open-projects-directory)
(defun my/configure-theme ()
"Load theme and configure some faces."
(interactive)