circular list for ELPAs

[Emanuel Berg <incal@dataswamp.org>]

Circular list for the package manager.

Pop until you drop! B)

Maybe it can be defined in a oneliner to get rid of the unused
binding but when I do that it just ...

If anything can start anew, then everything must continue!

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

(require 'cl-lib)
(require 'close)
(require 'package)
(require 'scroll)

(cl-pushnew '("melpa" . "https://melpa.org/packages/")
            package-archives :test #'equal)

(let*((pack-status '("" "available" "built-in"  "dependency"
                        "incompat"  "installed" "new") )
      (_ (setf (cdr (last pack-status)) pack-status)) )

  (defun pack-filter (&optional status)
    (interactive)
    (unless status (setq status (pop pack-status)))
    (package-menu-filter-by-status status)
    (message (if (string-empty-p status)
                 "all"
               status) ))

  (declare-function pack-filter nil) )

(defun elpa (&optional fetch)
  (interactive "P")
  (if fetch
      (list-packages)
    (let ((buf (get-buffer "*Packages*"))) ; hardcoded in package.el 28 times
      (if (and buf (bufferp buf))
          (pop-to-buffer buf)
        (list-packages) ))))

(defalias 'melpa #'elpa)

(let ((kmap package-menu-mode-map))
  (set-close-key        kmap)
  (set-pane-scroll-keys kmap)
  (set-vertical-keys    kmap)
  (define-key kmap "\t" #'pack-filter) )

-- 
underground experts united
https://dataswamp.org/~incal