λ macro => λ!

core/core-defuns.el

@@ -7,7 +7,7 @@
   (defmacro with-eval-after-load (file &rest body)
     `(eval-after-load ,file (lambda () ,@body))))
 
-(defmacro λ (&rest body)
+(defmacro λ! (&rest body)
   "A shortcut for: `(lambda () (interactive) ,@body)"
   `(lambda () (interactive) ,@body))
 

core/core-ui.el

@@ -60,7 +60,7 @@
       '(?☑ ?☐ ?✍ ?⚠))
 
 (mapc (lambda (x) (set-fontset-font "fontset-default" `(,x . ,x) (font-spec :name "DejaVu Sans" :size 10) nil))
-      '(?➊ ?➋ ?➌ ?➍ ?➎ ?❻ ?➐ ?➑ ?➒ ?➓))
+      '(?➊ ?➋ ?➌ ?➍ ?➎ ?❻ ?➐ ?➑ ?➒ ?➓ ?λ))
 
 (blink-cursor-mode  1)    ; do blink cursor
 (tooltip-mode      -1)    ; show tooltips in echo area

core/lib/defuns-ido.el

@@ -19,9 +19,9 @@
 (defun narf|ido-setup-home-keybind ()
   "Go to $HOME with ~"
   (define-key ido-file-completion-map (kbd "~")
-    (λ (if (looking-back "/")
-           (insert "~/")
-         (call-interactively 'self-insert-command)))))
+    (λ! (if (looking-back "/")
+            (insert "~/")
+          (call-interactively 'self-insert-command)))))
 
 ;;;###autoload
 (defun narf/ido-find-file (&optional dir)