 (put 'narrow-to-page   'disabled nil)
 
 ;; Enable setting goal column
-;; Source: http://emacsblog.org/2007/03/17/quick-tip-set-goal-column/
+;; http://emacsblog.org/2007/03/17/quick-tip-set-goal-column/
 (put 'set-goal-column  'disabled nil)
 ;;     C-x C-n <- Set goal column
 ;; C-u C-x C-n <- Unset goal column

  (progn
    (setq indent-guide-recursive t)
    (setq indent-guide-char "|")
    (defun turn-on-indent-guide ()
      "Turn on indent-guide-mode only for specific modes."
      (interactive)
      (dolist (hook '(verilog-mode-hook
                      emacs-lisp-mode-hook
                      python-mode-hook
                      sh-mode-hook
                      cperl-mode-hook))
        (add-hook hook 'indent-guide-mode)))
    (defun turn-off-indent-guide ()
      "Turn off indent-guide-mode only for specific modes."
      (interactive)
      (indent-guide-global-mode -1)
      (dolist (hook '(verilog-mode-hook
                      emacs-lisp-mode-hook
                      python-mode-hook
                      sh-mode-hook
                      cperl-mode-hook))
        (remove-hook hook 'indent-guide-mode)))))

;; Aggressive auto indentation
(defun endless/indent-defun ()

  (insert (format-time-string current-date-time-format (current-time)))
  (insert "\n"))

;; Align
;; http://stackoverflow.com/questions/6217153/aligning-or-prettifying-code-in-emacs
;; http://stackoverflow.com/questions/3633120/emacs-hotkey-to-align-equal-signs
(defun align-to-equals (begin end)
  "Align region to equal signs"
  (interactive "r")
