Minor tweaks across the board
This commit is contained in:
parent
2f569eda51
commit
2214c3175e
7 changed files with 28 additions and 32 deletions
|
@ -258,7 +258,7 @@ non-nil, return paths of possible modules, activated or otherwise."
|
|||
(setq use-package-keywords
|
||||
(use-package-list-insert keyword use-package-keywords :after)))
|
||||
|
||||
(defalias 'use-package-normalize/:defer-incrementally 'use-package-normalize-symlist)
|
||||
(defalias 'use-package-normalize/:defer-incrementally #'use-package-normalize-symlist)
|
||||
(defun use-package-handler/:defer-incrementally (name _keyword targets rest state)
|
||||
(use-package-concat
|
||||
`((doom-load-packages-incrementally
|
||||
|
@ -267,11 +267,11 @@ non-nil, return paths of possible modules, activated or otherwise."
|
|||
(append targets (list name)))))
|
||||
(use-package-process-keywords name rest state)))
|
||||
|
||||
(defalias 'use-package-normalize/:after-call 'use-package-normalize-symlist)
|
||||
(defalias 'use-package-normalize/:after-call #'use-package-normalize-symlist)
|
||||
(defun use-package-handler/:after-call (name _keyword hooks rest state)
|
||||
(if (plist-get state :demand)
|
||||
(use-package-process-keywords name rest state)
|
||||
(let ((fn (intern (format "doom|transient-hook--load-%s" name))))
|
||||
(let ((fn (make-symbol (format "doom|transient-hook--load-%s" name))))
|
||||
(use-package-concat
|
||||
`((fset ',fn
|
||||
(lambda (&rest _)
|
||||
|
@ -284,8 +284,8 @@ non-nil, return paths of possible modules, activated or otherwise."
|
|||
(dolist (hook (cdr deferral-list))
|
||||
(advice-remove hook #',fn)
|
||||
(remove-hook hook #',fn))
|
||||
(setq doom--deferred-packages-alist
|
||||
(delq deferral-list doom--deferred-packages-alist))))))
|
||||
(delq! deferral-list doom--deferred-packages-alist)
|
||||
(unintern ',fn nil)))))
|
||||
(let (forms)
|
||||
(dolist (hook hooks forms)
|
||||
(push (if (string-match-p "-\\(?:functions\\|hook\\)$" (symbol-name hook))
|
||||
|
|
|
@ -4,17 +4,17 @@
|
|||
#+STARTUP: inlineimages
|
||||
|
||||
* Table of Contents :TOC:
|
||||
- [[Description][Description]]
|
||||
- [[Module Flags][Module Flags]]
|
||||
- [[Plugins][Plugins]]
|
||||
- [[Dependencies][Dependencies]]
|
||||
- [[Prerequisites][Prerequisites]]
|
||||
- [[Features][Features]]
|
||||
- [[An IRC Client in Emacs][An IRC Client in Emacs]]
|
||||
- [[Configuration][Configuration]]
|
||||
- [[Pass: the unix password manager][Pass: the unix password manager]]
|
||||
- [[Emacs' auth-source API][Emacs' auth-source API]]
|
||||
- [[Troubleshooting][Troubleshooting]]
|
||||
- [[#description][Description]]
|
||||
- [[#module-flags][Module Flags]]
|
||||
- [[#plugins][Plugins]]
|
||||
- [[#dependencies][Dependencies]]
|
||||
- [[#prerequisites][Prerequisites]]
|
||||
- [[#features][Features]]
|
||||
- [[#an-irc-client-in-emacs][An IRC Client in Emacs]]
|
||||
- [[#configuration][Configuration]]
|
||||
- [[#pass-the-unix-password-manager][Pass: the unix password manager]]
|
||||
- [[#emacs-auth-source-api][Emacs' auth-source API]]
|
||||
- [[#troubleshooting][Troubleshooting]]
|
||||
|
||||
* Description
|
||||
This module turns adds an IRC client to Emacs with OS notifications.
|
||||
|
|
|
@ -45,5 +45,4 @@
|
|||
(current-buffer))
|
||||
(error (message "Invalid expression")
|
||||
(insert (current-kill 0)))))
|
||||
(t (quickrun-replace-region beg end))))
|
||||
|
||||
((quickrun-replace-region beg end))))
|
||||
|
|
|
@ -12,7 +12,7 @@ It is passed a user and repository name.")
|
|||
:commands magit-file-delete
|
||||
:defer-incrementally (dash f s with-editor git-commit package eieio lv transient)
|
||||
:init
|
||||
(setq magit-auto-revert-mode nil) ; we already use `global-auto-revert-mode'
|
||||
(setq magit-auto-revert-mode nil) ; we do this ourselves
|
||||
;; Must be set early to prevent ~/.emacs.d/transient from being created
|
||||
(setq transient-levels-file (concat doom-etc-dir "transient/levels")
|
||||
transient-values-file (concat doom-etc-dir "transient/values")
|
||||
|
|
|
@ -15,7 +15,7 @@
|
|||
|
||||
|
||||
;;
|
||||
;; Library
|
||||
;;; Library
|
||||
|
||||
(defun +workspace--protected-p (name)
|
||||
(equal name persp-nil-name))
|
||||
|
@ -28,8 +28,7 @@
|
|||
1))
|
||||
|
||||
|
||||
;; --- Predicates -------------------------
|
||||
|
||||
;;; Predicates
|
||||
;;;###autoload
|
||||
(defalias #'+workspace-p #'perspective-p
|
||||
"Return t if OBJ is a perspective hash table.")
|
||||
|
@ -44,8 +43,7 @@
|
|||
"Return non-nil if BUFFER is in WORKSPACE (defaults to current workspace).")
|
||||
|
||||
|
||||
;; --- Getters ----------------------------
|
||||
|
||||
;;; Getters
|
||||
;;;###autoload
|
||||
(defalias #'+workspace-current #'get-current-persp
|
||||
"Return the currently active workspace.")
|
||||
|
@ -97,8 +95,7 @@ PERSP can be a string (name of a workspace) or a workspace (satisfies
|
|||
(cl-remove-if #'persp--buffer-in-persps (buffer-list)))
|
||||
|
||||
|
||||
;; --- Actions ----------------------------
|
||||
|
||||
;;; Actions
|
||||
;;;###autoload
|
||||
(defun +workspace-load (name)
|
||||
"Loads a single workspace (named NAME) into the current session. Can only
|
||||
|
@ -186,7 +183,7 @@ throws an error."
|
|||
|
||||
|
||||
;;
|
||||
;; Commands
|
||||
;;; Commands
|
||||
|
||||
;;;###autoload
|
||||
(defalias '+workspace/restore-last-session #'doom/quickload-session)
|
||||
|
@ -384,7 +381,7 @@ the next."
|
|||
|
||||
|
||||
;;
|
||||
;; Tabs display in minibuffer
|
||||
;;; Tabs display in minibuffer
|
||||
|
||||
(defun +workspace--tabline (&optional names)
|
||||
(let ((names (or names (+workspace-list-names)))
|
||||
|
@ -430,7 +427,7 @@ the next."
|
|||
|
||||
|
||||
;;
|
||||
;; Hooks
|
||||
;;; Hooks
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspaces|delete-associated-workspace (&optional frame)
|
||||
|
@ -516,7 +513,7 @@ This be hooked to `projectile-after-switch-project-hook'."
|
|||
|
||||
|
||||
;;
|
||||
;; Advice
|
||||
;;; Advice
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspaces*autosave-real-buffers (orig-fn &rest args)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue