Updating the org UI to try and make it better looking.

Mixed Mode is loaded from the zen doom module, but there's a fair amount
of general weirdness with the ZEN mode so there might be some rough edges.
This commit is contained in:
James Patrick 2021-04-02 15:47:25 -04:00
parent 65e012d880
commit 76fa17427f
3 changed files with 69 additions and 8 deletions

View File

@ -38,3 +38,62 @@
;; org-journal-file-format
(customize-set-variable 'org-journal-date-format "%A, %d %B %Y")
;;; Making OrgMode it better looking
; User Mix Pitch Mode for orgmode
(add-hook! 'org-mode-hook #'+org-pretty-mode #'mixed-pitch-mode)
; Add Padding
(add-hook 'org-mode-hook (lambda ()
"Add padding left and right margins to orgmode"
(display-line-numbers-mode -1)
;(text-scale-set 2)
(setq left-margin-width 2)
(setq right-margin-width 2)
(set-window-buffer nil (current-buffer))))
(custom-set-faces!
'(default :height 1)
'(org-document-title :height 2.2))
(setq org-agenda-deadline-faces
'((1.001 . error)
(1.0 . org-warning)
(0.5 . org-upcoming-deadline)
(0.0 . org-upcoming-distant-deadline)))
;; Use appear to make org syntax easier to not fuck up.
;(use-package! org-appear
; :hook (org-mode . org-appear-mode)
; :config
; (setq org-appear-autoemphasis t
; org-appear-autosubmarkers t
; org-appear-autolinks nil)
; ;; for proper first-time setup, `org-appear--set-elements'
; ;; needs to be run after other hooks have acted.
; (run-at-time nil nil #'org-appear--set-elements))
;; Added Org-mode
(add-hook 'org-mode-hook (lambda ()
"Beautify Org Checkbox Symbol"
(push '("[ ]" . "") prettify-symbols-alist)
(push '("[X]" . "" ) prettify-symbols-alist)
(push '("[-]" . "" ) prettify-symbols-alist)
(prettify-symbols-mode)))
;;; Org-Agenda Options
(use-package! org-super-agenda
:commands (org-super-agenda-mode))
(after! org-agenda
(org-super-agenda-mode))
(setq org-agenda-skip-scheduled-if-done t
org-agenda-skip-deadline-if-done t
org-agenda-include-deadlines t
org-agenda-block-separator nil
org-agenda-tags-column 100 ;; from testing this seems to be a good value
org-agenda-compact-blocks t)

View File

@ -3,12 +3,11 @@
;; Use "," as leader.
(setq doom-localleader-key ",")
;; Firacode is broken with Emacs-plus on osx. Fallback to Hasklig.
(if IS-MAC
(setq doom-font (font-spec :family "Hasklig" :size 12))
(setq doom-font (font-spec :family "FiraCode Nerd Font" :size 12))
)
;;
;; Firacode is broken with Emacs-plus on osx. Fallback to Hasklig
(setq doom-font (font-spec :family "Hasklig" :size 12)
doom-variable-pitch-font (font-spec :family "ETbembo" :size 16)
doom-big-font (font-spec :family "Hasklig" :size 16))
;; Set font
(pcase (system-name)
("zuk"

View File

@ -2,8 +2,11 @@
;;; ~/.doom.d/packages.el
(package! vimrc-mode)
(package! graphviz-dot-mode)
(package! graphviz-dot-mode :pin "3642a0a5f4...")
(package! systemd :pin "b6ae63a236...")
(package! org-super-agenda :pin "f5e80e4d0d...")
(package! selectric-mode :pin "1840de71f7...")
(package! spray :pin "74d9dcfa2e...")
(package! postcss-sorting)
;;; Examples:
;; (package! pretty-mode)