daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

improve autoloads

Browse Source
This commit is contained in:
Daniel Weschke
2025-07-04 23:58:34 +02:00
parent 09e03011d7
commit 4a4f30e3b1
15 changed files with 359 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
early-init.el
View File

@@ -55,7 +55,7 @@ Fallbacks to `user-emacs-directory' if this file is not loaded.")
;; path where settings files are kept
(add-to-list 'load-path (concat config-dir "settings"))
;; add personal elisp lib dir, for manually installed packages
(defun add-to-load-path-with-subdirs (base exclude-list include-list)
(defun add-to-load-path-with-subdirs (base &optional exclude-list include-list autoloads)
"This will add all first level dirs from BASE and exclude the ones in
EXCLUDE-LIST, while for the dirs in INCLUDE-LIST, it will add all the
first level dirs of that dir too.
@@ -66,9 +66,14 @@ Fallbacks to `user-emacs-directory' if this file is not loaded.")
(when (and (file-directory-p name)
(not (member f exclude-list)))
(add-to-list 'load-path name)
(when autoloads
(let ((fileal (concat name "/" (file-name-base name) "-autoloads.el"))
(nameal (concat (file-name-base name) "-autoloads")))
(when (file-exists-p fileal)
(require (intern nameal) fileal) )))
(when (member f include-list)
(add-to-load-path-with-subdirs name exclude-list include-list))))))
(add-to-load-path-with-subdirs (concat config-dir "lisp") '("." ".." "0patches") nil))
(add-to-load-path-with-subdirs (concat config-dir "lisp") '("." ".." "0patches") nil t))
;;; Load pre-early-init.el

64
lisp/focus/focus-autoloads.el Normal file
View File

@@ -0,0 +1,64 @@
;;; focus-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*-
;; Generated by the `loaddefs-generate' function.
;; This file is part of GNU Emacs.
;;; Code:
(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path)))
;;; Generated autoloads from focus.el
(autoload 'focus-mode "focus" "\
Dim the font color of text in surrounding sections.
This is a minor mode. If called interactively, toggle the `Focus mode'
mode. If the prefix argument is positive, enable the mode, and if it is
zero or negative, disable the mode.
If called from Lisp, toggle the mode if ARG is `toggle'. Enable the
mode if ARG is nil, omitted, or is a positive number. Disable the mode
if ARG is a negative number.
To check whether the minor mode is enabled in the current buffer,
evaluate the variable `focus-mode'.
The mode's hook is called both when the mode is enabled and when it is
disabled.
(fn &optional ARG)" t)
(autoload 'focus-read-only-mode "focus" "\
A read-only mode optimized for `focus-mode'.
This is a minor mode. If called interactively, toggle the
`Focus-Read-Only mode' mode. If the prefix argument is positive, enable
the mode, and if it is zero or negative, disable the mode.
If called from Lisp, toggle the mode if ARG is `toggle'. Enable the
mode if ARG is nil, omitted, or is a positive number. Disable the mode
if ARG is a negative number.
To check whether the minor mode is enabled in the current buffer,
evaluate the variable `focus-read-only-mode'.
The mode's hook is called both when the mode is enabled and when it is
disabled.
(fn &optional ARG)" t)
(register-definition-prefixes "focus" '("focus-"))
;;; End of scraped data
(provide 'focus-autoloads)
;; Local Variables:
;; version-control: never
;; no-byte-compile: t
;; no-update-autoloads: t
;; no-native-compile: t
;; coding: utf-8-emacs-unix
;; End:
;;; focus-autoloads.el ends here

71
lisp/indent-guide/indent-guide-autoloads.el Normal file
View File

@@ -0,0 +1,71 @@
;;; indent-guide-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*-
;; Generated by the `loaddefs-generate' function.
;; This file is part of GNU Emacs.
;;; Code:
(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path)))
;;; Generated autoloads from indent-guide.el
(autoload 'indent-guide-mode "indent-guide" "\
show vertical lines to guide indentation
This is a minor mode. If called interactively, toggle the `Indent-Guide
mode' mode. If the prefix argument is positive, enable the mode, and if
it is zero or negative, disable the mode.
If called from Lisp, toggle the mode if ARG is `toggle'. Enable the
mode if ARG is nil, omitted, or is a positive number. Disable the mode
if ARG is a negative number.
To check whether the minor mode is enabled in the current buffer,
evaluate the variable `indent-guide-mode'.
The mode's hook is called both when the mode is enabled and when it is
disabled.
(fn &optional ARG)" t)
(put 'indent-guide-global-mode 'globalized-minor-mode t)
(defvar indent-guide-global-mode nil "\
Non-nil if Indent-Guide-Global mode is enabled.
See the `indent-guide-global-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `indent-guide-global-mode'.")
(custom-autoload 'indent-guide-global-mode "indent-guide" nil)
(autoload 'indent-guide-global-mode "indent-guide" "\
Toggle Indent-Guide mode in all buffers.
With prefix ARG, enable Indent-Guide-Global mode if ARG is positive;
otherwise, disable it.
If called from Lisp, toggle the mode if ARG is `toggle'.
Enable the mode if ARG is nil, omitted, or is a positive number.
Disable the mode if ARG is a negative number.
Indent-Guide mode is enabled in all buffers where `(lambda nil (unless
(cl-some 'derived-mode-p indent-guide-inhibit-modes)
(indent-guide-mode 1)))' would do it.
See `indent-guide-mode' for more information on Indent-Guide mode.
(fn &optional ARG)" t)
(register-definition-prefixes "indent-guide" '("indent-guide-"))
;;; End of scraped data
(provide 'indent-guide-autoloads)
;; Local Variables:
;; version-control: never
;; no-byte-compile: t
;; no-update-autoloads: t
;; no-native-compile: t
;; coding: utf-8-emacs-unix
;; End:
;;; indent-guide-autoloads.el ends here

46
lisp/iscroll/iscroll-autoloads.el Normal file
View File

@@ -0,0 +1,46 @@
;;; iscroll-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*-
;; Generated by the `loaddefs-generate' function.
;; This file is part of GNU Emacs.
;;; Code:
(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path)))
;;; Generated autoloads from iscroll.el
(autoload 'iscroll-mode "iscroll" "\
Smooth scrolling over images.
This is a minor mode. If called interactively, toggle the `IScroll
mode' mode. If the prefix argument is positive, enable the mode, and if
it is zero or negative, disable the mode.
If called from Lisp, toggle the mode if ARG is `toggle'. Enable the
mode if ARG is nil, omitted, or is a positive number. Disable the mode
if ARG is a negative number.
To check whether the minor mode is enabled in the current buffer,
evaluate the variable `iscroll-mode'.
The mode's hook is called both when the mode is enabled and when it is
disabled.
(fn &optional ARG)" t)
(register-definition-prefixes "iscroll" '("iscroll-"))
;;; End of scraped data
(provide 'iscroll-autoloads)
;; Local Variables:
;; version-control: never
;; no-byte-compile: t
;; no-update-autoloads: t
;; no-native-compile: t
;; coding: utf-8-emacs-unix
;; End:
;;; iscroll-autoloads.el ends here

51
lisp/olivetti/olivetti-autoloads.el Normal file
View File

@@ -0,0 +1,51 @@
;;; olivetti-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*-
;; Generated by the `loaddefs-generate' function.
;; This file is part of GNU Emacs.
;;; Code:
(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path)))
;;; Generated autoloads from olivetti.el
(autoload 'olivetti-mode "olivetti" "\
Olivetti provides a nice writing environment.
Window margins are set to relative widths to accomodate a text
body width set with `olivetti-body-width'.
This is a minor mode. If called interactively, toggle the `Olivetti
mode' mode. If the prefix argument is positive, enable the mode, and if
it is zero or negative, disable the mode.
If called from Lisp, toggle the mode if ARG is `toggle'. Enable the
mode if ARG is nil, omitted, or is a positive number. Disable the mode
if ARG is a negative number.
To check whether the minor mode is enabled in the current buffer,
evaluate the variable `olivetti-mode'.
The mode's hook is called both when the mode is enabled and when it is
disabled.
\\{olivetti-mode-map}
(fn &optional ARG)" t)
(register-definition-prefixes "olivetti" '("olivetti-"))
;;; End of scraped data
(provide 'olivetti-autoloads)
;; Local Variables:
;; version-control: never
;; no-byte-compile: t
;; no-update-autoloads: t
;; no-native-compile: t
;; coding: utf-8-emacs-unix
;; End:
;;; olivetti-autoloads.el ends here

48
lisp/rainbow-mode/rainbow-mode-autoloads.el Normal file
View File

@@ -0,0 +1,48 @@
;;; rainbow-mode-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*-
;; Generated by the `loaddefs-generate' function.
;; This file is part of GNU Emacs.
;;; Code:
(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path)))
;;; Generated autoloads from rainbow-mode.el
(autoload 'rainbow-mode "rainbow-mode" "\
Colorize strings that represent colors.
This will fontify with colors the string like \"#aabbcc\" or \"blue\".
This is a minor mode. If called interactively, toggle the `Rainbow
mode' mode. If the prefix argument is positive, enable the mode, and if
it is zero or negative, disable the mode.
If called from Lisp, toggle the mode if ARG is `toggle'. Enable the
mode if ARG is nil, omitted, or is a positive number. Disable the mode
if ARG is a negative number.
To check whether the minor mode is enabled in the current buffer,
evaluate the variable `rainbow-mode'.
The mode's hook is called both when the mode is enabled and when it is
disabled.
(fn &optional ARG)" t)
(register-definition-prefixes "rainbow-mode" '("rainbow-"))
;;; End of scraped data
(provide 'rainbow-mode-autoloads)
;; Local Variables:
;; version-control: never
;; no-byte-compile: t
;; no-update-autoloads: t
;; no-native-compile: t
;; coding: utf-8-emacs-unix
;; End:
;;; rainbow-mode-autoloads.el ends here

6
lisp/update-autoloads.el
View File

@@ -45,15 +45,21 @@
(package-generate-autoloads "all-the-icons" (concat config-dir "lisp/all-the-icons"))
(package-generate-autoloads "dashboard" (concat config-dir "lisp/dashboard"))
(package-generate-autoloads "diff-hl" (concat config-dir "lisp/diff-hl"))
(package-generate-autoloads "focus" (concat config-dir "lisp/focus"))
(package-generate-autoloads "indent-guide" (concat config-dir "lisp/indent-guide"))
(package-generate-autoloads "iscroll" (concat config-dir "lisp/iscroll"))
(package-generate-autoloads "ivy" (concat config-dir "lisp/ivy"))
(package-generate-autoloads "ivy-rich" (concat config-dir "lisp/ivy-rich"))
(package-generate-autoloads "my" (concat config-dir "lisp/my"))
(package-generate-autoloads "olivetti" (concat config-dir "lisp/olivetti"))
;; (package-generate-autoloads "org" (concat config-dir "lisp/org")) ;; already org-loaddefs.el
(package-generate-autoloads "org-appear" (concat config-dir "lisp/org-appear"))
(package-generate-autoloads "org-contrib" (concat config-dir "lisp/org-contrib"))
(package-generate-autoloads "rainbow-mode" (concat config-dir "lisp/rainbow-mode"))
(package-generate-autoloads "spacemacs-theme" (concat config-dir "lisp/spacemacs-theme"))
(package-generate-autoloads "srefactor" (concat config-dir "lisp/srefactor"))
(package-generate-autoloads "swiper" (concat config-dir "lisp/swiper"))
(package-generate-autoloads "virtual-auto-fill" (concat config-dir "lisp/virtual-auto-fill"))
)
(defun my-byte-compile ()

46
lisp/virtual-auto-fill/virtual-auto-fill-autoloads.el Normal file
View File

@@ -0,0 +1,46 @@
;;; virtual-auto-fill-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*-
;; Generated by the `loaddefs-generate' function.
;; This file is part of GNU Emacs.
;;; Code:
(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path)))
;;; Generated autoloads from virtual-auto-fill.el
(autoload 'virtual-auto-fill-mode "virtual-auto-fill" "\
Visually wrap lines between wrap prefix and `fill-column'.
This is a minor mode. If called interactively, toggle the
`Virtual-Auto-Fill mode' mode. If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.
If called from Lisp, toggle the mode if ARG is `toggle'. Enable the
mode if ARG is nil, omitted, or is a positive number. Disable the mode
if ARG is a negative number.
To check whether the minor mode is enabled in the current buffer,
evaluate the variable `virtual-auto-fill-mode'.
The mode's hook is called both when the mode is enabled and when it is
disabled.
(fn &optional ARG)" t)
(register-definition-prefixes "virtual-auto-fill" '("virtual-auto-fill-"))
;;; End of scraped data
(provide 'virtual-auto-fill-autoloads)
;; Local Variables:
;; version-control: never
;; no-byte-compile: t
;; no-update-autoloads: t
;; no-native-compile: t
;; coding: utf-8-emacs-unix
;; End:
;;; virtual-auto-fill-autoloads.el ends here

3
settings/cedet-settings.el
View File

@@ -52,8 +52,7 @@
(setq srecode-map-save-file (concat user-cache-directory "cedet/srecode-map.el")))
(use-package srefactor ;; https://melpa.org/#/srefactor
:defer t
:init (require 'srefactor-autoloads))
:defer t)
(use-package srefactor-lisp
:commands

5
settings/completion-settings.el
View File

@@ -36,7 +36,6 @@
:delight (ivy-mode "Ivy") ;; \u24BE i
:commands (ivy-mode)
:defer 0.1
:init (require 'ivy-autoloads)
;; Ivy-based interface to standard commands
:bind (("C-s" . swiper)
;; ("C-M-s" . swiper-all)
@@ -62,7 +61,6 @@
(use-package ivy-rich
:defer 0.1
:init (require 'ivy-rich-autoloads)
:config
(setcdr (assq t ivy-format-functions-alist) #'ivy-format-function-line)
;; For better performance, enable all-the-icons-ivy-rich-mode before ivy-rich-mode.
@@ -70,8 +68,7 @@
(all-the-icons-ivy-rich-mode 1))
(ivy-rich-mode 1))
(use-package swiper
:init (require 'swiper-autoloads))
(use-package swiper)
(use-package counsel
:after ivy

1
settings/general-settings.el
View File

@@ -267,7 +267,6 @@ Version 2016-07-13"
;; highlight parentheses when the cursor is next to them
(use-package paren
:defer 0.1
:config
(show-paren-mode t))

31
settings/gui-settings.el
View File

@@ -116,16 +116,16 @@ DISPLAY-START: `integer', e.g. 3820"
(add-to-list 'window-scroll-functions #'my-window-scroll-function))
(use-package tab-bar
:commands (tab-bar-mode)
:bind ((:map global-map
(("s-{" . tab-bar-switch-to-prev-tab)
("s-}" . tab-bar-switch-to-next-tab)
("s-t" . tab-bar-new-tab)
("s-w" . tab-bar-close-tab))))
:config
;; add menu button
(add-to-list 'tab-bar-format #'tab-bar-format-menu-bar)
;; add tool bar
(require 'my-tool-bar)
(add-to-list 'tab-bar-format #'my-tool-bar-format)
@@ -175,14 +175,11 @@ DISPLAY-START: `integer', e.g. 3820"
(gnuplot-mode)
(my-view-gnuplot))))
;; not working
;; (when (display-graphic-p)
;; (setq mode-line-format nil))
(use-package awesome-tray
:defer nil
:after my-theme
:hook (after-init . awesome-tray-mode)
:init (setq mode-line-format nil)
:config
(setq awesome-tray-info-padding-right 1)
(setq awesome-tray-buffer-name-buffer-changed t)
@@ -343,17 +340,17 @@ DISPLAY-START: `integer', e.g. 3820"
(use-package page-break-lines
:delight (page-break-lines-mode "Pb") ;; "\u24C5\uFF42"
:config
(add-to-list 'page-break-lines-modes 'python-mode)
(add-to-list 'page-break-lines-modes 'ledger-mode)
(add-to-list 'page-break-lines-modes 'dashboard-mode)
(global-page-break-lines-mode))
(global-page-break-lines-mode 1))
(use-package memoize
:defer t)
(use-package all-the-icons
:defer nil
:defer t
:if (display-graphic-p)
:init (require 'all-the-icons-autoloads)
:config
(when (and (not (my-font-installed-p "all-the-icons"))
(window-system))
@@ -363,11 +360,8 @@ DISPLAY-START: `integer', e.g. 3820"
(use-package dashboard
:defer nil
;; :defer 0.1
:delight (dashboard-mode "Db") ;; "\u01F153
:after (all-the-icons)
:delight (dashboard-mode "Db") ;; "\u01F153"
:commands (dashboard-mode)
:init (require 'dashboard-autoloads)
:config
;; see `dashboad-widget'
(setq dashboard-banner-logo-title
@@ -566,7 +560,6 @@ See also `dashboard-insert-section' for the sequence of elements."
;; therefore not all levels and if toggled on and mode default off
(use-package indent-guide
:delight (indent-guide-mode "Ig") ;; "\u24BE\uFF47"
:commands (indent-guide-mode)
;;:hook (prog-mode . indent-guide-mode) ;; problem if used in notmuch
:hook (python-mode . indent-guide-mode)
:config
@@ -589,21 +582,21 @@ See also `dashboard-insert-section' for the sequence of elements."
;; )
(use-package rainbow-mode
:delight (rainbow-mode "Rb") ;; " Rbow" "\u24C7"
:commands rainbow-mode)
:defer t
:delight (rainbow-mode "Rb")) ;; " Rbow" "\u24C7"
(use-package focus
:commands focus-mode
:defer t
:custom-face (focus-unfocused ((t :inherit shadow))))
(use-package iscroll
:commands iscroll-mode
:defer t
;; :hook ((special-mode text-mode) . iscroll-mode)
)
(use-package virtual-auto-fill
:defer t
:delight (virtual-auto-fill-mode "Fv") ;; "\u24CB\uFF46"
:commands virtual-auto-fill-mode
;;:hook (help-mode . virtual-auto-fill-mode)
)

7
settings/my-settings.el
View File

@@ -2,16 +2,12 @@
;;; Commentary:
;;; Code:
(use-package my
:init
;; (load-file (concat config-dir "lisp/my/my-autoloads.el"))
(require 'my-autoloads)
:config
(with-eval-after-load 'org
(add-hook 'org-mode-hook 'my-org-link-color-hook)
(add-hook 'org-ctrl-c-ctrl-c-hook 'my-org-table-cell-color-attr)))
(use-package olivetti
:commands (olivetti-mode)
:bind (("<f8>" . my-distraction-free))
:config
(defun my-distraction-free ()
@@ -49,7 +45,6 @@
(olivetti-mode 0)))))
(use-package my-org-article
:defer 0.1
:after (org)
:bind (:map org-mode-map
("<f5>" . my-org-article-html-export-to-html-notify-async)
@@ -131,7 +126,7 @@ gnuplot buffer. See also async init file
)
(use-package my-org-letter
:defer 0.1
:defer t
:after (org))
(provide 'my-settings)

12
settings/org-settings.el
View File

@@ -250,7 +250,7 @@ Example defines
:delight (org-mode "Org") ;; "Org " "\u01F15E"
;;:bind (("C-c <del>" . org-mark-ring-goto)) ;; normally at C-c & but it is redefined by yasnippet
:init
;; (require 'org-loaddefs)
(require 'org-loaddefs)
(setq org-export-backends '(ascii html icalendar latex md odt reveal tufte))
:config
(setq org-preview-latex-process-alist
@@ -339,18 +339,14 @@ Example defines
(add-to-list 'image-file-name-extensions "eps" t)) ;; TODO: eps not needed?
(use-package org-contrib
:defer t
;; :init
;; (require 'org-contrib-autoloads)
)
:defer t)
;; Make invisible parts of Org elements appear visible.
(use-package org-appear
:commands (org-appear-mode)
:init (require 'org-appear-autoloads)
:defer
;; :hook (org-mode . org-appear-mode)
(setq org-appear-autoentities t) ;; toogle entities: \alpha -> ɑ, needs `org-pretty-entities' active
:config
(setq org-appear-autoentities t) ;; toogle entities: \alpha -> ɑ, needs `org-pretty-entities' active
(setq org-appear-autoemphasis t) ;; toggle emphasis markers, t by default, needs `org-hide-emphasis-markers' active
(setq org-appear-autolinks t) ;; toogle links, needs `org-link-descriptive' active
(setq org-appear-autosubmarkers t) ;; toogle subscripts and superscripts: ^3 -> ³, needs `org-pretty-entities' active

1
settings/version-control-settings.el
View File

@@ -55,7 +55,6 @@
(use-package diff-hl
;; show diffs in fringes (for margins see `diff-hl-margin')
;; https://github.com/dgutov/diff-hl
:init (require 'diff-hl-autoloads)
:hook (((prog-mode vc-dir-mode org-mode) . turn-on-diff-hl-mode)
(magit-pre-refresh . diff-hl-magit-pre-refresh)
(magit-post-refresh . diff-hl-magit-post-refresh))