Also here's a emacs lisp snippet for window switching that I never managed to publish but I just can't use emacs without it. With it I press super+left and super+right to cycle windows such that if I'm on a non-asterisk buffer, it cycles only through such kind of buffer (and scratch), but if I'm on an asterisk* buffer (except scratch), it cycles only through asterisk buffers, skipping some bad buffers. And super+up goes to a non-asterisk buffer, and super+down goes to an asterisk buffer:

https://github.com/dlight/dotemacs/blob/master/bindings.el#L...

This is brittle-looking but I didn't know how to test if a buffer is special other than checking the buffer name (I'm sure there's a better way). Anyway I kept looking if emacs already had this, but apparently not

Maybe someone will think it is useful so:

    (defun keys (a)
      (when a
        (global-set-key (read-kbd-macro (nth 0 a)) (nth 1 a))
        (keys (cddr a))))


    (keys '(
            "<s-left>" my-previous-buffer
            "<s-right>" my-next-buffer
            "<s-up>" next-regular-buffer
            "<s-down>" previous-star-buffer
    ))

    (defun switch-to-previous-buffer ()
      (interactive)
      (switch-to-buffer (other-buffer)))

    (defun matching-buffer ()
      ;(string-match "^\\*.*\\*$" (buffer-name)))
      (string-match "^\\*.*$" (buffer-name)))

    (defun my-next-buffer ()
      (interactive)
      (if (matching-buffer)
          (next-star-buffer)
        (next-regular-buffer)))

    (defun my-previous-buffer ()
      (interactive)
      (if (matching-buffer)
          (previous-star-buffer)
        (previous-regular-buffer)))

    (defun next-regular-buffer ()
      (interactive)
      (next-buffer)
      (if (matching-buffer)
          (next-regular-buffer)))

    (defun next-regular-buffer-or-scratch ()
      (interactive)
      (next-buffer)
      (if (and (matching-buffer)
          (not (equal "*scratch*" (buffer-name))))
      (next-regular-buffer-or-scratch)))

    (defun previous-regular-buffer ()
      (interactive)
      (previous-buffer)
      (if (matching-buffer)
          (previous-regular-buffer)))

    (defun bad-buffer (a)
      (member a '("*Backtrace*"
                  "*Completions*"
                  "*Messages*"
                  "*Help*"
                  "*Egg:Select Action*")))

    (defun next-star-buffer ()
      (interactive)
      (next-buffer)
      (if (or (not (matching-buffer))
          (bad-buffer (buffer-name)))
      (next-star-buffer)))

    (defun previous-star-buffer ()
      (interactive)
      (previous-buffer)
      (if (or (not (matching-buffer))
              (bad-buffer (buffer-name)))
          (previous-star-buffer)))