Initial Commit

1 files changed, 65 insertions, 0 deletions

diff --git a/nemacs-package-org.el b/nemacs-package-org.el
new file mode 100644
index 0000000..5284334
--- /dev/null
+++ b/nemacs-package-org.el
@@ -0,0 +1,65 @@
+(use-package org
+  :init
+  (custom-declare-face '+org-todo-active  '((t (:inherit (bold font-lock-constant-face org-todo)))) "")
+  (custom-declare-face '+org-todo-project '((t (:inherit (bold font-lock-doc-face org-todo)))) "")
+  (custom-declare-face '+org-todo-onhold  '((t (:inherit (bold warning org-todo)))) "")
+  (custom-declare-face '+org-todo-cancel  '((t (:inherit (bold error org-todo)))) "")
+  (unless (file-exists-p nm/user/org-directory)
+    (make-directory nm/user/org-directory))
+  (setq org-directory nm/user/org-directory
+	org-agenda-files (list (concat nm/user/org-directory nm/user/org-todo-file-name))
+	org-todo-keywords
+	'((sequence "TODO(t)"
+		    "STRT(s)"
+		    "WAIT(w)"
+		    "|"
+		    "DONE(d)"
+		    "KILL(k)")
+	  (sequence "[ ](T)"
+		    "[-](S)"
+		    "[?](W)"
+		    "|"
+		    "[X](D)")
+	  (sequence "|"
+		    "OKAY(o)"
+		    "YES(y)"
+		    "NO(n)"))
+	org-capture-templates
+	'(("n" "Notes" entry (file+olp+datetree (concat nm/user/org-directory nm/user/org-notes-file-name) "Notes")
+	   "* %?\nEntered on %U\n  %i\n  %a")
+	  ("t" "Todo" entry (file+headline (concat nm/user/org-directory nm/user/org-todo-file-name) "Tasks")
+	   "* TODO %?\n  %i\n  %a"))
+	org-todo-keyword-faces
+	'(("[-]" . +org-todo-active)
+	  ("STRT" . +org-todo-active)
+	  ("[?]" . +org-todo-onhold)
+	  ("WAIT" . +org-todo-onhold)
+	  ("HOLD" . +org-todo-onhold)
+	  ("PROJ" . +org-todo-project)
+	  ("NO" . +org-todo-cancel)
+	  ("KILL" . +org-todo-cancel)))
+  :config
+  (global-set-key (kbd "C-c l") 'org-store-link)
+  (global-set-key (kbd "C-c a") 'org-agenda)
+  (global-set-key (kbd "C-c c") 'org-capture))
+
+(defun nemacs/hide-org-mode-stars ()
+  "Hides the section stars"
+  (font-lock-add-keywords
+   nil
+   '(("^\\*+ "
+      (0
+       (prog1 nil
+	 (put-text-property (match-beginning 0) (match-end 0)
+			    'invisible t)))))))
+
+(if nm/user/org-hideaway
+    (add-hook 'org-mode-hook #'nemacs/hide-org-mode-stars))
+(setq org-hide-emphasis-markers nm/user/org-hideaway)
+
+(custom-set-faces
+ '(org-level-1 ((t (:inherit outline-1 :extend nil :weight extra-bold :height 1.4))))
+ '(org-level-2 ((t (:inherit outline-2 :extend nil :slant italic :weight bold :height 1.2))))
+ '(org-level-3 ((t (:inherit outline-3 :extend nil :weight semi-bold)))))
+
+(provide 'nemacs-package-org)