emacs cursor change in insert/overwrite modes

gistfile1.el

;; vertical bar cursor by default
(set-default 'cursor-type 'bar)

;; don't stop blinking at all
(setq blink-cursor-blinks 0)

;; override insert key to change cursor in overwrite mode
(defvar cursor-mode-status 0)
(global-set-key (kbd "<insert>")
                (lambda () (interactive)
                  (cond ((eq cursor-mode-status 0)
                         (setq cursor-type 'box)
                         (overwrite-mode (setq cursor-mode-status 1)))
                        (t
                         (setq cursor-type 'bar)
                         (overwrite-mode (setq cursor-mode-status 0))))))

(hl-line-mode)
(set-face-background hl-line-face "gray6")

(add-hook 'dired-mode-hook (lambda () (hl-line-mode)))