Org-mode config is back baby! With a vengeance!

This commit is contained in:
Henrik Lissner 2016-03-01 01:59:36 -05:00
parent 6851951aaf
commit 477ef168d4
19 changed files with 1227 additions and 309 deletions

View file

@ -68,6 +68,7 @@
(Man-mode . emacs)
(grep-mode . emacs)
(image-mode . normal)
(doc-view-mode . normal)
))
(evil-set-initial-state `,(car mode-map) `,(cdr mode-map)))

View file

@ -19,6 +19,12 @@
("/Dockerfile$" "__" dockerfile-mode)
("/docker-compose.yml$" "__" yaml-mode)
;; Org-mode
("\\.org$" "__" org-mode)
("/Work/.+\\.org$" "__project.org" org-mode)
("/Invoices/.+\\.org$" "__invoice.org" org-mode)
("/Contacts/.+\\.org$" "__contact.org" org-mode)
;; C/C++
("/Makefile$" "__" makefile-gmake-mode)
("/main\\.\\(cc\\|cpp\\)$" "__main.cpp" c++-mode)

View file

@ -98,10 +98,10 @@
(narf:send-to-tmux (format "cd %s" (shell-quote-argument default-directory)))
(narf-switch-to-iterm))
(defun narf-org-init-for-osx ()
;; Reveal files in finder
(setq org-file-apps '(("\\.org$" . emacs)
(t . "open -R \"%s\""))))
;; Open with external programs
(require 'openwith)
(openwith-mode t)
(setq openwith-associations '(("\\.\\(pdf\\|jpe?g\\|gif\\|docx?\\|pptx?\\|xlsx?\\|zip\\|tar\\(\\.gz\\)?\\|rar\\)$" "open" (file))))
(provide 'core-os-osx)
;;; core-os-osx.el ends here

View file

@ -114,6 +114,14 @@
(after! projectile
(setq projectile-switch-project-action 'neotree-projectile-action))
;; Shorter file names for org files
(defun narf*neo-path--file-short-name (orig-fun &rest args)
(let ((file (car args)))
(if (f-ext? file "org")
(s-replace "-" " " (f-base file))
(apply orig-fun args))))
(advice-add 'neo-path--file-short-name :around 'narf*neo-path--file-short-name)
;; A custom and simple theme for neotree
(advice-add 'neo-buffer--insert-fold-symbol :override 'narf*neo-buffer-fold-symbol))

View file

@ -66,6 +66,10 @@
(set-fontset-font "fontset-default" `(,x . ,x)
(font-spec :name "DejaVu Sans" :size 10) nil))
'(?➊ ?➋ ?➌ ?➍ ?➎ ?❻ ?➐ ?➑ ?➒ ?➓ ))
(mapc (lambda (x)
(set-fontset-font "fontset-default" `(,x . ,x)
(font-spec :name "FontAwesome" :size 13) nil))
'(? ? ? ? ? ? ? ? ?))
(blink-cursor-mode 1) ; do blink cursor
(tooltip-mode -1) ; show tooltips in echo area