Emacs File

quick-start.emacs

(require 'org)
(define-key global-map "\C-cl" 'org-store-link)
(define-key global-map "\C-ca" 'org-agenda)
(setq org-log-done t)

;; The following sticks the notes into the drawer
(setq org-log-into-drawer "NOTES")
(setq org-clock-into-drawer "CLOCK")

(setq org-adapt-indentation t)
(setq org-agenda-files '("~/org"))

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(package-selected-packages '(reveal-in-osx-finder org-alert))
 '(word-wrap t))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )



(defun zachariah-columns-fn () (interactive) (org-columns) (setq truncate-lines nil word-wrap t))

;(define-key (current-global-map) [remap org-columns] 'zachariah-columns-fn)

(customize-set-variable 'org-global-properties
                        '(("Effort_ALL" . "0 30m 1h 2h 4h 1d 2d 4d 1w")))
(setq org-todo-keywords '((type "TODO(t)" "PROJECT(p)" "NEXT(n/!)" "WAITING(w/!)" "IN_PROGRESS(i/!)" "|" "DONE(d@)" "CANCELLED(c@)")))
(setq org-tag-alist '((:startgroup . nil)
                      ("UNBILLED" . ?u)
                      ("BILLED" . ?b) ("TO_PLUNDER" . ?t)
                      ("PLUNDERED" . ?p) ("BUGFIX" . ?x)
                      ("FEATURE" . ?f) ("INVESTIGATION" . ?i)
                      ("DOCUMENTATION" . ?d)
                      (:endgroup . nil)
                     ))
(setq org-highest-priority (string-to-char "A"))
(setq org-default-priority (string-to-char "-"))
(setq org-lowest-priority (string-to-char "D"))

(setq org-columns-default-format "%8PRIORITY(Priority) %ITEM(Task) %10Effort(Effort){:}~ %CLOCKSUM(Clock) %TAGS(Tags)")

;AGENDA
(setq org-agenda-skip-scheduled-if-done t)
(setq org-agenda-skip-deadline-if-done t)
(setq org-agenda-skip-timestamp-if-done t)


;SUBTREE
(setq org-startup-folded t)

;SHOW NOTE DRAWERS
;(setq org-cycle-hide-archived-subtrees org-cycle-show-empty-lines org-optimize-window-after-visibility-change)
; Removed the following from above
;org-cycle-hide-drawers
;(setq org-cycle-hide-drawers nil)



(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
;; Comment/uncomment this line to enable MELPA Stable if desired.  See `package-archive-priorities`
;; and `package-pinned-packages`. Most users will not need or want to do this.
(add-to-list 'package-archives '("melpa-stable" . "https://stable.melpa.org/packages/") t)
(package-initialize)



;; Line Numbers
(setq global-display-line-numbers-mode 1)


;; EXTERNAL PACKAGES
;; Download Reveal In OSX Finder
(unless (package-installed-p 'reveal-in-osx-finder)
  (package-install 'reveal-in-osx-finder))
(require 'reveal-in-osx-finder)
(global-set-key (kbd "C-c z") 'reveal-in-osx-finder)