You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

20 lines
712 B
EmacsLisp

;;; $DOOMDIR/penguin/misc.el -*- lexical-binding: t; -*-
(setq-default evil-kill-on-visual-paste nil)
(setq find-file-hook nil)
(defun penguin-reload-dir-locals-for-current-buffer ()
"reload dir locals for the current buffer"
(interactive)
(let ((enable-local-variables :all))
(hack-dir-local-variables-non-file-buffer)))
(defun penguin-reload-dir-locals-for-all-buffer-in-this-directory ()
"For every buffer with the same `default-directory` as the
current buffer's, reload dir-locals."
(interactive)
(let ((dir default-directory))
(dolist (buffer (buffer-list))
(with-current-buffer buffer
(when (equal default-directory dir)
(penguin-reload-dir-locals-for-current-buffer))))))