Compile files to elc

functions.el

@@ -24,4 +24,21 @@
   (set-face-attribute 'helm-header nil :font
                       (format "Hasklig %d"
                               (+ size 2))))
+
+;;;; Functions related to compilation of files
+(defun byte-compile-init-dir ()
+  "Byte-compile all your dotfiles."
+  (interactive)
+  (byte-recompile-directory user-emacs-directory 0))
+
+(defun remove-elc-on-save ()
+  "If you're saving an elisp file, likely the .elc is no longer valid."
+  (add-hook 'after-save-hook
+            (lambda ()
+              (if (file-exists-p (concat buffer-file-name "c"))
+                  (delete-file (concat buffer-file-name "c"))))
+            nil
+            t))
+
+(add-hook 'emacs-lisp-mode-hook 'remove-elc-on-save)
 ;;; functions.el ends here