emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix ui/workspaces autoloads & tests

Browse source
This commit is contained in:
Henrik Lissner 2019-04-25 22:19:41 -04:00
parent 1911f44e66
commit eb62dde5d3
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

14
modules/ui/workspaces/autoload/evil.el
View file

@ -1,38 +1,38 @@
;;; ui/workspaces/autoload/evil.el -*- lexical-binding: t; -*- ;;; ui/workspaces/autoload/evil.el -*- lexical-binding: t; -*-
;;;###if (featurep! :editor evil) ;;;###if (featurep! :editor evil)
;;;###autoload (autoload '+workspace:save "feature/workspaces/autoload/evil" nil t) ;;;###autoload (autoload '+workspace:save "ui/workspaces/autoload/evil" nil t)
(evil-define-command +workspace:save (&optional name) (evil-define-command +workspace:save (&optional name)
"Ex wrapper around `+workspace/save-session'." "Ex wrapper around `+workspace/save-session'."
(interactive "<a>") (+workspace/save name)) (interactive "<a>") (+workspace/save name))
;;;###autoload (autoload '+workspace:load "feature/workspaces/autoload/evil" nil t) ;;;###autoload (autoload '+workspace:load "ui/workspaces/autoload/evil" nil t)
(evil-define-command +workspace:load (&optional name) (evil-define-command +workspace:load (&optional name)
"Ex wrapper around `+workspace/load-session'." "Ex wrapper around `+workspace/load-session'."
(interactive "<a>") (+workspace/load name)) (interactive "<a>") (+workspace/load name))
;;;###autoload (autoload '+workspace:new "feature/workspaces/autoload/evil" nil t) ;;;###autoload (autoload '+workspace:new "ui/workspaces/autoload/evil" nil t)
(evil-define-command +workspace:new (bang name) (evil-define-command +workspace:new (bang name)
"Ex wrapper around `+workspace/new'. If BANG, clone the current workspace." "Ex wrapper around `+workspace/new'. If BANG, clone the current workspace."
(interactive "<!><a>") (+workspace/new name bang)) (interactive "<!><a>") (+workspace/new name bang))
;;;###autoload (autoload '+workspace:rename "feature/workspaces/autoload/evil" nil t) ;;;###autoload (autoload '+workspace:rename "ui/workspaces/autoload/evil" nil t)
(evil-define-command +workspace:rename (new-name) (evil-define-command +workspace:rename (new-name)
"Ex wrapper around `+workspace/rename'." "Ex wrapper around `+workspace/rename'."
(interactive "<a>") (+workspace/rename new-name)) (interactive "<a>") (+workspace/rename new-name))
;;;###autoload (autoload '+workspace:delete "feature/workspaces/autoload/evil" nil t) ;;;###autoload (autoload '+workspace:delete "ui/workspaces/autoload/evil" nil t)
(evil-define-command +workspace:delete () (evil-define-command +workspace:delete ()
"Ex wrapper around `+workspace/delete'." "Ex wrapper around `+workspace/delete'."
(interactive) (+workspace/delete (+workspace-current-name))) (interactive) (+workspace/delete (+workspace-current-name)))
;;;###autoload (autoload '+workspace:switch-next "feature/workspaces/autoload/evil" nil t) ;;;###autoload (autoload '+workspace:switch-next "ui/workspaces/autoload/evil" nil t)
(evil-define-command +workspace:switch-next (&optional count) (evil-define-command +workspace:switch-next (&optional count)
"Switch to next workspace. If COUNT, switch to COUNT-th workspace." "Switch to next workspace. If COUNT, switch to COUNT-th workspace."
(interactive "<c>") (interactive "<c>")
(if count (+workspace/switch-to count) (+workspace/cycle +1))) (if count (+workspace/switch-to count) (+workspace/cycle +1)))
;;;###autoload (autoload '+workspace:switch-previous "feature/workspaces/autoload/evil" nil t) ;;;###autoload (autoload '+workspace:switch-previous "ui/workspaces/autoload/evil" nil t)
(evil-define-command +workspace:switch-previous (&optional count) (evil-define-command +workspace:switch-previous (&optional count)
"Switch to previous workspace. If COUNT, switch to COUNT-th workspace." "Switch to previous workspace. If COUNT, switch to COUNT-th workspace."
(interactive "<c>") (interactive "<c>")

1
modules/ui/workspaces/config.el
View file

@ -193,4 +193,3 @@ Uses `+workspaces-main' to determine the name of the main workspace."
(make-indirect-buffer bb nbn t)))) (make-indirect-buffer bb nbn t))))
(setq +workspaces--indirect-buffers-to-restore nil)) (setq +workspaces--indirect-buffers-to-restore nil))
(add-hook 'persp-after-load-state-functions #'+workspaces|reload-indirect-buffers)) (add-hook 'persp-after-load-state-functions #'+workspaces|reload-indirect-buffers))

2
modules/ui/workspaces/test/test-workspaces.el
View file

@ -13,7 +13,7 @@
(before-all (before-all
(delete-other-windows) (delete-other-windows)
(require! :feature workspaces) (require! :ui workspaces)
(require 'persp-mode)) (require 'persp-mode))
(before-each (before-each