emacs: update org and swiper
[~bandali/configs] / .emacs.d / init.org
index 899901c..42e4def 100644 (file)
@@ -297,6 +297,14 @@ integration, we will define a =use-feature= for plain ole
      ,@args))
 #+end_src
 
      ,@args))
 #+end_src
 
+While at it, let's exclude =straight.el='s build from recentf:
+
+#+begin_src emacs-lisp
+(with-eval-after-load 'recentf
+  (add-to-list 'recentf-exclude
+               (expand-file-name "~/.emacs.d/straight/build/")))
+#+end_src
+
 Also, here's a useful function for reloading the init file (useful
 after running =straight-check-all=:
 
 Also, here's a useful function for reloading the init file (useful
 after running =straight-check-all=:
 
@@ -943,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
@@ -1076,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))))
@@ -1102,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
@@ -1112,6 +1128,26 @@ There's no way I could top that, so I won't attempt to.
   (defalias 'locate #'counsel-locate))
 #+end_src
 
   (defalias 'locate #'counsel-locate))
 #+end_src
 
+*** COMMENT Helm
+
+#+begin_src emacs-lisp
+(use-package helm
+  :commands (helm-M-x helm-mini helm-resume)
+  :bind (("M-x"     . helm-M-x)
+         ("M-y"     . helm-show-kill-ring)
+         ("C-x b"   . helm-mini)
+         ("C-x C-b" . helm-buffers-list)
+         ("C-x C-f" . helm-find-files)
+         ("C-h r"   . helm-info-emacs)
+         ("s-r"     . helm-recentf)
+         ("C-s-r"   . helm-resume)
+         :map helm-map
+         ("<tab>" . helm-execute-persistent-action)
+         ("C-i"   . helm-execute-persistent-action) ; Make TAB work in terminals
+         ("C-z"   . helm-select-action))            ; List actions
+  :config (helm-mode 1))
+#+end_src
+
 *** eshell
 
 #+begin_src emacs-lisp
 *** eshell
 
 #+begin_src emacs-lisp
@@ -1868,6 +1904,14 @@ treemacs
 (use-package guix)
 #+end_src
 
 (use-package guix)
 #+end_src
 
+** COMMENT TeX
+
+#+begin_src emacs-lisp
+(use-package auctex
+  :custom
+  (font-latex-fontify-sectioning 'color))
+#+end_src
+
 * Emacs enhancements
 :PROPERTIES:
 :CUSTOM_ID: emacs-enhancements
 * Emacs enhancements
 :PROPERTIES:
 :CUSTOM_ID: emacs-enhancements
@@ -2464,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