Skip to content

Instantly share code, notes, and snippets.

@jmercouris

jmercouris/buffer.lisp

Created November 25, 2017 16:21
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jmercouris/70cd8754e8a0e3495b4c517dd9be51e2 to your computer and use it in GitHub Desktop.
Save jmercouris/70cd8754e8a0e3495b4c517dd9be51e2 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
buffer.lisp
(defun switch-buffer-next ()
(let ((active-buffer-index (position *active-buffer* *buffers* :test #'equalp)))
(if (< (+ active-buffer-index 1) (length *buffers*))
(set-visible-active-buffer (nth (+ active-buffer-index 1) *buffers*))
(set-visible-active-buffer (nth 0 *buffers*)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment