52 lines
1.6 KiB
EmacsLisp
52 lines
1.6 KiB
EmacsLisp
;;; Buffers --- All the functions related to buffer management
|
|
;;; Commentary:
|
|
;;; Code:
|
|
|
|
(defvar *favorite-buffer* nil)
|
|
|
|
(defun switch-to-previous-buffer ()
|
|
"Switch to previously open buffer.
|
|
Repeated invocations toggle between the two most recently open buffers."
|
|
(interactive)
|
|
(switch-to-buffer (other-buffer (current-buffer) 1)))
|
|
|
|
(defun buffer-match-p (buf)
|
|
"If BUF name match the favorite buffer regexp."
|
|
(string-match-p *favorite-buffer* (buffer-name buf)))
|
|
|
|
(defun switch-and-bury (buf)
|
|
"Switch to given BUF and bury it as well."
|
|
(interactive)
|
|
(bury-buffer buf)
|
|
(switch-to-buffer buf))
|
|
|
|
(defun switch-to-buffer-by-regex ()
|
|
"Switch to buffer which the name match the *favorite-buffer* regex."
|
|
(interactive)
|
|
(if *favorite-buffer*
|
|
(switch-and-bury
|
|
(car (remove-if-not #'buffer-match-p (buffer-list))))
|
|
(eshell)))
|
|
|
|
(defun switch-to-favorite-buffer ()
|
|
"Switch to *favorite-buffer* buffer with is variable assigned to each mode.
|
|
|
|
For exampe in clojure mode it would the name of repl buffer. The *favorite-buffer* value should be regex matching to the buffer name"
|
|
(interactive)
|
|
(if *favorite-buffer*
|
|
(if (string-match *favorite-buffer* (buffer-name))
|
|
(switch-to-previous-buffer)
|
|
(switch-to-buffer-by-regex))
|
|
(if (string= (buffer-name) "*eshell*")
|
|
(switch-to-previous-buffer)
|
|
(eshell))))
|
|
(defun reset-favorite-buffer-value ()
|
|
(message "reseting favorite buffer value...")
|
|
(message *favorite-buffer*)
|
|
(setq *favorite-buffer* nil))
|
|
|
|
(add-hook 'change-major-mode-hook 'reset-favorite-buffer-value)
|
|
|
|
(provide 'extensions/editor/buffers)
|
|
;;; buffers.el ends here
|