From 15d8264356d0e02a98f388b66020fd1fdae93a16 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sun, 5 Dec 2010 12:41:38 +0100
Subject: Added emacs config

---
 emacs.d/functions.el | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 emacs.d/functions.el

(limited to 'emacs.d/functions.el')

diff --git a/emacs.d/functions.el b/emacs.d/functions.el
new file mode 100644
index 0000000..6472c82
--- /dev/null
+++ b/emacs.d/functions.el
@@ -0,0 +1,45 @@
+(defun what-face (pos)
+  "Find out which face the current position uses"
+  (interactive "d")
+  (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))))
+
+(defun my-comp-finish-function (buf str)
+  "Don't show compilation window if everything went ok"
+  (if (string-match "exited abnormally" str)
+      ;; there were errors
+      (message "compilation errors, press C-x ` to visit")
+    ;; no errors, make the compilation window go away in 0.5 seconds
+    (run-at-time 0.5 nil 'delete-windows-on bu)
+    (message "NO COMPILATION ERRORS!")))
+
+(defun bh/hide-other ()
+  (interactive)
+  (save-excursion
+    (org-back-to-heading)
+    (org-shifttab)
+    (org-reveal)
+    (org-cycle)))
+
+(defun bh/go-to-scratch ()
+  (interactive)
+  (switch-to-buffer "*scratch*")
+  (delete-other-windows))
+
+(defun bh/untabify ()
+  (interactive)
+  (untabify (point-min) (point-max)))
+
+(defun bh/killframe ()
+  (interactive)
+  (unless (buffer-modified-p)
+    (kill-buffer (current-buffer)))
+  (delete-frame))
+
+(defun show-whitespace ()
+  (whitespace-mode t))
+
+(provide 'functions)
-- 
cgit v1.2.3-54-g00ecf