;; (require 'cl-generic)
 ;; (cl-defgeneric (setf seq-elt) (store sequence n))

 (setq package-user-dir
       (locate-user-emacs-file
        (concat
         (file-name-as-directory "elpa")
         emacs-version)))
 

 (when (fboundp 'tool-bar-mode)
   (tool-bar-mode 0))
 
 (when (fboundp 'scroll-bar-mode)
   (scroll-bar-mode 0))

 
 (let ((my-theme-path (expand-file-name "~/.emacs.d/themes/")))
   (add-to-list 'load-path my-theme-path)
   (add-to-list 'custom-theme-load-path my-theme-path)
   (load-theme 'fwoar-zenburn t))
 
 (fwoar/zenburn-with-color-variables
   (modify-all-frames-parameters
    `(
      (top . 701)
      (left . 1288)
      (width . 195)
      (height . 59)
      (vertical-scroll-bars . nil)
      (right-divider-width . 2)
      (bottom-divider-width . 2)
      (frame-resize-pixelwise . t)
      ;; (inhibit-double-buffering . t)
      (ns-appearance . dark)
      (ns-transparent-titlebar . t)
      (cursor-color . ,zenburn-fg+1)
      )))