[emacs] unignore and add {early-}init.el

1 files changed, 48 insertions, 52 deletions

diff --git a/init.org b/init.org
index da1d297..b06abe7 100644
--- a/init.org
+++ b/init.org
@@ -350,12 +350,14 @@ in my shell.
   (exec-path-from-shell-copy-env "SSH_AUTH_SOCK"))
 #+end_src
 
-** COMMENT Only one custom theme at a time
+** Only one custom theme at a time
 
 #+begin_src emacs-lisp
-(defadvice load-theme (before clear-previous-themes activate)
-  "Clear existing theme settings instead of layering them"
-  (mapc #'disable-theme custom-enabled-themes))
+;; only one custom theme at a time
+;;
+;; (defadvice load-theme (before clear-previous-themes activate)
+;;   "Clear existing theme settings instead of layering them"
+;;   (mapc #'disable-theme custom-enabled-themes))
 #+end_src
 
 ** Server
@@ -374,42 +376,44 @@ See [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Emacs-Server.htm
   :config (or (server-running-p) (server-mode)))
 #+end_src
 
-** COMMENT Unicode support
+** Unicode support
 
 Font stack with better unicode support, around =Ubuntu Mono= and
 =Hack=.
 
-#+begin_src emacs-lisp :tangle no
-(dolist (ft (fontset-list))
-  (set-fontset-font
-   ft
-   'unicode
-   (font-spec :name "Source Code Pro" :size 14))
-  (set-fontset-font
-   ft
-   'unicode
-   (font-spec :name "DejaVu Sans Mono")
-   nil
-   'append)
-  ;; (set-fontset-font
-  ;;  ft
-  ;;  'unicode
-  ;;  (font-spec
-  ;;   :name "Symbola monospacified for DejaVu Sans Mono")
-  ;;  nil
-  ;;  'append)
-  ;; (set-fontset-font
-  ;;  ft
-  ;;  #x2115  ; ℕ
-  ;;  (font-spec :name "DejaVu Sans Mono")
-  ;;  nil
-  ;;  'append)
-  (set-fontset-font
-   ft
-   (cons ?Α ?ω)
-   (font-spec :name "DejaVu Sans Mono" :size 14)
-   nil
-   'prepend))
+#+begin_src emacs-lisp
+;; unicode support
+;;
+;; (dolist (ft (fontset-list))
+;;   (set-fontset-font
+;;    ft
+;;    'unicode
+;;    (font-spec :name "Source Code Pro" :size 14))
+;;   (set-fontset-font
+;;    ft
+;;    'unicode
+;;    (font-spec :name "DejaVu Sans Mono")
+;;    nil
+;;    'append)
+;;   ;; (set-fontset-font
+;;   ;;  ft
+;;   ;;  'unicode
+;;   ;;  (font-spec
+;;   ;;   :name "Symbola monospacified for DejaVu Sans Mono")
+;;   ;;  nil
+;;   ;;  'append)
+;;   ;; (set-fontset-font
+;;   ;;  ft
+;;   ;;  #x2115  ; ℕ
+;;   ;;  (font-spec :name "DejaVu Sans Mono")
+;;   ;;  nil
+;;   ;;  'append)
+;;   (set-fontset-font
+;;    ft
+;;    (cons ?Α ?ω)
+;;    (font-spec :name "DejaVu Sans Mono" :size 14)
+;;    nil
+;;    'prepend))
 #+end_src
 
 ** Gentler font resizing
@@ -1773,10 +1777,11 @@ Make =*scratch*= and =*Messages*= unkillable.
 
 Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
 
-** COMMENT [[https://github.com/DarthFennec/highlight-indent-guides][highlight-indent-guides]]                                 :ARCHIVE:
+** [[https://github.com/DarthFennec/highlight-indent-guides][highlight-indent-guides]]
 
 #+begin_src emacs-lisp
 (use-package highlight-indent-guides
+  :disabled t
   :defer 3
   :hook ((prog-mode . highlight-indent-guides-mode)
          ;; (org-mode  . highlight-indent-guides-mode)
@@ -1865,12 +1870,13 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
         ""))))
 #+end_src
 
-** COMMENT slack                                                   :ARCHIVE:
+** slack
 
 Hopefully temporary.
 
 #+begin_src emacs-lisp
 (use-package slack
+  :disabled t
   :commands (slack-start)
   :init
   (eval-when-compile                    ; silence the byte-compiler
@@ -1930,18 +1936,6 @@ Hopefully temporary.
   (setq alert-default-style 'notifier))
 #+end_src
 
-** COMMENT magithub                                                :ARCHIVE:
-
-For when I /have to/ use GH.
-
-#+begin_src emacs-lisp
-(use-package magithub
-  :after magit
-  :config
-  (magithub-feature-autoinject t)
-  (setq magithub-clone-default-directory "~/src/git"))
-#+end_src
-
 ** [[https://github.com/peterwvj/eshell-up][eshell-up]]
 
 #+begin_src emacs-lisp
@@ -2220,10 +2214,11 @@ I tried using =borg-elpa= instead of doing it like this, but it added
   (bbdb-initialize 'gnus 'message))
 #+end_src
 
-** COMMENT message-x
+** message-x
 
 #+begin_src emacs-lisp
 (use-package message-x
+  :disabled t
   :custom
   (message-x-completion-alist
    (quote
@@ -2235,10 +2230,11 @@ I tried using =borg-elpa= instead of doing it like this, but it added
       . message-expand-group)))))
 #+end_src
 
-** COMMENT gnus-harvest
+** gnus-harvest
 
 #+begin_src emacs-lisp
 (use-package gnus-harvest
+  :disabled t
   :commands gnus-harvest-install
   :demand t
   :config