dotfiles/home/default/.config/doom/config.el

;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-

;; Place your private configuration here! Remember, you do not need to run 'doom
;; sync' after modifying this file!


;; Some functionality uses this to identify you, e.g. GPG configuration, email
;; clients, file templates and snippets. It is optional.
(setq user-full-name "John Doe"
      user-mail-address "john@doe.com")

;; Doom exposes five (optional) variables for controlling fonts in Doom:
;;
;; - `doom-font' -- the primary font to use
;; - `doom-variable-pitch-font' -- a non-monospace font (where applicable)
;; - `doom-big-font' -- used for `doom-big-font-mode'; use this for
;;   presentations or streaming.
;; - `doom-unicode-font' -- for unicode glyphs
;; - `doom-serif-font' -- for the `fixed-pitch-serif' face
;;
;; See 'C-h v doom-font' for documentation and more examples of what they
;; accept. For example:
;;
(setq doom-variable-pitch-font (font-spec :family "Libertinus Serif" :size 13))
;;(setq doom-variable-pitch-font (font-spec :family "DejaVu Serif" :size 13))
;;

;; If you or Emacs can't find your font, use 'M-x describe-font' to look them
;; up, `M-x eval-region' to execute elisp code, and 'M-x doom/reload-font' to
;; refresh your font settings. If Emacs still can't find your font, it likely
;; wasn't installed correctly. Font issues are rarely Doom issues!

;; There are two ways to load a theme. Both assume the theme is installed and
;; available. You can either set `doom-theme' or manually load a theme with the
;; `load-theme' function. This is the default:
(setq doom-theme 'doom-tomorrow-night)
;(setq doom-theme 'doom-one)
;(setq doom-theme 'doom-wilmersdorf)
;(setq doom-theme 'doom-plain-dark)
;(setq doom-theme 'doom-feather-dark)

;(setq doom-theme 'doom-plain)
;(setq doom-theme 'doom-flatwhite)

;; This determines the style of line numbers in effect. If set to `nil', line
;; numbers are disabled. For relative line numbers, set this to `relative'.
(setq display-line-numbers-type t)

;; If you use `org' and don't want your org files in the default location below,
;; change `org-directory'. It must be set before org loads!
(setq org-directory "~/notebook/")


;; Whenever you reconfigure a package, make sure to wrap your config in an
;; `after!' block, otherwise Doom's defaults may override your settings. E.g.
;;
;;   (after! PACKAGE
;;     (setq x y))
;;
;; The exceptions to this rule:
;;
;;   - Setting file/directory variables (like `org-directory')
;;   - Setting variables which explicitly tell you to set them before their
;;     package is loaded (see 'C-h v VARIABLE' to look up their documentation).
;;   - Setting doom variables (which start with 'doom-' or '+').
;;
;; Here are some additional functions/macros that will help you configure Doom.
;;
;; - `load!' for loading external *.el files relative to this one
;; - `use-package!' for configuring packages
;; - `after!' for running code after a package has loaded
;; - `add-load-path!' for adding directories to the `load-path', relative to
;;   this file. Emacs searches the `load-path' when you load packages with
;;   `require' or `use-package'.
;; - `map!' for binding new keys
;;
;; To get information about any of these functions/macros, move the cursor over
;; the highlighted symbol at press 'K' (non-evil users must press 'C-c c k').
;; This will open documentation for it, including demos of how they are used.
;; Alternatively, use `C-h o' to look up a symbol (functions, variables, faces,
;; etc).
;;
;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how
;; they are implemented.

