Remove org-mode config (I no longer use org-mode)
This commit is contained in:
parent
8d09932cc6
commit
fea2a2ce4a
10 changed files with 0 additions and 1382 deletions
|
@ -1,162 +0,0 @@
|
|||
;; module-write.el
|
||||
|
||||
;; This library offers the following:
|
||||
;; + Write-mode: a mode that turns Emacs into an app for writing notes, papers, or
|
||||
;; fiction: it adds eye-candy to org-mode, switches to a light color theme and
|
||||
;; to a more readable font.
|
||||
;; + Bibtex integration
|
||||
|
||||
;; Write-mode settings
|
||||
(defconst write-mode nil)
|
||||
(defconst write-mode-theme 'narf-write)
|
||||
(defconst write-mode-font (font-spec :family "Hack" :size 12))
|
||||
(defconst write-mode-dir "~/Dropbox/notes")
|
||||
(defconst write-mode-biblio-dir "~/Dropbox/docs/biblio")
|
||||
|
||||
(defconst write-mode--last-mode-line mode-line-format)
|
||||
(defconst write-mode--last-line-spacing line-spacing)
|
||||
|
||||
(defvar write-mode-org-font-lock-keywords
|
||||
`(;; ("^\\(\\*\\*?\\)\\( \\)"
|
||||
;; (1 'font-lock-comment-face t)
|
||||
;; (2 'variable-pitch))
|
||||
|
||||
("^ *\\(\\(?:[-+]\\|[0-9]+[).]\\) \\[ \\]\\)\\( \\)"
|
||||
(1 (narf/show-as ?☐))
|
||||
(2 'variable-pitch append))
|
||||
("^ *\\(\\(?:[-+]\\|[0-9]+[.)]\\) \\[X\\]\\)\\( \\)"
|
||||
(1 (narf/show-as ?☑))
|
||||
(2 'variable-pitch append))
|
||||
|
||||
;; Hide TODO tags
|
||||
(,(concat
|
||||
"\\(\\*\\) "
|
||||
(regexp-opt '("IDEA" "NEXT" "ACTIVE" "WAITING" "LATER" "CANCELLED" "UNPAID" "UNSENT"))
|
||||
" ")
|
||||
(1 (narf/show-as ?☐)))
|
||||
("\\(\\* \\(?:DONE\\|PAID\\)\\)\\( \\)\\([^$\n\r]+\\)"
|
||||
(1 (narf/show-as ?☑))
|
||||
(2 'variable-pitch t)
|
||||
(3 'org-headline-done append))
|
||||
("\\(\\* TODO\\)\\( \\)"
|
||||
(1 (narf/show-as ?☐))
|
||||
(2 'variable-pitch t))
|
||||
|
||||
("[-+*] \\[X\\] \\([^$\n\r]+\\)"
|
||||
(1 'org-headline-done))
|
||||
|
||||
("^ *\\([-+]\\|[0-9]+[).]\\)\\( \\)+[^$\n\r]"
|
||||
(1 'org-list-bullet)
|
||||
(2 'variable-pitch append))))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(defun write-mode|org-hook ()
|
||||
"A hook that runs everytime an org-mode buffer is visited/created while `write-mode' is
|
||||
active."
|
||||
(font-lock-add-keywords nil write-mode-org-font-lock-keywords))
|
||||
|
||||
(defun write-mode-toggle ()
|
||||
"Enable write-mode, this is not a [global] minor mode because it mixes some frame-local
|
||||
functionality with buffer-local ones, which can be buggy in a minor-mode."
|
||||
(interactive)
|
||||
(let* ((mode-p write-mode)
|
||||
(on-off (if mode-p -1 +1)))
|
||||
;; (disable-theme (if mode-p write-mode-theme narf-theme))
|
||||
;; (scroll-bar-mode on-off)
|
||||
;; (narf/load-theme (if mode-p narf-theme write-mode-theme))
|
||||
(narf/load-font (if mode-p narf-default-font write-mode-font))
|
||||
(when (featurep 'volatile-highlights)
|
||||
(volatile-highlights-mode (not on-off)))
|
||||
(when IS-MAC
|
||||
(setq mouse-wheel-scroll-amount
|
||||
(if mode-p '(5 ((shift) . 2)) '(3 ((shift) . 2)))))
|
||||
(if write-mode
|
||||
(remove-hook 'org-mode-hook 'write-mode|org-hook)
|
||||
(add-hook 'org-mode-hook 'write-mode|org-hook))
|
||||
(mapc (lambda (b)
|
||||
(with-current-buffer b
|
||||
(setq line-spacing (if mode-p write-mode--last-line-spacing '2))
|
||||
(when (eq major-mode 'org-mode)
|
||||
(if write-mode
|
||||
(font-lock-remove-keywords nil write-mode-org-font-lock-keywords)
|
||||
(write-mode|org-hook))
|
||||
(org-bullets-mode on-off))))
|
||||
(narf/get-buffers-in-modes '(org-mode markdown-mode)))
|
||||
(setq write-mode (not write-mode))))
|
||||
|
||||
(evil-define-command narf:set-columns (&optional bang columns)
|
||||
"Adjusts visual-fill-column-width on the fly."
|
||||
(interactive "<!><a>")
|
||||
(if (or (= (length columns) 0) bang)
|
||||
(progn
|
||||
(setq visual-fill-column-width 80)
|
||||
(when visual-fill-column-mode
|
||||
(visual-fill-column-mode -1)))
|
||||
(setq columns (string-to-number columns))
|
||||
(when (> columns 30)
|
||||
(setq visual-fill-column-width columns)))
|
||||
(if visual-fill-column-mode
|
||||
(visual-fill-column--adjust-window)
|
||||
(visual-fill-column-mode 1)))
|
||||
|
||||
(when (>= emacs-major-version 25)
|
||||
;; From <https://github.com/joostkremers/visual-fill-column/pull/6>
|
||||
;; Splitting windows while visual-fill-column makes Emacs go crazy. This prevents that
|
||||
;; by simply disabled VFC before splitting.
|
||||
(after! visual-fill-column
|
||||
(advice-add 'split-window :around #'visual-fill-column--disable-on-split-window))
|
||||
(defun visual-fill-column--disable-on-split-window (fn window &rest args)
|
||||
"Undo the effects of `visual-fill-column-mode' for splitting window."
|
||||
(if (and (or (not window) (window-live-p window))
|
||||
(buffer-local-value 'visual-fill-column-mode
|
||||
(window-buffer (or window (selected-window)))))
|
||||
(let ((inhibit-redisplay t))
|
||||
(set-window-fringes (or window (selected-window)) nil)
|
||||
(set-window-margins (or window (selected-window)) 0 0)
|
||||
(unwind-protect (apply fn window args)
|
||||
(save-selected-window
|
||||
(when window (select-window window 'norecord))
|
||||
(visual-fill-column--adjust-window))))
|
||||
(apply fn window args))))
|
||||
|
||||
;;; LaTeX
|
||||
(setq TeX-auto-save t)
|
||||
(setq TeX-parse-self t)
|
||||
(setq bibtex-dialect 'biblatex)
|
||||
(setq bibtex-align-at-equal-sign t)
|
||||
(setq bibtex-text-indentation 20)
|
||||
(add-hook! bibtex-mode
|
||||
(local-set-key (kbd "C-c \\") 'bibtex-fill-entry)
|
||||
(setq fill-column 140))
|
||||
(add-hook! latex-mode 'turn-on-auto-fill)
|
||||
(add-hook! LaTeX-mode 'turn-on-auto-fill)
|
||||
|
||||
(use-package reftex
|
||||
:config
|
||||
(add-hook 'latex-mode-hook 'turn-on-reftex)
|
||||
(add-hook 'LaTeX-mode-hook 'turn-on-reftex)
|
||||
(setq reftex-plug-into-AUCTeX t
|
||||
reftex-ref-style-default-list '("Cleveref" "Hyperref" "Fancyref")
|
||||
reftex-default-bibliography
|
||||
`(,(expand-file-name "phys.bib" write-mode-biblio-dir))))
|
||||
|
||||
;;; Bibtex
|
||||
;; NOTE: http://bibdesk.sourceforge.net/
|
||||
(use-package helm-bibtex
|
||||
:defer t
|
||||
:config
|
||||
(setq helm-bibtex-bibliography
|
||||
`(,(expand-file-name "phys.bib" write-mode-biblio-dir))
|
||||
|
||||
helm-bibtex-library-path
|
||||
`(,(expand-file-name "phys-pdf" write-mode-biblio-dir))
|
||||
|
||||
helm-bibtex-notes-path (expand-file-name "notes" write-mode-biblio-dir)
|
||||
helm-bibtex-notes-extension ".org"
|
||||
|
||||
helm-bibtex-pdf-open-function
|
||||
(lambda (fpath) (async-start-process "open-pdf" "/usr/bin/open" nil fpath))))
|
||||
|
||||
(provide 'module-write)
|
||||
;;; module-write.el ends here
|
Loading…
Add table
Add a link
Reference in a new issue