Easy fetching of values from dir-locals

1 files changed, 9 insertions, 0 deletions

diff --git a/init.el b/init.el
index ece90b3..a4d51da 100644
--- a/init.el
+++ b/init.el
@@ -109,6 +109,15 @@
   :ensure t
   :commands free-keys)
 
+(defun ravi/add-variables-from-dir-locals (varname hack-varname &optional make-it-local)
+  "Add variable from dir-locals.el to an existing variable as a buffer-local variable"
+  (let ((basic-var (symbol-value varname)))
+    (when (and (boundp hack-varname)
+               (listp (symbol-value hack-varname)))
+      (when make-it-local
+        (make-local-variable varname))
+      (set varname (append basic-var (symbol-value hack-varname))))))
+
 (require 'ravi-init-ido)
 (require 'ravi-init-marks)
 (require 'ravi-init-appearance)