chd/.emacs.d/jlj-org.el

124 lines
4.4 KiB
EmacsLisp
Raw Normal View History

2020-01-04 22:53:01 +00:00
(use-package org
:ensure t
:config
(progn
;;Org mode configuration
(require 'org) ; Enable Org mode
(setq ispell-program-name "/usr/local/bin/ispell") ; set flyspell's spellchecker
(add-hook 'org-mode-hook 'turn-on-flyspell) ; enable flyspell-mode in all org-mode enabled files
(setq org-src-fontify-natively t
org-src-window-setup 'current-window
org-src-strip-leading-and-trailing-blank-lines t
org-src-preserve-indentation t
org-src-tab-acts-natively t
x-selection-timeout 10 ;; this fixes a freeze when org-capture is called. lol.
org-edit-src-content-indentation 0)
(add-hook 'org-agenda-mode-hook
(lambda ()
(visual-line-mode -1)
(toggle-truncate-lines 1)))
(org-babel-do-load-languages
'org-babel-load-languages
'((python . t)
(matlab . t)
(restclient . t)
(shell . t)))
;; log state changes to a drawer
(setq org-log-into-drawer t)
;; org-agenda configs
(setq org-habit-show-habits-only-for-today nil)
(setq org-agenda-repeating-timestamp-show-all nil)
(setq org-deadline-warning-days 1)
(setq org-global-properties
'(("Effort_ALL". "0 0:10 0:30 1:00 2:00 3:00 4:00")))
(setq org-columns-default-format
'(("%25ITEM %TODO %3PRIORITY %TAGS")))
2020-03-02 01:21:20 +00:00
;;;; custom org mode hotkeys
2020-01-04 22:53:01 +00:00
(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)
;;;; search across agenda files when refiling:
(setq org-refile-targets '((nil :maxlevel . 9)
(org-agenda-files :maxlevel . 9)))
(setq org-outline-path-complete-in-steps nil) ; Refile in a single go
(setq org-refile-use-outline-path t) ; Show full paths for refiling
2020-06-08 19:41:44 +00:00
(setq org-agenda-files '("~/Sync/Documents/org/")) ; add files to agenda:
2020-01-04 22:53:01 +00:00
2020-06-08 19:41:44 +00:00
(setq org-directory "~/Sync/Documents/org/") ; define generic org capture shit
2020-01-04 22:53:01 +00:00
(setq org-default-notes-file (concat org-directory "/refile-beorg.org"))))
;; Set up bullets
(use-package org-bullets
:ensure t
:config
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))))
(use-package ob-restclient
:ensure t
:after org)
;; configure the org protocol
(org-load-modules-maybe t)
(require 'org-protocol)
(require 'org-protocol-capture-html)
(setq org-protocol-default-template-key "w")
(setq org-capture-templates
2020-06-08 19:41:44 +00:00
`(("w" "Web site" entry (file+olp "~/Sync/Documents/org/webwiki.org" "links" "unsorted")
2020-01-04 22:53:01 +00:00
"* %c :website:\n%U %?%:initial")
;; ... more templates here ...
2020-06-08 19:41:44 +00:00
("b" "Book - capture a book you've read" entry (file+olp "~/Sync/Documents/org/webwiki.org" "books")
2020-06-07 14:14:29 +00:00
"* %^{TITLE} \n :PROPERTIES:\n:AUTHOR: %^{AUTHOR}\n:GENRE: %^{GENRE}\n:FINISHED: %U \n:END:\n " :empty-lines 1 :prepend t)
2020-06-08 19:41:44 +00:00
("c" "Context-include Todo" entry (file "~/Sync/Documents/org/refile-beorg.org")
2020-01-04 22:53:01 +00:00
"* TODO %?\n%U \n '%a'" :empty-lines 1 :prepend t)
2020-06-08 19:41:44 +00:00
("q" "quotes" entry (file+olp "~/Sync/Documents/org/webwiki.org" "quotes")
2020-03-02 01:21:20 +00:00
"* %?\n%U \n " :empty-lines 1 :prepend t)
2020-06-08 19:41:44 +00:00
("t" "Todo" entry (file "~/Sync/Documents/org/refile-beorg.org")
2020-01-04 22:53:01 +00:00
"* TODO %?\n%U" :empty-lines 1 :prepend t)))
;; configure org exporters
(require 'ox-md)
;; org prettifiers
(setq org-agenda-format-date (lambda (date) (concat "\n"
(make-string (window-width) 9472)
"\n"
(org-agenda-format-date-aligned date))))
;; org mode hack for screenshots; see org mode hacks page.
(defun my-org-screenshot ()
"Take a screenshot into a time stamped unique-named file in the
same directory as the org-buffer and insert a link to this file.
reference: https://orgmode.org/worg/org-hacks.html
dependency: this relies on imagemagick"
(interactive)
(setq filename
(concat
(make-temp-name
(concat (buffer-file-name)
"_"
(format-time-string "%Y%m%d_%H%M%S_")) ) ".png"))
(if (eq system-type 'darwin)
(shell-command (format "screencapture -i %s" filename))
(call-process "import" nil nil nil filename))
(insert (concat "[[" filename "]]"))
(org-display-inline-images))
2020-06-20 21:55:33 +00:00
2020-06-21 16:46:33 +00:00
(if (eq system-type 'darwin)
(global-set-key (kbd "C-c C-M-4") 'my-org-screenshot)
(global-set-key (kbd "C-c C-4") 'my-org-screenshot))
;; force source blocks to respect the proper indentation.
(setq org-src-preserve-indentation nil
org-edit-src-content-indentation 0)