(progn (setq default-frame-alist
             '((vertical-scroll-bars . nil)
               (right-divider-width . 2)
               (bottom-divider-width . 2)
               (inhibit-double-buffering . t)
               (ns-appearance . dark)
               (ns-transparent-titlebar . t)))
       (modify-all-frames-parameters default-frame-alist))

(defmacro define-obsolete-function-alias ( obsolete-name current-name &optional when docstring)
  (declare (doc-string 4) (indent defun))
  `(progn
     (defalias ,obsolete-name ,current-name ,docstring)
     (make-obsolete ,obsolete-name ,current-name ,(or when "unspecified"))))

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

(modify-all-frames-parameters
 '(
   (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)
   ))