EMACS: Added a 'preview' function for HMTL files

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))

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
       `((".*" .

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)))