     (skp-require-packages skp-packages))
   (message "skp-install-package finished"))
 
-(defun set-large-screen-fonts ()
+(defun toggle-large-screen-fonts ()
   "Short cut to set large font sizes."
   (interactive)
-  (configure-fonts-and-theme 250))
+  (if (eql skp-current-font-size skp-large-font-size)
+      (setf skp-current-font-size skp-small-font-size)
+    (setf skp-current-font-size skp-large-font-size))
+  (configure-fonts-and-theme skp-current-font-size))
 
 (defun shutdown ()
   "Shutdown Emacs client and save all files."

  (show-paren-mode 1)
  (global-company-mode t)
  (setq inhibit-startup-screen t)
  (setq indent-tabs-mode nil);Use spaces only as default 
  (when (eq system-type 'darwin)
    (setq mac-command-modifier 'meta))
  (add-to-list 'default-frame-alist '(fullscreen . default)))

    (make-directory skp-savefile-dir))
  (setq backup-directory-alist `(("." . "~/.saves"))))

(defun configure-fonts-and-thebme (font-size)
  "Set any custom fonts and themes.
Argument FONT-SIZE The height of the font."
  (message "Setting custom fonts and themes")
