emacs: add {early-,}init.el, as exported from init.org

[~bandali/configs] / .emacs.d / init.org

diff --git a/.emacs.d/init.org b/.emacs.d/init.org
index 51954b6..42e4def 100644 (file)
--- a/.emacs.d/init.org
+++ b/.emacs.d/init.org
@@ -951,6 +951,10 @@ And here's where my actual Org configurations begin:
                  ("\\subparagraph{%s}"  . "\\subparagraph*{%s}"))
                t)
   (require 'ox-beamer))
                  ("\\subparagraph{%s}"  . "\\subparagraph*{%s}"))
                t)
   (require 'ox-beamer))

+
+(use-feature ox-extra
+  :config
+  (ox-extras-activate '(latex-header-blocks ignore-headlines)))

 #+end_src
 
 **** asynchronous tangle
 #+end_src
 
 **** asynchronous tangle


@@ -1084,7 +1088,11 @@ There's no way I could top that, so I won't attempt to.
    ([S-down] . ivy-next-history-element)
    ("DEL"    . ivy-backward-delete-char))
   :config
    ([S-down] . ivy-next-history-element)
    ("DEL"    . ivy-backward-delete-char))
   :config

-  (setq ivy-wrap t)
+  (setq ivy-wrap t
+        ivy-height 14
+        ivy-use-virtual-buffers t
+        ivy-virtual-abbreviate 'abbreviate
+        ivy-count-format "%d/%d ")

   (ivy-mode 1)
   ;; :custom-face
   ;; (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))
   (ivy-mode 1)
   ;; :custom-face
   ;; (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))


@@ -1110,9 +1118,9 @@ There's no way I could top that, so I won't attempt to.
   :after ivy
   :bind (([remap execute-extended-command] . counsel-M-x)
          ([remap find-file]                . counsel-find-file)
   :after ivy
   :bind (([remap execute-extended-command] . counsel-M-x)
          ([remap find-file]                . counsel-find-file)

-         ("s-r"                            . counsel-recentf)

          ("C-c x"                          . counsel-M-x)
          ("C-c f ."                        . counsel-find-file)
          ("C-c x"                          . counsel-M-x)
          ("C-c f ."                        . counsel-find-file)

+         ("C-c f l"                        . counsel-find-library)

          :map minibuffer-local-map
          ("C-r" . counsel-minibuffer-history))
   :config
          :map minibuffer-local-map
          ("C-r" . counsel-minibuffer-history))
   :config


@@ -2500,7 +2508,10 @@ this summer.
   :config
   (require 'ebdb)
   (require 'ebdb-mua)
   :config
   (require 'ebdb)
   (require 'ebdb-mua)

-  (require 'ebdb-gnus))
+  (require 'ebdb-gnus)
+
+  (with-eval-after-load 'recentf
+    (add-to-list 'recentf-exclude gnus-home-directory)))

 
 (use-feature gnus-art
   :config
 
 (use-feature gnus-art
   :config