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

General minor refactor & docstring fixes

Browse source
This commit is contained in:
Henrik Lissner 2018-05-14 20:55:55 +02:00
parent 67dab98859
commit bb88411cc9
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
9 changed files with 27 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

12
modules/lang/haskell/+intero.el
View file

@ -2,9 +2,17 @@
;;;###if (featurep! +intero)
(def-package! intero
:after haskell-mode
:config
:commands intero-mode
:init
(defun +haskell|init-intero ()
"Initializes `intero-mode' in haskell-mode, unless stack isn't installed.
This is necessary because `intero-mode' doesn't do its own error checks."
(when (derived-mode-p 'haskell-mode)
(if (executable-find "stack")
(intero-mode +1)
(message "Couldn't find stack. Refusing to enable intero-mode."))))
(add-hook 'haskell-mode-hook #'+haskell|init-intero)
:config
(add-hook 'intero-mode-hook #'flycheck-mode)
(set! :lookup 'haskell-mode :definition #'intero-goto-definition))

10
modules/lang/haskell/autoload.el
View file

@ -1,10 +0,0 @@
;;; lang/haskell/autoload.el -*- lexical-binding: t; -*-
;;;###autoload
(defun +haskell|init-intero ()
"Initializes `intero-mode' in haskell-mode, unless stack isn't installed.
This is necessary because `intero-mode' doesn't do its own error checks."
(when (derived-mode-p 'haskell-mode)
(if (executable-find "stack")
(intero-mode +1)
(message "Couldn't find stack. Refusing to enable intero-mode."))))

5
modules/lang/javascript/config.el
View file

@ -183,8 +183,9 @@
(def-package! eslintd-fix
:commands (eslintd-fix-mode eslintd-fix)
:config
(add-hook! 'eslintd-fix-mode-hook
(setq flycheck-javascript-eslint-executable eslintd-fix-executable)))
(defun +javascript|set-flycheck-executable-to-eslint ()
(setq flycheck-javascript-eslint-executable eslintd-fix-executable))
(add-hook 'eslintd-fix-mode-hook #'+javascript|set-flycheck-executable-to-eslint))
(def-package! skewer-mode

2
modules/lang/org/config.el
View file

@ -306,7 +306,7 @@ between the two."
(defun +org|setup-hacks ()
"Getting org to behave."
;; Don't open separate windows
(map-put org-link-frame-setup 'file 'find-file)
(map-put org-link-frame-setup 'file #'find-file)
;; Let OS decide what to do with files when opened
(setq org-file-apps