(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)))

(setq default-frame-alist
      '(
        (top . 701)
        (left . 1288)
        (width . 195)
        (height . 59)
        (vertical-scroll-bars . nil)
        (right-divider-width . 2)
        (bottom-divider-width . 2)
        ;; (inhibit-double-buffering . t)
        (ns-appearance . dark)
        (ns-transparent-titlebar . t)
        ))

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

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