path: root/home/programs/emacs/site-lisp/init-text.el

;;; init-text.el --- Configure text modes -*- lexical-binding: t -*-
;; Author: Franck Cuny <franck@fcuny.net>

;;; Commentary:

;; Configure completions

;;; Code:

(use-package flyspell
  :hook ((text-mode       . flyspell-mode)
         (org-mode        . flyspell-mode)
         (git-commit-mode . flyspell-mode)
         (prog-mode       . flyspell-prog-mode))
  :diminish flyspell-mode
  :custom
  (ispell-program-name "aspell")
  (ispell-silently-savep t)
  (ispell-dictionary "en_US")
  (ispell-local-dictionary "en_US")
  (ispell-extra-args '("--camel-case")))

(use-package markdown-mode
  :mode (("\\`README\\.md\\'" . gfm-mode)
         ("\\.md\\'"          . markdown-mode)
         ("\\.markdown\\'"    . markdown-mode))
  :custom
  (markdown-command "pandoc -f markdown_github+smart")
  (markdown-command-needs-filename t)
  (markdown-enable-math t)
  (markdown-open-command "marked")
  :init
  (setq markdown-command "multimarkdown"))

(use-package org
  :hook
  (org-mode . turn-on-flyspell)
  (org-mode . visual-line-mode)
  (org-mode . org-indent-mode)

  :custom
  (org-directory "~/Documents/org")
  (org-default-notes-file (expand-file-name "notes.org" org-directory))

  (org-startup-folded t)
  (org-startup-indented t)
  (org-startup-with-inline-images t)
  (org-adapt-indentation 'headline-data)

  ;; enable todo and checkbox dependencies
  (org-enforce-todo-dependencies t)
  (org-enforce-todo-checkbox-dependencies t)

  ;; quick access for todo states
  (org-todo-keywords
   '((sequence "TODO(t)" "NEXT(n)" "WAITING(w!)" "SOMEDAY(S!)" "|" "DONE(d)")
     (sequence "|" "CANCELLED(c)")))

  (org-tag-alist
   '((:startgroup)
     ("!Handson" . ?o)
     (:grouptags)
     ("write" . ?w) ("code" . ?c)
     (:endgroup)

     (:startgroup)
     ("_Handsoff" . ?f)
     (:grouptags)
     ("read" . ?r) ("watch" . ?W)
     (:endgroup)))

  (org-log-done 'time)
  (org-log-into-drawer t)

  ;; refile
  (org-refile-use-outline-path t)
  (org-refile-allow-creating-parent-nodes t)
  (org-refile-use-cache t)

  ;; no empty lines between items
  (org-blank-before-new-entry '((heading . nil) (plain-list-item . nil)))

  (org-hide-emphasis-markers t)
  (org-hide-leading-stars t)
  (org-pretty-entities t)

  (org-return-follows-link t)

  (org-export-backends '(html md))

  (org-imenu-depth 4)

  (org-insert-heading-respect-content t)

  (org-outline-path-complete-in-steps nil)

  (org-src-fontify-natively t)
  (org-src-preserve-indentation t)
  (org-src-tab-acts-natively t)
  (org-src-window-setup 'current-window)

  (org-yank-adjusted-subtrees t)

  (org-structure-template-alist
   '(("s" . "src")
     ("E" . "src emacs-lisp")
     ("p" . "src python")
     ("e" . "example")
     ("q" . "quote"))))

(use-package org-capture
  :ensure nil
  :after org
  :bind
  ("C-c c" . org-capture)
  :custom
  (org-capture-templates
   '(("t" "Tasks" entry (file+headline "~/Documents/org/tasks.org" "Tasks")
      "* TODO %?\n  :PROPERTIES:\n  :CAPTURED: %U\n  :END:" :prepend t))))

(use-package org-agenda
  :ensure nil
  :after org
  :bind
  ("C-c a" . org-agenda)
  :custom
  (org-agenda-start-on-weekday 1)
  (org-deadline-warning-days 3)
  (org-agenda-inhibit-startup t)
  (org-agenda-diary-file "~/Documents/org/tasks.org")
  (org-agenda-files '("~/Documents/org/tasks.org"))
  (org-agenda-restore-windows-after-quit t)
  (org-agenda-skip-deadline-if-done t)
  (org-agenda-skip-scheduled-if-done t)
  (org-agenda-custom-commands
   '(;; Todo and tags views for ongoing tasks by types of activity
     ("#" "To archive" todo "DONE|SKIP")
     ("A" "Hands on" tags-todo "+TAGS={write\\|code}+TODO={ONGO}")
     ("Z" "Hands off" tags-todo "+TAGS={read\\|watch}+TODO={ONGO}")

     ;; Agenda view to see ONGO/NEXT tasks for this week
     ("*" . "What's next?")
     ("**" "ONGO/NEXT all" tags-todo "TODO={NEXT}")

     ;; Agenda view to see TODO tasks with no SCHEDULED/DEADLINE
     (";" . "What's to do?")
     (";;" "TODO all" tags-todo "TODO={TODO}+DEADLINE=\"\"+SCHEDULED=\"\"")

     ;; Agenda view to see WAIT tasks with no SCHEDULED/DEADLINE
     (":" . "What's waiting?")
     ("::" "WAIT all" tags-todo "TODO={WAITING}+DEADLINE=\"\"+SCHEDULED=\"\"")

     ;; Agenda view to see upcoming deadlines with 60 days of warning period
     ("!" . "Upcoming deadlines")
     ("!!" "Deadlines all" agenda "Past/upcoming deadlines"
      ((org-agenda-span 1)
       (org-deadline-warning-days 60)
       (org-agenda-entry-types '(:deadline))))))
  (org-agenda-sorting-strategy
   '((agenda time-up deadline-up scheduled-up todo-state-up priority-down)
     (todo todo-state-down priority-down deadline-up)
     (tags todo-state-down priority-down deadline-up)
     (search todo-state-down priority-down deadline-up))))

(use-package denote
  :hook
  (dired-mode . denote-dired-mode)

  :custom-face
  (denote-faces-link ((t (:slant italic))))

  :init
  (require 'denote-org)

  :bind
  (("C-c w d b" . denote-find-backlink)
   ("C-c w d d" . denote-date)
   ("C-c w d l" . denote-find-link)
   ("C-c w d h" . denote-org-link-to-heading)
   ("C-c w d i" . denote-link-or-create)
   ("C-c w d j" . denote-journal-extras-new-or-existing-entry)
   ("C-c w d k" . denote-rename-file-keywords)
   ("C-c w d n" . denote)
   ("C-c w d N" . denote-open-or-create)
   ("C-c w d r" . denote-rename-file)
   ("C-c w d R" . denote-rename-file-using-front-matter))

  :custom
  (denote-sort-keywords t)
  (denote-known-keywords '("journal" "projects" "ideas" "people" "interviews"))
  (denote-directory "~/Documents/org"))

(use-package consult-denote
  :after (consult denote)
  :config
  (consult-denote-mode))

(use-package ledger-mode
  :mode ("\\.journal\\'" "\\.ledger\\'" "\\.hledger\\'" "\\.dat\\'")
  :custom
  ((ledger-binary-path "hledger")
   (ledger-mode-should-check-version nil)
   (ledger-report-auto-width nil)
   (ledger-report-links-in-register nil)
   (ledger-report-native-highlighting-arguments '("--color=always"))
   (ledger-report-use-header-line t)))

(use-package flymake-hledger
  :after (ledger-mode flymake)
  :hook
  (ledger-mode . flymake-hledger-enable)
  :custom
  ;; https://hledger.org/1.30/hledger.html#check for the meaning of
  ;; each check and a list of all of them.
  (flymake-hledger-checks '("accounts"
                            "commodities"
                            "balancednoautoconversion")))

(provide 'init-text)

;;; init-text.el ends here