emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Massive refactor. Refactor all the things

Browse source
This commit is contained in:
Henrik Lissner 2016-04-23 22:08:46 -04:00
parent 03514fc09d
commit f234be68a4
56 changed files with 792 additions and 831 deletions
Download patch file Download diff file Expand all files Collapse all files

14
core/core-defuns.el
View file

@ -112,10 +112,10 @@ Examples:
(t (user-error "associate! invalid rules for mode [%s] (in %s) (match %s) (files %s)"
mode in match files))))))
(defmacro define-project-type! (name lighter &rest body)
(defmacro def-project-type! (name lighter &rest body)
"Define a minor mode for a specific framework, library or project type. e.g.
(define-project-type! angularjs \"angjs\"
(def-project-type! angularjs \"angjs\"
:modes (js2-mode)
:files (\"package.json\"))"
(declare (indent 2))
@ -133,7 +133,7 @@ Examples:
(pop body))
`(progn
(define-minor-mode ,mode
"Auto-generated by `define-project-type!'"
"Auto-generated by `def-project-type!'"
:init-value nil
:lighter ,(concat " " lighter)
:keymap (make-sparse-keymap)
@ -146,14 +146,14 @@ Examples:
(yas-deactivate-extra-mode ',mode)))))))
(after! company-dict
(add-to-list 'company-dict-minor-mode-list ',mode))
(push ',mode company-dict-minor-mode-list))
,(when build
(when (listp build)
(setq build (car-safe (cdr-safe build))))
(let ((cmd (or (car-safe build) build))
(file (car-safe (cdr-safe build))))
`(define-builder! ,mode ,cmd ,file)))
`(def-builder! ,mode ,cmd ,file)))
,(when bind
`(map! :map ,mode-map ,bind))
@ -255,7 +255,9 @@ Examples:
(let ((dir (or dir (narf/project-root))))
(with-current-buffer (get-buffer-create "*scratch*")
(setq default-directory dir)
(setq header-line-format '(:eval (concat " ∴ " (abbreviate-file-name default-directory)))))))
(setq header-line-format
'(:eval
(concat " ∴ " (abbreviate-file-name default-directory)))))))
;;;; Global Defuns ;;;;;;;;;;;;;;;;;;;;;