You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
dotfiles/emacs_home.el

84 lines
3.0 KiB

(setq org-agenda-files (list "~/Documents/home-org-mode/tweaking.org"
"~/Documents/org-mode/school.org"
"~/Documents/home-org-mode/untitled_project.org"
"~/Documents/home-org-mode/personal.org"))
3 years ago
(set-frame-font "Iosevka:size=16")
(use-package all-the-icons)
(use-package org-roam
:ensure t
:init
(setq org-roam-v2-ack t)
:custom
(org-roam-directory "~/Documents/slipbox")
(org-roam-capture-templates
'(("d" "default" plain
"%?"
:if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n")
:unnarrowed t)
("b" "book notes" plain
"\n* Source\n\nAuthor: %^{Author}\nTitle: ${title}\nYear: %^{Year}\n\n %?"
:if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n")
:unnarrowed t)))
(org-roam-completion-everywhere t)
(org-roam-completion-system 'default)
(org-roam-dailies-directory "daily/")
(org-roam-dailies-capture-templates
'(("d" "default" entry
#'org-roam-capture--get-point
"* %?"
:file-name "Journal/%<%Y-%m-%d>"
:head "#+title: %<%Y-%m-%d %a>\n\n[[roam:%<%Y-%B>]]\n\n")
("t" "Task" entry
#'org-roam-capture--get-point
"* TODO %?\n %U\n %a\n %i"
:file-name "Journal/%<%Y-%m-%d>"
:olp ("Tasks")
:empty-lines 1
:head "#+title: %<%Y-%m-%d %a>\n\n[[roam:%<%Y-%B>]]\n\n")
("j" "journal" entry
#'org-roam-capture--get-point
"* %<%I:%M %p> - Journal :journal:\n\n%?\n\n"
:file-name "Journal/%<%Y-%m-%d>"
:olp ("Log")
:head "#+title: %<%Y-%m-%d %a>\n\n[[roam:%<%Y-%B>]]\n\n")
("m" "meeting" entry
#'org-roam-capture--get-point
"* %<%I:%M %p> - %^{Meeting Title} :meetings:\n\n%?\n\n"
:file-name "Journal/%<%Y-%m-%d>"
:olp ("Log")
:head "#+title: %<%Y-%m-%d %a>\n\n[[roam:%<%Y-%B>]]\n\n")))
:bind (("C-c n l" . org-roam-buffer-toggle)
("C-c n f" . org-roam-node-find)
("C-c n i" . org-roam-node-insert)
("C-c n d" . org-roam-dailies-find-date)
("C-c n c" . org-roam-dailies-capture-today)
("C-c n C r" . org-roam-dailies-capture-tomorrow)
("C-c n t" . org-roam-dailies-find-today)
("C-c n y" . org-roam-dailies-find-yesterday)
("C-c n r" . org-roam-dailies-find-tomorrow)
:map org-mode-map
("C-M-i" . completion-at-point))
:config
(require 'org-roam-dailies)
(org-roam-setup)
(org-roam-db-autosync-mode))
3 years ago
(add-to-list 'auto-mode-alist '("neomutt" . mail-mode))
(setq appt-message-warning-time 15
appt-display-format 'window)
(appt-activate 1)
(defun notify-send (title msg)
(interactive)
(shell-command (concat "notify-send '" title "' '" msg "'")))
(defun facade-notify-appt (min-to-app new-time msg)
(notify-send (format "Appointment in %s minute(s)" min-to-app) msg))
(add-hook 'mail-mode-hook 'flyspell-mode 1)
(add-hook 'org-mode-hook 'flyspell-mode 1)
(setq appt-disp-window-function (function facade-notify-appt))
3 years ago
(provide 'emacs_home)
;;;emacs_home.el ends here