From 88ecb98b11389576c0a7092450226ca8c9a4b34a Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 16 Jan 2018 16:04:43 -0800
Subject: [PATCH] remove junk from startup

---
 emacs_el/configuration/don-configuration.org | 80 +++++++++++---------
 1 file changed, 44 insertions(+), 36 deletions(-)

diff --git a/emacs_el/configuration/don-configuration.org b/emacs_el/configuration/don-configuration.org
index 5e63115..2f3d1ce 100644
--- a/emacs_el/configuration/don-configuration.org
+++ b/emacs_el/configuration/don-configuration.org
@@ -7,60 +7,68 @@
 #+BEGIN_SRC emacs-lisp
 (setq debug-on-event 'siguser2)
 #+END_SRC
-* Add library paths
-
+* Initial startup stuff
+** Disable startup screen
 #+BEGIN_SRC emacs-lisp
-  (add-to-list 'load-path '"~/lib/emacs_el/")
-  (add-to-list 'load-path '"~/lib/emacs_el/tiny-tools/lisp/tiny")
-  (add-to-list 'load-path '"~/lib/emacs_el/tiny-tools/lisp/other")
-  (add-to-list 'load-path '"~/lib/emacs_el/magit-annex")
+  (setq inhibit-startup-screen t)
+#+END_SRC
+** Disable cluter
+#+BEGIN_SRC emacs-lisp
+  ; (if (fboundp 'menu-bar-mode) (menu-bar-mode -1))
+  (if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
+  (if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
+#+END_SRC
+** Fullscreen
+#+BEGIN_SRC emacs-lisp
+  (setq frame-resize-pixelwise t)
+  (add-to-list 'default-frame-alist '(fullscreen . maximixed))
 #+END_SRC
-
 * Package management
 ** package repositories and package manager
 Borrowed from https://github.com/nilcons/emacs-use-package-fast/ to
-load use-package even faster
+load  [[https://github.com/jwiegley/use-package/][use-package]] even faster
 #+BEGIN_SRC emacs-lisp
   (setq package-enable-at-startup nil)
   (setq package--init-file-ensured t)
   (eval-and-compile
     (setq use-package-verbose (not (bound-and-true-p byte-compile-current-file))))
   (mapc #'(lambda (add) (add-to-list 'load-path add))
-        (eval-when-compile
-          (package-initialize)
-          (unless (package-installed-p 'use-package)
-            (package-refresh-contents)
-            (package-install 'use-package))
-          (setq use-package-always-ensure t)
-          (let ((package-user-dir-real (file-truename package-user-dir)))
-            ;; The reverse is necessary, because outside we mapc
-            ;; add-to-list element-by-element, which reverses.
-            (nreverse (apply #'nconc
-                             ;; Only keep package.el provided loadpaths.
-                             (mapcar #'(lambda (path)
-                                         (if (string-prefix-p package-user-dir-real path)
-                                             (list path)
-                                           nil))
-                                     load-path))))))
+    (eval-when-compile
+      (package-initialize)
+      (unless (package-installed-p 'use-package)
+        (package-refresh-contents)
+        (package-install 'use-package))
+      (let ((package-user-dir-real (file-truename package-user-dir)))
+        ;; The reverse is necessary, because outside we mapc
+        ;; add-to-list element-by-element, which reverses.
+        (nreverse (apply #'nconc
+                 ;; Only keep package.el provided loadpaths.
+                 (mapcar #'(lambda (path)
+                     (if (string-prefix-p package-user-dir-real path)
+                         (list path)
+                       nil))
+                     load-path))))))
 
   (setq package-archives '(("gnu" . "https://elpa.gnu.org/packages/")
-                           ("melpa" . "https://melpa.org/packages/")
-                           ("org" . "http://orgmode.org/elpa/") ))
-#+END_SRC
-** [[https://github.com/jwiegley/use-package/][use-package]]
-#+BEGIN_SRC emacs-lisp
-  (package-initialize)
-  (eval-when-compile
-    (unless (package-installed-p 'use-package)
-      (package-refresh-contents)
-      (package-install 'use-package))
-    (require 'use-package))
+               ("melpa" . "https://melpa.org/packages/")
+               ("org" . "http://orgmode.org/elpa/") ))
+  (require 'use-package)
+  (require 'diminish)
+  (require 'bind-key)
 #+END_SRC
 ** Paradox
 #+BEGIN_SRC emacs-lisp
   (use-package paradox
     :ensure paradox
-  )
+    :commands (paradox-upgrade-packages paradox-list-packages)
+    :config (setq paradox-execute-asynchronously t)
+    )
+#+END_SRC
+* Add library paths
+
+#+BEGIN_SRC emacs-lisp
+  (add-to-list 'load-path '"~/lib/emacs_el/")
+  (add-to-list 'load-path '"~/lib/emacs_el/magit-annex")
 #+END_SRC
 * Disable custom-vars
 #+BEGIN_SRC emacs-lisp
-- 
2.39.2