From 5690154ecbbbebfc7aa49772ec9d3d985f0b3ea6 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sat, 28 May 2011 15:25:58 +0200
Subject: EMACS: Added a 'preview' function for HMTL files

---
 emacs.d/00-functions.el | 4 ++++
 emacs.d/10-settings.el  | 2 ++
 emacs.d/20-html-mode.el | 4 ++++
 3 files changed, 10 insertions(+)
 create mode 100644 emacs.d/20-html-mode.el

diff --git a/emacs.d/00-functions.el b/emacs.d/00-functions.el
index ff493f0..20d75ff 100644
--- a/emacs.d/00-functions.el
+++ b/emacs.d/00-functions.el
@@ -34,3 +34,7 @@
     (if (string= (substring ext 0 1) "c")
         (find-file (concat noext ".h"))
       (find-file (concat noext ".c")))))
+
+(defun browse-to-current-file ()
+  (interactive)
+  (browse-url buffer-file-name))
diff --git a/emacs.d/10-settings.el b/emacs.d/10-settings.el
index 8dab61d..1fb9029 100644
--- a/emacs.d/10-settings.el
+++ b/emacs.d/10-settings.el
@@ -8,6 +8,8 @@
                                         ; possible fontification
       inhibit-default-init t            ; don't load default init
       scroll-conservatively 10000       ; scroll only one line
+      browse-url-browser-function 'browse-url-generic
+      browse-url-generic-program "conkeror"
       whitespace-style '(face trailing)
       backup-directory-alist            ; backup file location
       `((".*" .
diff --git a/emacs.d/20-html-mode.el b/emacs.d/20-html-mode.el
new file mode 100644
index 0000000..e9084a5
--- /dev/null
+++ b/emacs.d/20-html-mode.el
@@ -0,0 +1,4 @@
+(add-hook 'html-mode-hook
+          (lambda ()
+            (local-set-key [f9] 'browse-to-current-file)
+            (auto-fill-mode)))
-- 
cgit v1.2.3-54-g00ecf