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

No NARF, only DOOM

Browse source
This commit is contained in:
Henrik Lissner 2016-05-20 22:37:30 -04:00
parent a984bf4f26
commit ad225d2591
104 changed files with 1404 additions and 1409 deletions
Download patch file Download diff file Expand all files Collapse all files

32
modules/defuns/defuns-lisp.el
View file

@ -1,26 +1,26 @@
;;; defuns-lisp.el
;;;###autoload
(defun narf/elisp-find-function-at-pt ()
(defun doom/elisp-find-function-at-pt ()
(interactive)
(let ((func (function-called-at-point)))
(if func (find-function func))))
;;;###autoload
(defun narf/elisp-find-function-at-pt-other-window ()
(defun doom/elisp-find-function-at-pt-other-window ()
(interactive)
(let ((func (function-called-at-point)))
(if func (find-function-other-window func))))
(defun narf--ert-pre ()
(defun doom--ert-pre ()
(save-buffer)
(eval-buffer))
;;;###autoload
(defun narf/ert-run-test ()
(defun doom/ert-run-test ()
(interactive)
(let (case-fold-search)
(narf--ert-pre)
(doom--ert-pre)
(aif (thing-at-point 'defun t)
(if (string-match "(ert-deftest \\([^ ]+\\)" it)
(ert-run-tests-interactively (substring it (match-beginning 1) (match-end 1)))
@ -28,34 +28,34 @@
(user-error "No test found at point"))))
;;;###autoload
(defun narf/ert-rerun-test ()
(defun doom/ert-rerun-test ()
(interactive)
(let (case-fold-search)
(narf--ert-pre)
(doom--ert-pre)
(aif (car-safe ert--selector-history)
(ert-run-tests-interactively it)
(message "No test found in history, looking for test at point")
(narf/ert-run-test))))
(doom/ert-run-test))))
;;;###autoload
(defun narf/ert-run-all-tests ()
(defun doom/ert-run-all-tests ()
(interactive)
(ert-delete-all-tests)
(narf--ert-pre)
(doom--ert-pre)
(ert-run-tests-interactively t))
;;;###autoload
(defun narf/elisp-auto-compile ()
(defun doom/elisp-auto-compile ()
(when (let ((file-name (buffer-file-name)))
(and (f-exists? (f-expand (concat (f-base file-name) ".elc") (f-dirname file-name)))
(--any? (f-child-of? file-name it)
(append (list narf-core-dir narf-modules-dir
narf-core-dir narf-modules-dir
narf-private-dir)))))
(narf:compile-el)))
(append (list doom-core-dir doom-modules-dir
doom-core-dir doom-modules-dir
doom-private-dir)))))
(doom:compile-el)))
;;;###autoload
(defun narf/elisp-inf-ielm ()
(defun doom/elisp-inf-ielm ()
(ielm)
(let ((buf (current-buffer)))
(bury-buffer)