     (insert (format-time-string
 	     "%Y-%m-%d (%a)"
 	     (time-add (current-time) (* shift_days 24 3600))))))
-(define-key global-map (kbd "C-c d") 'vvv/insert-date)
+(global-set-key (kbd "C-c d") 'vvv/insert-date)
 
 (defun vvv/copy-file-path (&optional *dir-path-only-p)
   "Copy the current buffer's file path or dired path to `kill-ring'.

(global-set-key (kbd "C-c 8") 'set-80-columns)
;;; ------------------------------------------------------------------

(require 'iedit)

(setq compilation-scroll-output t)


  (speedbar-add-supported-extension ".hs"))
(global-set-key (kbd "C-c r") 'speedbar)

(defun vvv/reload-tags-table (arg)
  "A combination of `tags-reset-tags-tables' and `visit-tags-table'."
  (interactive "P")
  (tags-reset-tags-tables)
  (if (null current-prefix-arg)
      (let ((tags-file (locate-dominating-file default-directory "TAGS")))
	(when tags-file
	  (visit-tags-table tags-file)
	  (message "Loaded tags file: %s" tags-file-name)))
    (call-interactively 'visit-tags-table)))
(global-set-key (kbd "C-c .") 'vvv/reload-tags-table)

;;; --------------------------------------------------------------------

;;; Spell check
(global-set-key (kbd "C-c ib") 'ispell-buffer)
(global-set-key (kbd "C-c ir") 'ispell-region)

(with-eval-after-load "ps-print"
  (setq ps-paper-type 'a4
