refactor(lib): add provide lines

This commit is contained in:
Henrik Lissner
2024-10-02 05:15:58 -04:00
parent fe7b84966a
commit ad29be39f6
15 changed files with 42 additions and 1 deletions

View File

@ -398,3 +398,6 @@ current project."
interactive "Killed %d project buffers" interactive "Killed %d project buffers"
(- (length buffer-list) (- (length buffer-list)
(length (cl-remove-if-not #'buffer-live-p buffer-list))))))) (length (cl-remove-if-not #'buffer-live-p buffer-list)))))))
(provide 'doom-lib '(buffers))
;;; buffers.el ends here

View File

@ -165,3 +165,6 @@ imported into Emacs."
(doom--if-compile doom-upgrade-command (doom--if-compile doom-upgrade-command
(when (y-or-n-p "You must restart Emacs for the upgrade to take effect.\n\nRestart Emacs?") (when (y-or-n-p "You must restart Emacs for the upgrade to take effect.\n\nRestart Emacs?")
(doom/restart-and-restore)))) (doom/restart-and-restore))))
(provide 'doom-lib '(config))
;;; config.el ends here

View File

@ -559,4 +559,5 @@ Keeps track of its own IDs in `doom-docs-dir' and toggles `doom-docs-mode' when
(add-hook 'doom-docs-org-mode-hook #'doom-docs-read-only-h) (add-hook 'doom-docs-org-mode-hook #'doom-docs-read-only-h)
(provide 'doom-lib '(docs))
;;; docs.el ends here ;;; docs.el ends here

View File

@ -180,3 +180,6 @@ Also resizees `doom-variable-pitch-font' and `doom-serif-font'."
(doom-adjust-font-size nil) (doom-adjust-font-size nil)
(when doom-big-font-mode (when doom-big-font-mode
(doom-adjust-font-size doom-big-font-increment)))) (doom-adjust-font-size doom-big-font-increment))))
(provide 'doom-lib '(fonts))
;;; fonts.el ends here

View File

@ -755,3 +755,6 @@ Uses the symbol at point or the current selection, if available."
(format "%s.el" filebase))) (format "%s.el" filebase)))
collect it) collect it)
query "Search loaded files: ")) query "Search loaded files: "))
(provide 'doom-lib '(help))
;;; help.el ends here

View File

@ -317,3 +317,6 @@ Must be run from a magit diff buffer."
(user-error "%S isn't installed through any known source (%s)" (user-error "%S isn't installed through any known source (%s)"
package archive))))) package archive)))))
((user-error "Can't get homepage for %S package" package)))))) ((user-error "Can't get homepage for %S package" package))))))
(provide 'doom-lib '(packages))
;;; packages.el ends here

View File

@ -187,3 +187,6 @@ If DIR is not a project, it will be indexed (but not cached)."
(unless (file-remote-p project-root) (unless (file-remote-p project-root)
(or (file-in-directory-p project-root temporary-file-directory) (or (file-in-directory-p project-root temporary-file-directory)
(file-in-directory-p project-root doom-local-dir)))) (file-in-directory-p project-root doom-local-dir))))
(provide 'doom-lib '(projects))
;;; projects.el ends here

View File

@ -159,3 +159,6 @@ to reproduce bugs and determine if Doom is to blame."
(insert (substitute-command-keys doom-sandbox-preamble))) (insert (substitute-command-keys doom-sandbox-preamble)))
(goto-char (point-max)) (goto-char (point-max))
(current-buffer)))) (current-buffer))))
(provide 'doom-lib '(sandbox))
;;; sandbox.el ends here

View File

@ -197,3 +197,6 @@ If prefix ARG, delete all persistent scratches."
(message "%S does not exist" (abbreviate-file-name file)) (message "%S does not exist" (abbreviate-file-name file))
(delete-file file) (delete-file file)
(message "Successfully deleted %S" (abbreviate-file-name file)))))) (message "Successfully deleted %S" (abbreviate-file-name file))))))
(provide 'doom-lib '(scratch))
;;; scratch.el ends here

View File

@ -155,3 +155,6 @@ switch."
(when (boundp 'chemacs-current-emacs-profile) (when (boundp 'chemacs-current-emacs-profile)
(list "--with-profile" chemacs-current-emacs-profile)) (list "--with-profile" chemacs-current-emacs-profile))
(list "-l" tmpfile))))) (list "-l" tmpfile)))))
(provide 'doom-lib '(sessions))
;;; sessions.el ends here

View File

@ -153,3 +153,6 @@ LOCATION defaults to `doom-store-location'."
(when (file-exists-p path) (when (file-exists-p path)
(delete-file path) (delete-file path)
t))) t)))
(provide 'doom-lib '(store))
;;; store.el ends here

View File

@ -12,4 +12,5 @@
str) str)
(concat (nreverse quoted)))) (concat (nreverse quoted))))
;;; end of strings.el (provide 'doom-lib '(strings))
;;; strings.el ends here

View File

@ -413,3 +413,6 @@ i.e. disables `ws-butler-mode' in the current buffer."
(defun doom-disable-show-trailing-whitespace-h () (defun doom-disable-show-trailing-whitespace-h ()
"Disable `show-trailing-whitespace' in the current buffer." "Disable `show-trailing-whitespace' in the current buffer."
(setq-local show-trailing-whitespace nil)) (setq-local show-trailing-whitespace nil))
(provide 'doom-lib '(text))
;;; text.el ends here

View File

@ -115,3 +115,6 @@ non-interactive or frame-less sessions."
(doom-theme-face-attribute theme face attribute inherit)) (doom-theme-face-attribute theme face attribute inherit))
(setq value (face-attribute-merged-with attribute value inherit)))) (setq value (face-attribute-merged-with attribute value inherit))))
value)) value))
(provide 'doom-lib '(themes))
;;; themes.el ends here

View File

@ -245,3 +245,6 @@ If the current buffer is not an indirect buffer, it is `widen'ed."
(if (buffer-narrowed-p) (if (buffer-narrowed-p)
(widen) (widen)
(narrow-to-region beg end))) (narrow-to-region beg end)))
(provide 'doom-lib '(ui))
;;; ui.el ends here