projects
/
~bandali
/
configs
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[emacs][wip] ebdb: directly use upstream instead of GNU ELPA mirror
[~bandali/configs]
/
init.org
diff --git
a/init.org
b/init.org
index
8240b51
..
56a439a
100644
(file)
--- a/
init.org
+++ b/
init.org
@@
-296,6
+296,8
@@
and without compromising on performance.
debug-on-error t)
(setq use-package-verbose nil
use-package-expand-minimally t))
debug-on-error t)
(setq use-package-verbose nil
use-package-expand-minimally t))
+
+(setq use-package-always-defer t)
#+end_src
*** COMMENT Epkg
#+end_src
*** COMMENT Epkg
@@
-727,6
+729,7
@@
for this.
** Bindings
#+begin_src emacs-lisp
** Bindings
#+begin_src emacs-lisp
+(require 'bind-key)
(bind-keys
("C-c a i" . ielm)
(bind-keys
("C-c a i" . ielm)
@@
-877,6
+880,7
@@
And here's where my actual Org configurations begin:
t))
(use-feature ox-beamer
t))
(use-feature ox-beamer
+ :demand
:after ox)
#+end_src
:after ox)
#+end_src
@@
-894,9
+898,12
@@
file.
(defvar a/show-async-tangle-time nil
"Show the time spent tangling the file.")
(defvar a/show-async-tangle-time nil
"Show the time spent tangling the file.")
- (defvar a/async-tangle-post-compile
"make ti"
+ (defvar a/async-tangle-post-compile
nil
"If non-nil, pass to `compile' after successful tangle.")
"If non-nil, pass to `compile' after successful tangle.")
+ (defvar a/async-tangle-byte-recompile t
+ "If non-nil, byte-recompile the file on successful tangle.")
+
(defun a/async-babel-tangle ()
"Tangle org file asynchronously."
(interactive)
(defun a/async-babel-tangle ()
"Tangle org file asynchronously."
(interactive)
@@
-904,7
+911,7
@@
file.
(file (buffer-file-name))
(file-nodir (file-name-nondirectory file))
;; (async-quiet-switch "-q")
(file (buffer-file-name))
(file-nodir (file-name-nondirectory file))
;; (async-quiet-switch "-q")
- )
+
(file-noext (file-name-sans-extension file))
)
(async-start
`(lambda ()
(require 'org)
(async-start
`(lambda ()
(require 'org)
@@
-913,6
+920,7
@@
file.
`(lambda (result)
(if result
(progn
`(lambda (result)
(if result
(progn
+ (setq byte-compile-warnings '(not noruntime unresolved))
(message "Tangled %s%s"
,file-nodir
(if a/show-async-tangle-time
(message "Tangled %s%s"
,file-nodir
(if a/show-async-tangle-time
@@
-921,7
+929,9
@@
file.
',file-tangle-start-time)))
""))
(when a/async-tangle-post-compile
',file-tangle-start-time)))
""))
(when a/async-tangle-post-compile
- (compile a/async-tangle-post-compile)))
+ (compile a/async-tangle-post-compile))
+ (when a/async-tangle-byte-recompile
+ (byte-recompile-file (concat ,file-noext ".el"))))
(message "Tangling %s failed" ,file-nodir))))))))
(add-to-list
(message "Tangling %s failed" ,file-nodir))))))))
(add-to-list
@@
-978,8
+988,7
@@
A smart M-x enhancement for Emacs.
Mostly because =counsel= needs it to remember history.
#+begin_src emacs-lisp
Mostly because =counsel= needs it to remember history.
#+begin_src emacs-lisp
-(use-package smex
- :defer t)
+(use-package smex)
#+end_src
*** [[https://github.com/abo-abo/swiper][Ivy]] (and friends)
#+end_src
*** [[https://github.com/abo-abo/swiper][Ivy]] (and friends)
@@
-1080,7
+1089,6
@@
There's no way I could top that, so I won't attempt to.
#+begin_src emacs-lisp
(use-feature ibuffer
#+begin_src emacs-lisp
(use-feature ibuffer
- :defer t
:bind
(("C-x C-b" . ibuffer-other-window)
:map ibuffer-mode-map
:bind
(("C-x C-b" . ibuffer-other-window)
:map ibuffer-mode-map
@@
-1151,7
+1159,6
@@
There's no way I could top that, so I won't attempt to.
#+begin_src emacs-lisp
(use-feature outline
#+begin_src emacs-lisp
(use-feature outline
- :defer t
:hook (prog-mode . outline-minor-mode)
:bind
(:map
:hook (prog-mode . outline-minor-mode)
:bind
(:map
@@
-1176,7
+1183,6
@@
There's no way I could top that, so I won't attempt to.
:custom (ls-lisp-dirs-first t))
(use-feature dired
:custom (ls-lisp-dirs-first t))
(use-feature dired
- :defer t
:config
(setq dired-listing-switches "-alh"
ls-lisp-use-insert-directory-program nil)
:config
(setq dired-listing-switches "-alh"
ls-lisp-use-insert-directory-program nil)
@@
-1185,6
+1191,7
@@
There's no way I could top that, so I won't attempt to.
;; https://oremacs.com/2017/03/18/dired-ediff/
(defun dired-ediff-files ()
(interactive)
;; https://oremacs.com/2017/03/18/dired-ediff/
(defun dired-ediff-files ()
(interactive)
+ (require 'dired-aux)
(defvar ediff-after-quit-hook-internal)
(let ((files (dired-get-marked-files))
(wnd (current-window-configuration)))
(defvar ediff-after-quit-hook-internal)
(let ((files (dired-get-marked-files))
(wnd (current-window-configuration)))
@@
-1204,6
+1211,7
@@
There's no way I could top that, so I won't attempt to.
(set-window-configuration wnd))))
(error "no more than 2 files should be marked"))))
:bind (:map dired-mode-map
(set-window-configuration wnd))))
(error "no more than 2 files should be marked"))))
:bind (:map dired-mode-map
+ ("b" . dired-up-directory)
("e" . dired-ediff-files)
("E" . dired-toggle-read-only)
("\\" . dired-hide-details-mode)
("e" . dired-ediff-files)
("E" . dired-toggle-read-only)
("\\" . dired-hide-details-mode)
@@
-1217,7
+1225,6
@@
There's no way I could top that, so I won't attempt to.
#+begin_src emacs-lisp
(use-feature help
#+begin_src emacs-lisp
(use-feature help
- :defer t
:config
(temp-buffer-resize-mode)
(setq help-window-select t))
:config
(temp-buffer-resize-mode)
(setq help-window-select t))
@@
-1227,7
+1234,6
@@
There's no way I could top that, so I won't attempt to.
#+begin_src emacs-lisp
(use-feature tramp
#+begin_src emacs-lisp
(use-feature tramp
- :defer t
:config
(add-to-list 'tramp-default-proxies-alist '(nil "\\`root\\'" "/ssh:%h:"))
(add-to-list 'tramp-default-proxies-alist '("localhost" nil nil))
:config
(add-to-list 'tramp-default-proxies-alist '(nil "\\`root\\'" "/ssh:%h:"))
(add-to-list 'tramp-default-proxies-alist '("localhost" nil nil))
@@
-1239,7
+1245,6
@@
There's no way I could top that, so I won't attempt to.
#+begin_src emacs-lisp
(use-package dash
#+begin_src emacs-lisp
(use-package dash
- :defer t
:config (dash-enable-font-lock))
#+end_src
:config (dash-enable-font-lock))
#+end_src
@@
-1401,15
+1406,14
@@
Automatically save place in each file.
#+begin_src emacs-lisp
(use-package alloy-mode
:straight (:host github :repo "dwwmmn/alloy-mode")
#+begin_src emacs-lisp
(use-package alloy-mode
:straight (:host github :repo "dwwmmn/alloy-mode")
- :defer t
:config (setq alloy-basic-offset 2))
#+end_src
** [[https://coq.inria.fr][Coq]] (with [[https://github.com/ProofGeneral/PG][Proof General]])
#+begin_src emacs-lisp
:config (setq alloy-basic-offset 2))
#+end_src
** [[https://coq.inria.fr][Coq]] (with [[https://github.com/ProofGeneral/PG][Proof General]])
#+begin_src emacs-lisp
-(use-package proof-
general
- :
defer t
)
+(use-package proof-
site
+ :
straight proof-general
)
#+end_src
** [[https://leanprover.github.io][Lean]] (with [[https://github.com/leanprover/lean-mode][lean-mode]])
#+end_src
** [[https://leanprover.github.io][Lean]] (with [[https://github.com/leanprover/lean-mode][lean-mode]])
@@
-1436,7
+1440,6
@@
Automatically save place in each file.
#+begin_src emacs-lisp
(use-package haskell-mode
#+begin_src emacs-lisp
(use-package haskell-mode
- :defer t
:config
(setq haskell-indentation-layout-offset 4
haskell-indentation-left-offset 4
:config
(setq haskell-indentation-layout-offset 4
haskell-indentation-left-offset 4
@@
-1625,7
+1628,6
@@
instead.
#+begin_src emacs-lisp
(use-package sgml-mode
#+begin_src emacs-lisp
(use-package sgml-mode
- :defer t
:config
(setq sgml-basic-offset 2))
#+end_src
:config
(setq sgml-basic-offset 2))
#+end_src
@@
-1634,7
+1636,6
@@
instead.
#+begin_src emacs-lisp
(use-package css-mode
#+begin_src emacs-lisp
(use-package css-mode
- :defer t
:config
(setq css-indent-offset 2))
#+end_src
:config
(setq css-indent-offset 2))
#+end_src
@@
-1643,7
+1644,6
@@
instead.
#+begin_src emacs-lisp
(use-package web-mode
#+begin_src emacs-lisp
(use-package web-mode
- :defer t
:mode "\\.html\\'"
:config
(a/setq-every 2
:mode "\\.html\\'"
:config
(a/setq-every 2
@@
-1771,7
+1771,6
@@
treemacs
#+begin_src emacs-lisp
(use-feature man
#+begin_src emacs-lisp
(use-feature man
- :defer t
:config (setq Man-width 80))
#+end_src
:config (setq Man-width 80))
#+end_src
@@
-1842,6
+1841,7
@@
Emacs package that displays available keybindings in popup
#+begin_src emacs-lisp
(use-package smart-mode-line
#+begin_src emacs-lisp
(use-package smart-mode-line
+ :commands (sml/apply-theme)
:config
(sml/setup))
#+end_src
:config
(sml/setup))
#+end_src
@@
-1903,7
+1903,6
@@
Emacs package that displays available keybindings in popup
#+begin_src emacs-lisp
(use-package projectile
#+begin_src emacs-lisp
(use-package projectile
- :defer t
:bind-keymap ("C-c p" . projectile-command-map)
:config
(projectile-mode)
:bind-keymap ("C-c p" . projectile-command-map)
:config
(projectile-mode)
@@
-2017,7
+2016,7
@@
Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
#+begin_src emacs-lisp
(use-package shrink-path
#+begin_src emacs-lisp
(use-package shrink-path
- :
after eshell
+ :
defer 2
:config
(setq eshell-prompt-regexp "\\(.*\n\\)*λ "
eshell-prompt-function #'+eshell/prompt)
:config
(setq eshell-prompt-regexp "\\(.*\n\\)*λ "
eshell-prompt-function #'+eshell/prompt)
@@
-2048,6
+2047,7
@@
Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
#+begin_src emacs-lisp
(use-package eshell-up
#+begin_src emacs-lisp
(use-package eshell-up
+ :commands eshell-up
:after eshell)
#+end_src
:after eshell)
#+end_src
@@
-2327,7
+2327,8
@@
Convenient footnotes in =message-mode=.
#+begin_src emacs-lisp
(use-package ebdb
#+begin_src emacs-lisp
(use-package ebdb
- :defer 1
+ :straight (:host github :repo "girzel/ebdb")
+ :after gnus
:bind (:map gnus-group-mode-map ("e" . ebdb))
:config
(setq ebdb-sources (no-littering-expand-var-file-name "ebdb"))
:bind (:map gnus-group-mode-map ("e" . ebdb))
:config
(setq ebdb-sources (no-littering-expand-var-file-name "ebdb"))
@@
-2353,6
+2354,7
@@
Convenient footnotes in =message-mode=.
(use-feature ebdb-gnus
:after ebdb
(use-feature ebdb-gnus
:after ebdb
+ :demand
:custom
(ebdb-gnus-window-configuration
'(article
:custom
(ebdb-gnus-window-configuration
'(article
@@
-2364,6
+2366,7
@@
Convenient footnotes in =message-mode=.
(use-feature ebdb-mua
:after ebdb
(use-feature ebdb-mua
:after ebdb
+ :demand
;; :custom (ebdb-mua-pop-up nil)
)
;; :custom (ebdb-mua-pop-up nil)
)
@@
-2402,7
+2405,7
@@
Convenient footnotes in =message-mode=.
(gnus-harvest-install)))
#+end_src
(gnus-harvest-install)))
#+end_src
-*
COMMENT
Blogging
+* Blogging
:PROPERTIES:
:CUSTOM_ID: blogging
:END:
:PROPERTIES:
:CUSTOM_ID: blogging
:END:
@@
-2413,8
+2416,8
@@
Convenient footnotes in =message-mode=.
(use-package ox-hugo
:after ox)
(use-package ox-hugo
:after ox)
-(use-
packag
e ox-hugo-auto-export
- :
load-path "lib/ox-hugo"
)
+(use-
featur
e ox-hugo-auto-export
+ :
after ox-hugo
)
#+end_src
* Post initialization
#+end_src
* Post initialization
@@
-2441,6
+2444,6
@@
Display how long it took to load the init file.
* COMMENT Local Variables :ARCHIVE:
# Local Variables:
* COMMENT Local Variables :ARCHIVE:
# Local Variables:
-# eval:
;;
(add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local)
+# eval: (add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local)
# eval: (typo-mode -1)
# End:
# eval: (typo-mode -1)
# End:
projects / ~bandali / configs / blobdiff