Minor tweaks across the board

modules/ui/workspaces/autoload/workspaces.el

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

modules/ui/workspaces/config.el

@@ -154,7 +154,7 @@ Uses `+workspaces-main' to determine the name of the main workspace."
             ("e" counsel-projectile-switch-project-action-edit-dir-locals "edit project dir-locals")
             ("v" counsel-projectile-switch-project-action-vc "open project in vc-dir / magit / monky")
             ("s" (lambda (project) (let ((projectile-switch-project-action (lambda () (call-interactively #'+ivy/project-search))))
-                                     (counsel-projectile-switch-project-by-name project))) "search project")
+                                (counsel-projectile-switch-project-by-name project))) "search project")
             ("xs" counsel-projectile-switch-project-action-run-shell "invoke shell from project root")
             ("xe" counsel-projectile-switch-project-action-run-eshell "invoke eshell from project root")
             ("xt" counsel-projectile-switch-project-action-run-term "invoke term from project root")