@@ -7,19 +7,19 @@

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

-        ))

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

+   ))

 (when (fboundp 'tool-bar-mode)

   (tool-bar-mode 0))

@@ -18,15 +18,6 @@

   (define-key key-translation-map (kbd "M-8") (kbd "•"))

   (define-key key-translation-map (kbd "M-9") (kbd "λ")))

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

-

 (message invocation-name)

 (let ((default-directory  "~/.emacs.d/lisp/"))

@@ -160,6 +151,12 @@

   (let ((conf-file (fwoar/package-configuration package)))

     (load conf-file)))

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

+

 (defun fwoar/load-local-packages ()

   (interactive)

   (mapc 'package-install-file