From 80da7a550f9aab616a02da0f0c8d2da0f398d892 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Wed, 27 Apr 2016 15:40:17 -0700
Subject: [PATCH] dynamic-let-advise-around

---
 dotfiles/emacs.d/init.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el
index 40136f61..fe50f847 100644
--- a/dotfiles/emacs.d/init.el
+++ b/dotfiles/emacs.d/init.el
@@ -256,6 +256,11 @@
      (let ,forms
        (apply orig-func args))))
 
+(defmacro imalison:dynamic-let-advise-around (name getter)
+  `(defun ,name (orig-func &rest args)
+     (let ,(funcall getter)
+       (apply orig-func args))))
+
 (defun imalison:uuid ()
   (interactive)
   (s-replace "\n" "" (shell-command-to-string "uuid")))