;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/switch-to-buffer.el

(require 'switch-to-buffer-regexp)

(defun switch-to-article-buffer ()
  (interactive)
  (switch-to-buffer-regexp "\*Article\*") )

(defun switch-to-compilation-buffer ()
  (interactive)
  (switch-to-buffer-regexp "\*compilation\*") )

(defun switch-to-help-buffer ()
  (interactive)
  (switch-to-buffer-regexp "\*Help\*") )

(defun switch-to-info-buffer ()
  (interactive)
  (switch-to-buffer-regexp "\*info\*") )

(defun switch-to-manpage-buffer ()
  (interactive)
  (switch-to-buffer-regexp "\*Man .*\*") )

(defun switch-to-slime-buffer ()
  (interactive)
  (switch-to-buffer-regexp "\*slime-repl sbcl\*") )

(defun switch-to-summary-buffer ()
  (interactive)
  (switch-to-buffer-regexp "\*Summary.*\*") )

(defun switch-to-unsent-buffer ()
  (interactive)
  (switch-to-buffer-regexp "\*unsent .*\*") )

(provide 'switch-to-buffer)