From 7a72a019ea31b3aba98e53b7cdb230723835e06f Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Mon, 20 Feb 2017 00:18:15 -0500
Subject: [PATCH] Add core/autoload/debug.el

---
 core/autoload/debug.el | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 core/autoload/debug.el

diff --git a/core/autoload/debug.el b/core/autoload/debug.el
new file mode 100644
index 000000000..28821445d
--- /dev/null
+++ b/core/autoload/debug.el
@@ -0,0 +1,31 @@
+;;; debug.el
+(provide 'core-lib-debug)
+
+;;;###autoload
+(defun doom/what-face (pos)
+  "Tells you the name of the face (point) is on."
+  (interactive "d")
+  (let ((hl-line-p (bound-and-true-p hl-line-mode)))
+    (if hl-line-p (hl-line-mode -1))
+    (let ((face (or (get-char-property (point) 'read-face-name)
+                    (get-char-property (point) 'face))))
+      (if face (message "Face: %s" face) (message "No face at %d" pos)))
+    (if hl-line-p (hl-line-mode 1))))
+
+;;;###autoload
+(defun doom/what-col ()
+  (interactive)
+  (message "Column %d" (current-column)))
+
+;;;###autoload
+(defun doom/what-bindings (key)
+  (list
+   (minor-mode-key-binding key)
+   (local-key-binding key)
+   (global-key-binding key)))
+
+;;;###autoload
+(defun doom/what-major-mode ()
+  (interactive)
+  (message "Mode: %s" major-mode))
+