From 151d7c2676a7d09729344ee27a74b7475e1c6d5b Mon Sep 17 00:00:00 2001 From: mattkae Date: Mon, 20 Jun 2022 06:41:03 -0400 Subject: Ignore tilda files --- lisp/org-custom.el~ | 73 ----------------------------------------------------- 1 file changed, 73 deletions(-) delete mode 100644 lisp/org-custom.el~ (limited to 'lisp/org-custom.el~') diff --git a/lisp/org-custom.el~ b/lisp/org-custom.el~ deleted file mode 100644 index 94b38aa..0000000 --- a/lisp/org-custom.el~ +++ /dev/null @@ -1,73 +0,0 @@ -;; https://zzamboni.org/post/beautifying-org-mode-in-emacs/ - -(defun org-custom-hook() - (setq org-hide-emphasis-markers t) - (font-lock-add-keywords 'org-mode - '(("^ *\\([-]\\) " - (0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•")))))) - - (let* ((variable-tuple - (cond ((x-list-fonts "ETBembo") '(:font "ETBembo")) - ((x-list-fonts "Source Sans Pro") '(:font "Source Sans Pro")) - ((x-list-fonts "Lucida Grande") '(:font "Lucida Grande")) - ((x-list-fonts "Verdana") '(:font "Verdana")) - ((x-family-fonts "Sans Serif") '(:family "Sans Serif")) - (nil (warn "Cannot find a Sans Serif Font. Install Source Sans Pro.")))) - (base-font-color (face-foreground 'default nil 'default)) - (headline `(:inherit default :weight normal :foreground ,base-font-color))) - - (custom-theme-set-faces - 'user - `(org-level-8 ((t (,@headline ,@variable-tuple)))) - `(org-level-7 ((t (,@headline ,@variable-tuple)))) - `(org-level-6 ((t (,@headline ,@variable-tuple)))) - `(org-level-5 ((t (,@headline ,@variable-tuple)))) - `(org-level-4 ((t (,@headline ,@variable-tuple :height 0.8)))) - `(org-level-3 ((t (,@headline ,@variable-tuple :height 0.9)))) - `(org-level-2 ((t (,@headline ,@variable-tuple :height 1.0)))) - `(org-level-1 ((t (,@headline ,@variable-tuple :height 1.1 :weight bold)))) - `(org-document-title ((t (,@headline ,@variable-tuple :height 1.5 :underline t :weight:bold)))))) - - (custom-theme-set-faces - 'user - '(org-block ((t (:inherit fixed-pitch)))) - '(org-code ((t (:inherit (shadow fixed-pitch))))) - '(org-document-info ((t (:foreground "dark orange")))) - '(org-document-info-keyword ((t (:inherit (shadow fixed-pitch))))) - '(org-indent ((t (:inherit (org-hide fixed-pitch))))) - '(org-link ((t (:foreground "royal blue" :underline t)))) - '(org-meta-line ((t (:inherit (font-lock-comment-face fixed-pitch))))) - '(org-property-value ((t (:inherit fixed-pitch))) t) - '(org-special-keyword ((t (:inherit (font-lock-comment-face fixed-pitch))))) - '(org-table ((t (:inherit fixed-pitch :foreground "#83a598")))) - '(org-tag ((t (:inherit (shadow fixed-pitch) :weight bold :height 0.8)))) - '(org-verbatim ((t (:inherit (shadow fixed-pitch)))))) - - (variable-pitch-mode) - (visual-line-mode) - - (require 'org-bullets) - (org-bullets-mode 1) - - (setq org-blank-before-new-entry (quote ((heading . nil) - (plain-list-item . nil)))) -) - -(custom-set-variables - '(org-directory "~/Documents/org") - '(org-agenda-files (list org-directory))) - -(setq org-todo-keywords - '((sequence "TODO" "PROGRESS" "VERIFY" "|" "DONE" "ABANDONED"))) - -(setq org-todo-keyword-faces - '(("TODO" . "RED") ("PROGRESS" . "royal blue") ("VERIFY" . "#E0A526") ("ABANDONED" . "light gray") ("DONE" . "dark green")) - ) - -(global-set-key "\C-cl" 'org-store-link) -(global-set-key "\C-ca" 'org-agenda) -(global-set-key "\C-cc" 'org-capture) -(global-set-key "\C-cb" 'org-iswitchb) - - -(provide 'org-custom) -- cgit v1.2.1