c7254e7bdc
+ enable lexical-scope everywhere (lexical-binding = t): ~5-10% faster startup; ~5-20% general boost + reduce consing, function calls & garbage collection by preferring cl-loop & dolist over lambda closures (for mapc[ar], add-hook, and various cl-lib filter/map/reduce functions) -- where possible + prefer functions with dedicated opcodes, like assq (see byte-defop's in bytecomp.el for more) + prefer pcase & cond (faster) over cl-case + general refactor for code readability + ensure naming & style conventions are adhered to + appease byte-compiler by marking unused variables with underscore + defer minor mode activation to after-init, emacs-startup or window-setup hooks; a customization opportunity for users + ensures custom functionality won't interfere with startup.
50 lines
2.4 KiB
EmacsLisp
50 lines
2.4 KiB
EmacsLisp
;;; private/hlissner/autoload/hlissner.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload
|
|
(defun +hlissner/install-snippets ()
|
|
"Install my snippets from https://github.com/hlissner/emacs-snippets into
|
|
private/hlissner/snippets."
|
|
(interactive)
|
|
(doom-fetch :github "hlissner/emacs-snippets"
|
|
(expand-file-name "snippets" (doom-module-path :private 'hlissner))))
|
|
|
|
;;;###autoload
|
|
(defun +hlissner/yank-buffer-filename ()
|
|
"Copy the current buffer's path to the kill ring."
|
|
(interactive)
|
|
(if-let (filename (or buffer-file-name (bound-and-true-p list-buffers-directory)))
|
|
(message (kill-new (abbreviate-file-name filename)))
|
|
(error "Couldn't find filename in current buffer")))
|
|
|
|
(defmacro +hlissner-def-finder! (name dir)
|
|
"Define a pair of find-file and browse functions."
|
|
`(progn
|
|
(defun ,(intern (format "+hlissner/find-in-%s" name)) ()
|
|
(interactive)
|
|
(let ((default-directory ,dir))
|
|
(call-interactively (command-remapping #'projectile-find-file))))
|
|
(defun ,(intern (format "+hlissner/browse-%s" name)) ()
|
|
(interactive)
|
|
(let ((default-directory ,dir))
|
|
(call-interactively (command-remapping #'find-file))))))
|
|
|
|
;;;###autoload (autoload '+hlissner/find-in-templates "private/hlissner/autoload/hlissner" nil t)
|
|
;;;###autoload (autoload '+hlissner/browse-templates "private/hlissner/autoload/hlissner" nil t)
|
|
(+hlissner-def-finder! templates +file-templates-dir)
|
|
|
|
;;;###autoload (autoload '+hlissner/find-in-snippets "private/hlissner/autoload/hlissner" nil t)
|
|
;;;###autoload (autoload '+hlissner/browse-snippets "private/hlissner/autoload/hlissner" nil t)
|
|
(+hlissner-def-finder! snippets +hlissner-snippets-dir)
|
|
|
|
;;;###autoload (autoload '+hlissner/find-in-dotfiles "private/hlissner/autoload/hlissner" nil t)
|
|
;;;###autoload (autoload '+hlissner/browse-dotfiles "private/hlissner/autoload/hlissner" nil t)
|
|
(+hlissner-def-finder! dotfiles (expand-file-name ".dotfiles" "~"))
|
|
|
|
;;;###autoload (autoload '+hlissner/find-in-emacsd "private/hlissner/autoload/hlissner" nil t)
|
|
;;;###autoload (autoload '+hlissner/browse-emacsd "private/hlissner/autoload/hlissner" nil t)
|
|
(+hlissner-def-finder! emacsd doom-emacs-dir)
|
|
|
|
;;;###autoload (autoload '+hlissner/find-in-notes "private/hlissner/autoload/hlissner" nil t)
|
|
;;;###autoload (autoload '+hlissner/browse-notes "private/hlissner/autoload/hlissner" nil t)
|
|
(+hlissner-def-finder! notes +org-dir)
|