 ;; enable some disabled commands
 (put 'upcase-region 'disabled nil)
 (put 'downcase-region 'disabled nil)
+(put 'narrow-to-region 'disabled nil)
+(put 'dired-find-alternate-file 'disabled nil)
 
 ;;;;;;;;;;;;;;
 ;; packages ;;

;; custom functions ;;
;;;;;;;;;;;;;;;;;;;;;;

;; a very handy function from
;; https://github.com/flyingmachine/emacs-for-clojure
(defun toggle-comment-on-line ()
  "Comment or uncomment current line."
  (interactive)
  (comment-or-uncomment-region (line-beginning-position)
			       (line-end-position)))
(bind-key "C-;" 'toggle-comment-on-line)



(destructuring-bind (HIGH LOW USEC PSEC) (current-time)
  ;; loading finished
  (setq *emacs-load-time*
	(+ (- LOW (car *emacs-load-time*))
	   (/ (- USEC (cadr *emacs-load-time*)) 1000000.0)))
  (message ".emacs loaded in %fs" *emacs-load-time*))


(use-package hc-zenburn-theme
  ;; custom color theme
  :config (load-theme 'hc-zenburn t)
  
  (use-package hl-line
    :config (global-hl-line-mode 1)))

(use-package magit
  ;; defer loading until the mode is called
