about summary refs log tree commit diff
path: root/emacs/.emacs.d/wpc/vterm-mgt.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2020-09-01T09·17+0100
committerWilliam Carroll <wpcarro@gmail.com>2020-09-01T09·17+0100
commitfb5ec068ddd50f6bce41c7a0bad45673db787940 (patch)
tree19b4ff96983c08f451e7da5f58c95b8f6090ec84 /emacs/.emacs.d/wpc/vterm-mgt.el
parenta638e15c0dd14a25e6f032b08de5ee1575677497 (diff)
More Elisp linting
This should cover most of the remaining linting errors. After this, I expect
fewer than ten linting errors.
Diffstat (limited to 'emacs/.emacs.d/wpc/vterm-mgt.el')
-rw-r--r--emacs/.emacs.d/wpc/vterm-mgt.el30
1 files changed, 15 insertions, 15 deletions
diff --git a/emacs/.emacs.d/wpc/vterm-mgt.el b/emacs/.emacs.d/wpc/vterm-mgt.el
index 6d83f2b9a898..e33a13429599 100644
--- a/emacs/.emacs.d/wpc/vterm-mgt.el
+++ b/emacs/.emacs.d/wpc/vterm-mgt.el
@@ -31,7 +31,7 @@
 ;; Configuration
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defconst vterm-mgt--instances (cycle/new)
+(defconst vterm-mgt--instances (cycle-new)
   "A cycle tracking all of my vterm instances.")
 
 (defcustom vterm-mgt-scroll-on-focus nil
@@ -50,8 +50,8 @@
 This function should be called from a buffer running vterm."
   (interactive)
   (vterm-mgt--assert-vterm-buffer)
-  (cycle/focus-item (current-buffer) vterm-mgt--instances)
-  (switch-to-buffer (cycle/next vterm-mgt--instances))
+  (cycle-focus-item (current-buffer) vterm-mgt--instances)
+  (switch-to-buffer (cycle-next vterm-mgt--instances))
   (when vterm-mgt-scroll-on-focus (end-of-buffer)))
 
 (defun vterm-mgt-prev ()
@@ -59,8 +59,8 @@ This function should be called from a buffer running vterm."
 This function should be called from a buffer running vterm."
   (interactive)
   (vterm-mgt--assert-vterm-buffer)
-  (cycle/focus-item (current-buffer) vterm-mgt--instances)
-  (switch-to-buffer (cycle/prev vterm-mgt--instances))
+  (cycle-focus-item (current-buffer) vterm-mgt--instances)
+  (switch-to-buffer (cycle-prev vterm-mgt--instances))
   (when vterm-mgt-scroll-on-focus (end-of-buffer)))
 
 (defun vterm-mgt-instantiate ()
@@ -74,8 +74,8 @@ If however you must call `vterm', if you'd like to cycle through vterm
   collect any untracked vterm instances."
   (interactive)
   (let ((buffer (vterm)))
-    (cycle/append buffer vterm-mgt--instances)
-    (cycle/focus-item buffer vterm-mgt--instances)))
+    (cycle-append buffer vterm-mgt--instances)
+    (cycle-focus-item buffer vterm-mgt--instances)))
 
 (defun vterm-mgt-kill ()
   "Kill the current buffer and remove it from `vterm-mgt--instances'.
@@ -83,23 +83,23 @@ This function should be called from a buffer running vterm."
   (interactive)
   (vterm-mgt--assert-vterm-buffer)
   (let ((buffer (current-buffer)))
-    (cycle/remove buffer vterm-mgt--instances)
+    (cycle-remove buffer vterm-mgt--instances)
     (kill-buffer buffer)))
 
 (defun vterm-mgt-find-or-create ()
   "Call `switch-to-buffer' on a focused vterm instance if there is one.
 
-When `cycle/focused?' returns nil, focus the first item in the cycle.  When
+When `cycle-focused?' returns nil, focus the first item in the cycle.  When
 there are no items in the cycle, call `vterm-mgt-instantiate' to create a vterm
 instance."
   (interactive)
-  (if (cycle/empty? vterm-mgt--instances)
+  (if (cycle-empty? vterm-mgt--instances)
       (vterm-mgt-instantiate)
-    (if (cycle/focused? vterm-mgt--instances)
-        (switch-to-buffer (cycle/current vterm-mgt--instances))
+    (if (cycle-focused? vterm-mgt--instances)
+        (switch-to-buffer (cycle-current vterm-mgt--instances))
       (progn
-        (cycle/jump 0 vterm-mgt--instances)
-        (switch-to-buffer (cycle/current vterm-mgt--instances))))))
+        (cycle-jump 0 vterm-mgt--instances)
+        (switch-to-buffer (cycle-current vterm-mgt--instances))))))
 
 (defun vterm-mgt-rename-buffer (name)
   "Rename the current buffer ensuring that its NAME is wrapped in *vterm*<...>.
@@ -118,7 +118,7 @@ If for whatever reason, the state of `vterm-mgt--instances' is corrupted and
   (setq vterm-mgt--instances
         (->> (buffer-list)
              (-filter #'vterm-mgt--instance?)
-             cycle/from-list)))
+             cycle-from-list)))
 
 (provide 'vterm-mgt)
 ;;; vterm-mgt.el ends here