circular list for ELPAs

circular list for ELPAs

[Emanuel Berg]

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

Re: circular list for ELPAs

[John Haman]

Emanuel Berg <incal@dataswamp.org> writes:

> Circular list for the package manager.
>
> Pop until you drop! B)
> ...

What does this do? What is the outcome?

--
Dr. John Haman
Bethesda, MD

Re: circular list for ELPAs

[Emanuel Berg]

John Haman wrote:

>> Circular list for the package manager.
>>
>> Pop until you drop! B) [...]
>
> What does this do? What is the outcome?

It depends how many times you hit TAB ...

It shows packages based on the package status, the statuses being

  (nothing, which hear means show all)
  available
  built-in
  dependency
  incompat
  installed
  new

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