improve autoloads

early-init.el

@@ -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

lisp/focus/focus-autoloads.el

@@ -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

lisp/indent-guide/indent-guide-autoloads.el

@@ -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

lisp/iscroll/iscroll-autoloads.el

@@ -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

lisp/olivetti/olivetti-autoloads.el

@@ -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

lisp/rainbow-mode/rainbow-mode-autoloads.el

@@ -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

lisp/update-autoloads.el

@@ -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 ()

lisp/virtual-auto-fill/virtual-auto-fill-autoloads.el

@@ -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

settings/cedet-settings.el

@@ -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
+  :defer t)
-  :init (require 'srefactor-autoloads))
 
 (use-package srefactor-lisp
   :commands

settings/completion-settings.el

@@ -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
+(use-package swiper)
-  :init (require 'swiper-autoloads))
 
 (use-package counsel
   :after ivy

settings/general-settings.el

@@ -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))
 

settings/gui-settings.el

@@ -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"
-  :delight (dashboard-mode "Db")  ;; "\u01F153
-  :after (all-the-icons)
   :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"
+  :defer t
-  :commands rainbow-mode)
+  :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)
   )
 

settings/my-settings.el

@@ -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)

settings/org-settings.el

@@ -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
+  :defer t)
-  ;; :init
-  ;; (require 'org-contrib-autoloads)
-  )
 
 ;; Make invisible parts of Org elements appear visible.
 (use-package org-appear
-  :commands (org-appear-mode)
+  :defer
-  :init (require 'org-appear-autoloads)
   ;; :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

settings/version-control-settings.el

@@ -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))