help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

switch-to-buffer-regexp.el + helper/interface file


From: Emanuel Berg
Subject: switch-to-buffer-regexp.el + helper/interface file
Date: Sat, 19 Dec 2020 04:03:33 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux)

Got this old idea working, finally! Works great :) And it
didn't take me very long, either... 2 files. See comments
for instructions.

;;; -*- lexical-binding: t -*-
;;;
;;; this file:
;;;   http://user.it.uu.se/~embe8573/emacs-init/switch-to-buffer-regexp.el
;;;   https://dataswamp.org/~incal/emacs-init/switch-to-buffer-regexp.el

(require 'cl-lib)

(defun buffer-names ()
  (mapcar #'buffer-name (buffer-list)) )

(defun switch-to-buffer-regexp (buf-re)
  (let*((ori-buf  (buffer-name (current-buffer)))
        (hits     (cl-remove-if-not
                   (lambda (b) (string-match buf-re b)) (buffer-names)) ))
    (when hits
      (let ((new-hits (cl-remove ori-buf hits)))
        (when new-hits
          (when (string-match buf-re ori-buf)
            (bury-buffer ori-buf) )
          (switch-to-buffer (car new-hits)) )))))

;; try it!
;; (require 'gnus)
;; (dotimes (i 4) (gnus-post-news 'post "")) ; create 4 posts

(global-set-key "\C-cu" (lambda () (interactive) (switch-to-buffer-regexp 
"\*unsent posting\*.*")))
(global-set-key "\C-ck" (lambda () (interactive) (switch-to-buffer-regexp 
".*\.txt")))
;; hit again to iterate

(provide 'switch-to-buffer-regexp)

;;; -*- lexical-binding: t -*-
;;;
;;; this file:
;;;   http://user.it.uu.se/~embe8573/emacs-init/switch-to-buffer.el
;;;   https://dataswamp.org/~incal/emacs-init/switch-to-buffer.el
;;;
;;; bind these and similar to one-button keys, e.g. from the buffer-menu

(require 'switch-to-buffer-regexp)

(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-summary-buffer ()
  (interactive)
  (switch-to-buffer-regexp "\*Summary.*\*") )

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

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

(provide 'switch-to-buffer)

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal




reply via email to

[Prev in Thread] Current Thread [Next in Thread]