nixos-configs/common/home-manager/emacs/xe-tools.el

14 lines
391 B
EmacsLisp
Raw Normal View History

(defun xe/count-buffers (&optional display-anyway)
"Display or return the number of buffers."
(interactive)
(let ((buf-count (length (buffer-list))))
(if (or (interactive-p) display-anyway)
(message "%d buffers in this Emacs" buf-count)) buf-count))
(defun xe/look-of-disapproval ()
"Just in case we need this"
(interactive)
(insert "ಠ_ಠ"))
(provide 'xe-tools)