;;; lisp/org-mode.el --- org-mode improvements for Emacs -*- lexical-binding: t; -*-
;;; Commentary:
;;
;; A lot of people out there will agree wholeheartedly that org mode is great.
;; Tons of fine-grained control, simplicity, and extensibilty - all built-in by
;; default into a single tool that works beautifully with Emacs.
;;
;;; Code:

;; org-mode ;; org-modern
;; Option 2: Globally
(use-package org-modern
  :after org)
(with-eval-after-load 'org (global-org-modern-mode))

;; Prevent the usage of automatic <> delimiters in org mode (conflict with snippets)
(add-hook 'org-mode-hook (lambda ()
           (setq-local electric-pair-inhibit-predicate
                   `(lambda (c)
                  (if (char-equal c ?<) t (,electric-pair-inhibit-predicate c))))))

(with-eval-after-load 'org
  ;; Faces for the font sizes of org-mode headings
  (set-face-attribute 'org-level-8 nil :weight 'bold)
  (set-face-attribute 'org-level-7 nil :weight 'bold)
  (set-face-attribute 'org-level-6 nil :weight 'bold)
  (set-face-attribute 'org-level-5 nil :weight 'bold)
  (set-face-attribute 'org-level-4 nil :weight 'bold)
  (set-face-attribute 'org-level-3 nil :weight 'bold :height 1.05)
  (set-face-attribute 'org-level-2 nil :weight 'bold :height 1.1)
  (set-face-attribute 'org-level-1 nil :weight 'bold :height 1.2)
  (set-face-attribute 'org-document-title nil
                    :height 1.65
                    :foreground 'unspecified
                    :weight 'bold))

(with-eval-after-load 'org
  ;; Customize org-mode's default functionality
  (setq org-ellipsis "..."
	org-use-property-inheritance t
	org-list-allow-alphabetical t
	org-catch-invisible-edits 'smart
	org-startup-indented t
	org-hide-emphasis-markers t
	org-startup-with-inline-images t
	org-image-actual-width '(300)
	org-pretty-entities t
	org-adapt-indentation t)

  ;; (plist-put org-format-latex-options :scale 2.5) ; Scale up latex elements (HiDPI)
  (setq org-directory "~/Org/") ; Set the folder used by org-mode
  (setq org-agenda-files (quote ("~/Org/")))
  (setq org-roam-directory "~/Org/Roam/")) ; Set the folder used by org-roam
;; org-roam - A plain-text personal knowledge management system
(use-package org-roam
  :init
  (org-roam-db-autosync-mode 1)
  (setq org-roam-capture-templates
      '(("d" "default" plain
         "\n%?"
        :if-new (file+head "${slug}.org" "#+title: ${title}\n#+date: %U\n#+author: %n\n")
        :unnarrowed t)))) ; Automatically sync nodes

;; Keybinds for org-mode
;; evil-org - Some nice keybinds for org-mode and org-agenda
(use-package evil-org
  :after org
  :config
  (add-hook 'org-mode-hook 'evil-org-mode)
  (add-hook 'org-agenda-mode-hook 'evil-org-mode)
  (require 'evil-org-agenda)
  (evil-org-agenda-set-keys))

(with-eval-after-load 'general
  (general-create-definer diancite/org :prefix leader-key)
  (diancite/org
    :keymaps 'normal
    "n f" '(org-roam-node-find :wk "Find Nodes")
    "n s" '(org-roam-db-sync :wk "Sync Nodes")
    "n c" '(org-todo :wk "Cycle Todo")
    "n l" '(org-latex-preview :wk "Preview Latex")
    "n a" '(org-agenda :wk "Agenda")
    "n i" '(org-insert-link :wk "Insert Link")
    "n t" '(:wk "Tables")
    "n t a" '(org-table-align :wk "Align Table")
    "n t c" '(org-table-create :wk "Create Table")))

;;; org-mode.el ends here