[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
circular list for ELPAs
From: |
Emanuel Berg |
Subject: |
circular list for ELPAs |
Date: |
Mon, 14 Nov 2022 17:05:28 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) |
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
- circular list for ELPAs,
Emanuel Berg <=