This repository has been archived on 2024-03-23. You can view files and clone it, but cannot push or open issues or pull requests.
dianciemacs/lisp/org-mode.el
Muhammad Nauman Raza afb3ff06e9
feat: interface improvements
This update works alongside the improvement to the colorscheme that
this configuration uses.
2023-06-27 22:54:04 +01:00

89 lines
3.2 KiB
EmacsLisp

;;; 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)
(set-face-attribute 'org-level-2 nil :weight 'bold :height 1.05)
(set-face-attribute 'org-level-1 nil :weight 'bold :height 1.15)
(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