(after! org

;;; agenda files
(setq org-agenda-files '("~/housekeeping/calendar.org"
                         "~/notebook/ag/"
                         "~/notebook/refile.org"
                         "~/notebook/notes/events/birthdays.org"))


  (setq org-log-done 'time)

  (use-package! org-journal
    :init
    (setq org-journal-dir "~/diary"
          org-journal-date-prefix "#+TITLE: "
          org-journal-time-prefix "+ "
          org-journal-date-format "%a, %Y-%m-%d"
          org-journal-file-format "%Y-%m-%d.org"
        )
  )

  (use-package! org-books
    :init
    (setq org-books-file "~/notebook/readinglist.org")
  )


  ;; NOTIFICATIONS CONFIGURATION REFERENCE
  ;;; note : it's probably better to add this after
  ;;;        setting org-agenda-files.
  ;;;        use this under (!after org ...
  ;;;        else it would't work
  ;
  ;(use-package! org-wild-notifier
  ;  :defer t
  ;  :init
  ;  (add-hook 'doom-post-init-hook (org-wild-notifier-mode))
  ;  :config
  ;  (setq alert-default-style 'libnotify)
  ;;; set to libnotify or notifications or osx-notifier
  ;  (setq org-wild-notifier-alert-time '(60 30))
  ;;; alert time defaults to '(10) if not set
  ;  (setq org-wild-notifier-keyword-whitelist nil))
  ;  (setq org-wild-notifier-keyword-blacklist '("DONE"))


  (use-package! org-wild-notifier
    :defer t
    :init
    (add-hook 'doom-post-init-hook (org-wild-notifier-mode))
    :config
    (setq alert-default-style 'libnotify)
    (setq org-wild-notifier-alert-time '(10 0))
    (setq org-wild-notifier-keyword-whitelist nil))
    (setq org-wild-notifier-keyword-blacklist '("DONE"))

  ;; org-roam configurations
  (use-package! org-roam
    :ensure t
    :custom
    (setq org-roam-directory "~/notebook/roam/")
    :config
    (org-roam-setup))

  (setq org-roam-capture-templates
      '(("d" "default" plain "%?"
         :target (file+head "%<%Y%m%d%H%M%S>-${slug}.org"
                            "#+title: ${title}\n")
         :unnarrowed t)

        ;; main things
        ("l" "literature" plain "%?"
         :if-new
         (file+head "literature/%<%Y%m%d%H%M%S>-${title}.org" "#+title: ${title}\n")
         :immediate-finish t
         :unnarrowed t)
        ("p" "permanent" plain "%?"
         :if-new
         (file+head "permanent/%<%Y%m%d%H%M%S>-${title}.org" "#+title: ${title}\n")
         :immediate-finish t
         :unnarrowed t)
        ("f" "fleeting" plain "%?"
         :if-new
         (file+head "fleeting/%<%Y%m%d%H%M%S>-${title}.org" "#+title: ${title}\n")
         :immediate-finish t
         :unnarrowed t)

        ;; other categories
        ("r" "reference" plain "%?"
         :if-new
         (file+head "reference/%<%Y%m%d%H%M%S>-${title}.org" "#+title: ${title}\n")
         :immediate-finish t
         :unnarrowed t)
        ("a" "article" plain "%?"
         :if-new
         (file+head "articles/%<%Y%m%d%H%M%S>-${title}.org" "#+title: ${title}\n#+filetags: :article:\n")
         :immediate-finish t
         :unnarrowed t)))

  ;(cl-defmethod org-roam-node-type ((node org-roam-node))
  ;  "Return the TYPE of NODE."
  ;  (condition-case nil
  ;      (file-name-nondirectory
  ;       (directory-file-name
  ;        (file-name-directory
  ;         (file-relative-name (org-roam-node-file node) org-roam-directory))))
  ;    (error "")))

  ;(setq org-roam-node-display-template
  ;      (concat "${type:15} ${title:*} " (propertize "${tags:10}" 'face 'org-tag)))

  ;;; org-capture stuff
  (setq +org-capture-todo-file "ag/todo.org")
  ;; this sets Personal notes to refile instead
  (defvar +org-capture-refile-file "refile.org")
  (setq +org-capture-refile-file
        (expand-file-name +org-capture-refile-file org-directory))

  ;(add-to-list 'org-capture-templates
  ;      '(("s" "Slipbox" entry  (file "braindump/org/inbox.org")
  ;       "* %?\n")
  ;        ("t" "Personal todo" entry
  ;         (file+headline +org-capture-todo-file "Inbox")
  ;         "* [ ] %?\n%i\n%a" :prepend t)
  ;      )

  (setq org-capture-templates
        '(("t" "Personal todo" entry
          (file+headline +org-capture-todo-file "todo")
          "* [ ] %?\n%i\n%a")
          ("T" "Personal todo (single)" entry
          (file+headline +org-capture-todo-file "todo")
          "* [ ] %?\n")

          ("n" "Personal notes" entry
          (file +org-capture-refile-file)
          "* %u %?\n%i\n%a" :prepend t)

          ;; using org-journal atm..
          ;("j" "Journal" entry
          ;(file+olp+datetree +org-capture-journal-file)
          ;"* %U %?\n%i\n%a" :prepend t)

          ;; Will use {project-root}/{todo,notes,changelog}.org, unless a
          ;; {todo,notes,changelog}.org file is found in a parent directory.
          ;; Uses the basename from `+org-capture-todo-file',
          ;; `+org-capture-changelog-file' and `+org-capture-notes-file'.
          ("p" "Templates for projects")
          ("pt" "Project-local todo" entry  ; {project-root}/todo.org
           (file+headline +org-capture-project-todo-file "Inbox")
           "* TODO %?\n%i\n%a" :prepend t)
          ("pn" "Project-local notes" entry  ; {project-root}/notes.org
           (file+headline +org-capture-project-notes-file "Inbox")
           "* %U %?\n%i\n%a" :prepend t)
          ("pc" "Project-local changelog" entry  ; {project-root}/changelog.org
           (file+headline +org-capture-project-changelog-file "Unreleased")
           "* %U %?\n%i\n%a" :prepend t)

          ;; Will use {org-directory}/{+org-capture-projects-file} and store
          ;; these under {ProjectName}/{Tasks,Notes,Changelog} headings. They
          ;; support `:parents' to specify what headings to put them under, e.g.
          ;; :parents ("Projects")
          ("o" "Centralized templates for projects")
          ("ot" "Project todo" entry
           (function +org-capture-central-project-todo-file)
           "* TODO %?\n %i\n %a"
           :heading "Tasks"
           :prepend nil)
          ("on" "Project notes" entry
           (function +org-capture-central-project-notes-file)
           "* %U %?\n %i\n %a"
           :heading "Notes"
           :prepend t)
          ("oc" "Project changelog" entry
           (function +org-capture-central-project-changelog-file)
           "* %U %?\n %i\n %a"
           :heading "Changelog"
           :prepend t)

          ;; org books / general logging
          ("b" "Book log" item (function org-books-visit-book-log)
           "- %U %?" :prepend t)

          ;; zettelkasten
          ("s" "Slipbox" entry  (file "roam/inbox.org")
           "* %?\n")))

)
;;; end of (!after org ...

;;; for testing
(defun org-wild-notifier-debug ()
  "Collect debug information for org-wild-notifier"
  (interactive)
  (save-window-excursion
    (let ((org-agenda-use-time-grid nil)
          (org-agenda-compact-blocks t)
          (org-agenda-window-setup 'current-window)
          (org-agenda-buffer-name nil)
          (org-agenda-buffer-tmp-name org-wild-notifier--agenda-buffer-name))

      (org-agenda-list 2)
      (message "registered events: %s \n blacklist: %s \n whitelist: %s \n"
               (org-wild-notifier--retrieve-events)
               org-wild-notifier-keyword-blacklist
               org-wild-notifier-keyword-whitelist)

      (message "filtered events: %s"
               (->> (org-wild-notifier--retrieve-events)
                    (-map 'org-wild-notifier--check-event)))


      (kill-buffer))))

(defun org-wild-notifier-alert-test ()
  (interactive)
  (alert "test")
)
;;; end

(defun agenda/hide-daily-schedule-1 (&optional arg)
  (interactive "P")
  (let ((org-agenda-tag-filter-preset '("-habits")))
   (org-agenda arg "a")))
(bind-key "<f5>" 'agenda/hide-daily-schedule-1)

;;; termux specific
;(setq browse-url-browser-function 'browse-url-generic
;      browse-url-generic-program "termux-open")

(defun jethro/org-archive-done-tasks ()
  "Archive all done tasks."
  (interactive)
  (org-map-entries 'org-archive-subtree "/DONE" 'file))