 
 ;;; Package manager
 (require 'package)
+(add-to-list 'package-archives '("gnu" . "http://elpa.gnu.org/packages/"))
 (add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/"))
 (package-initialize)
 (if (not (file-exists-p "~/.emacs.d/elpa/")) (package-refresh-contents))

  "Switch font to dina."
  (interactive)
  (choose-font-if-exists "Dina"))
(defun font-scp ()
  "Switch font to source code pro."
  (interactive)

  "Switch font to a big source code pro."
  (interactive)
  (choose-font-if-exists "Source Code Pro 18"))
(font-inputmono)

;;; Enable all functions
(setq disabled-command-function nil)
