2020-11-03 01:23:46 +00:00
|
|
|
;;; pcmpl-rpm.el --- functions for dealing with rpm completions -*- lexical-binding: t -*-
|
2000-06-27 10:55:46 +00:00
|
|
|
|
2024-01-02 01:47:10 +00:00
|
|
|
;; Copyright (C) 1999-2024 Free Software Foundation, Inc.
|
2000-06-27 10:55:46 +00:00
|
|
|
|
2010-08-29 16:17:13 +00:00
|
|
|
;; Package: pcomplete
|
|
|
|
|
|
2000-06-27 10:55:46 +00:00
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
|
2008-05-06 08:06:51 +00:00
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
2000-06-27 10:55:46 +00:00
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2008-05-06 08:06:51 +00:00
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
|
;; (at your option) any later version.
|
2000-06-27 10:55:46 +00:00
|
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
2017-09-13 22:52:52 +00:00
|
|
|
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
2000-06-27 10:55:46 +00:00
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
2022-09-08 09:09:42 +00:00
|
|
|
;; These functions provide completion rules for the `rpm' command and
|
|
|
|
|
;; related tools.
|
2000-06-27 10:55:46 +00:00
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
|
|
(require 'pcomplete)
|
|
|
|
|
|
2012-06-22 07:01:32 +00:00
|
|
|
(defgroup pcmpl-rpm nil
|
|
|
|
|
"Options for rpm completion."
|
|
|
|
|
:group 'pcomplete
|
|
|
|
|
:prefix "pcmpl-rpm-")
|
|
|
|
|
|
|
|
|
|
;; rpm -qa can be slow. Adding --nodigest --nosignature is MUCH faster.
|
|
|
|
|
(defcustom pcmpl-rpm-query-options
|
|
|
|
|
(let (opts)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(when (ignore-errors (call-process "rpm" nil t nil "--help"))
|
|
|
|
|
(if (search-backward "--nodigest " nil 'move)
|
|
|
|
|
(setq opts '("--nodigest")))
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(if (search-forward "--nosignature " nil t)
|
|
|
|
|
(push "--nosignature" opts))))
|
|
|
|
|
opts)
|
2012-06-22 16:00:34 +00:00
|
|
|
"String, or list of strings, with extra options for an rpm query command."
|
2012-08-15 16:29:11 +00:00
|
|
|
:version "24.3"
|
2012-06-22 16:00:34 +00:00
|
|
|
:type '(choice (const :tag "No options" nil)
|
|
|
|
|
(string :tag "Single option")
|
2020-11-03 01:23:46 +00:00
|
|
|
(repeat :tag "List of options" string)))
|
2012-06-22 07:01:32 +00:00
|
|
|
|
2012-06-22 07:38:26 +00:00
|
|
|
(defcustom pcmpl-rpm-cache t
|
|
|
|
|
"Whether to cache the list of installed packages."
|
2012-08-15 16:29:11 +00:00
|
|
|
:version "24.3"
|
2020-11-03 01:23:46 +00:00
|
|
|
:type 'boolean)
|
2012-06-22 07:38:26 +00:00
|
|
|
|
|
|
|
|
(defconst pcmpl-rpm-cache-stamp-file "/var/lib/rpm/Packages"
|
|
|
|
|
"File used to check that the list of installed packages is up-to-date.")
|
|
|
|
|
|
|
|
|
|
(defvar pcmpl-rpm-cache-time nil
|
|
|
|
|
"Time at which the list of installed packages was updated.")
|
|
|
|
|
|
|
|
|
|
(defvar pcmpl-rpm-packages nil
|
|
|
|
|
"List of installed packages.")
|
|
|
|
|
|
2000-06-27 10:55:46 +00:00
|
|
|
;; Functions:
|
|
|
|
|
|
2012-06-22 07:01:32 +00:00
|
|
|
(defun pcmpl-rpm-packages ()
|
|
|
|
|
"Return a list of all installed rpm packages."
|
2012-06-22 07:38:26 +00:00
|
|
|
(if (and pcmpl-rpm-cache
|
|
|
|
|
pcmpl-rpm-cache-time
|
file-attributes cleanup
Mostly, this replaces magic-number calls like (nth 4 A) with
more-informative calls like (file-attribute-access-time A).
It also fixes some documentation and minor timestamp coding
issues that I noticed while looking into this.
* doc/lispref/files.texi (File Attributes):
* lisp/files.el (file-attribute-size)
(file-attribute-inode-number, file-attribute-device-number):
* src/dired.c (Fdirectory_files_and_attributes)
(Ffile_attributes):
Mention which attributes must be integers, or nonnegative integers,
as opposed to merely being numbers. Remove no-longer-correct
talk about representing large integers as conses of integers.
* doc/lispref/files.texi (Magic File Names):
* doc/misc/gnus.texi (Low-level interface to the spam-stat dictionary):
* lisp/autorevert.el (auto-revert-find-file-function)
(auto-revert-tail-mode, auto-revert-handler):
* lisp/auth-source.el (auth-source-netrc-parse):
* lisp/cedet/ede/files.el (ede--inode-for-dir):
* lisp/cedet/semantic/db-file.el (object-write):
* lisp/cedet/semantic/db-mode.el (semanticdb-kill-hook):
* lisp/cedet/semantic/db.el (semanticdb-needs-refresh-p)
(semanticdb-synchronize):
* lisp/cedet/srecode/table.el (srecode-mode-table-new):
* lisp/desktop.el (desktop-save, desktop-read):
* lisp/dired-aux.el (dired-file-set-difference)
(dired-do-chxxx, dired-do-chmod, dired-copy-file-recursive)
(dired-create-files):
* lisp/dired.el (dired-directory-changed-p, dired-readin):
* lisp/dos-w32.el (w32-direct-print-region-helper):
* lisp/emacs-lisp/autoload.el (autoload-generate-file-autoloads)
(autoload-find-destination, update-directory-autoloads):
* lisp/emacs-lisp/shadow.el (load-path-shadows-same-file-or-nonexistent):
* lisp/epg.el (epg--start, epg-wait-for-completion):
* lisp/eshell/em-ls.el (eshell-ls-filetype-p)
(eshell-ls-applicable, eshell-ls-size-string)
(eshell-ls-file, eshell-ls-dir, eshell-ls-files)
(eshell-ls-entries):
* lisp/eshell/em-pred.el (eshell-predicate-alist)
(eshell-pred-file-type, eshell-pred-file-links)
(eshell-pred-file-size):
* lisp/eshell/em-unix.el (eshell-shuffle-files, eshell/cat)
(eshell-du-sum-directory, eshell/du):
* lisp/eshell/esh-util.el (eshell-read-passwd)
(eshell-read-hosts):
* lisp/files.el (remote-file-name-inhibit-cache)
(find-file-noselect, insert-file-1, dir-locals-find-file)
(dir-locals-read-from-dir, backup-buffer)
(file-ownership-preserved-p, copy-directory)
(read-file-modes):
* lisp/find-lisp.el (find-lisp-format):
* lisp/gnus/gnus-agent.el (gnus-agent-unfetch-articles)
(gnus-agent-read-agentview, gnus-agent-expire-group-1)
(gnus-agent-request-article, gnus-agent-regenerate-group)
(gnus-agent-update-files-total-fetched-for)
(gnus-agent-update-view-total-fetched-for):
* lisp/gnus/gnus-cache.el (gnus-cache-read-active)
(gnus-cache-update-file-total-fetched-for)
(gnus-cache-update-overview-total-fetched-for):
* lisp/gnus/gnus-cloud.el (gnus-cloud-file-new-p):
* lisp/gnus/gnus-score.el (gnus-score-score-files):
* lisp/gnus/gnus-start.el (gnus-save-newsrc-file)
(gnus-master-read-slave-newsrc):
* lisp/gnus/gnus-sum.el (gnus-summary-import-article):
* lisp/gnus/gnus-util.el (gnus-file-newer-than)
(gnus-cache-file-contents):
* lisp/gnus/mail-source.el (mail-source-delete-old-incoming)
(mail-source-callback, mail-source-movemail):
* lisp/gnus/nneething.el (nneething-create-mapping)
(nneething-make-head):
* lisp/gnus/nnfolder.el (nnfolder-read-folder):
* lisp/gnus/nnheader.el (nnheader-file-size)
(nnheader-insert-nov-file):
* lisp/gnus/nnmail.el (nnmail-activate):
* lisp/gnus/nnmaildir.el (nnmaildir--group-maxnum)
(nnmaildir--new-number, nnmaildir--update-nov)
(nnmaildir--scan, nnmaildir-request-scan)
(nnmaildir-request-update-info)
(nnmaildir-request-expire-articles):
* lisp/gnus/nnmh.el (nnmh-request-list-1)
(nnmh-request-expire-articles, nnmh-update-gnus-unreads):
* lisp/gnus/nnml.el (nnml-request-expire-articles):
* lisp/gnus/spam-stat.el (spam-stat-save, spam-stat-load)
(spam-stat-process-directory, spam-stat-test-directory):
* lisp/ido.el (ido-directory-too-big-p)
(ido-file-name-all-completions):
* lisp/image-dired.el (image-dired-get-thumbnail-image)
(image-dired-create-thumb-1):
* lisp/info.el (info-insert-file-contents):
* lisp/ls-lisp.el (ls-lisp-insert-directory)
(ls-lisp-handle-switches, ls-lisp-classify-file)
(ls-lisp-format):
* lisp/mail/blessmail.el:
* lisp/mail/feedmail.el (feedmail-default-date-generator)
(feedmail-default-message-id-generator):
* lisp/mail/mailabbrev.el (mail-abbrevs-sync-aliases)
(mail-abbrevs-setup):
* lisp/mail/mspools.el (mspools-size-folder):
* lisp/mail/rmail.el (rmail-insert-inbox-text):
* lisp/mail/sendmail.el (sendmail-sync-aliases):
* lisp/mh-e/mh-alias.el (mh-alias-tstamp):
* lisp/net/ange-ftp.el (ange-ftp-parse-netrc)
(ange-ftp-write-region, ange-ftp-file-newer-than-file-p)
(ange-ftp-cf1):
* lisp/net/eudcb-mab.el (eudc-mab-query-internal):
* lisp/net/eww.el (eww-read-bookmarks):
* lisp/net/netrc.el (netrc-parse):
* lisp/net/newst-backend.el (newsticker--image-get):
* lisp/nxml/rng-loc.el (rng-get-parsed-schema-locating-file):
* lisp/obsolete/fast-lock.el (fast-lock-save-cache):
* lisp/obsolete/vc-arch.el (vc-arch-state)
(vc-arch-diff3-rej-p):
* lisp/org/ob-eval.el (org-babel--shell-command-on-region):
* lisp/org/org-attach.el (org-attach-commit):
* lisp/org/org-macro.el (org-macro-initialize-templates):
* lisp/org/org.el (org-babel-load-file)
(org-file-newer-than-p):
* lisp/org/ox-html.el (org-html-format-spec):
* lisp/org/ox-publish.el (org-publish-find-date)
(org-publish-cache-ctime-of-src):
* lisp/pcmpl-gnu.el (pcomplete/tar):
* lisp/pcmpl-rpm.el (pcmpl-rpm-packages):
* lisp/play/cookie1.el (cookie-snarf):
* lisp/progmodes/cmacexp.el (c-macro-expansion):
* lisp/ps-bdf.el (bdf-file-mod-time):
* lisp/server.el (server-ensure-safe-dir):
* lisp/simple.el (shell-command-on-region):
* lisp/speedbar.el (speedbar-item-info-file-helper)
(speedbar-check-obj-this-line):
* lisp/thumbs.el (thumbs-cleanup-thumbsdir):
* lisp/time.el (display-time-mail-check-directory)
(display-time-file-nonempty-p):
* lisp/url/url-cache.el (url-is-cached):
* lisp/url/url-file.el (url-file-asynch-callback):
* lisp/vc/diff-mode.el (diff-delete-if-empty):
* lisp/vc/pcvs-info.el (cvs-fileinfo-from-entries):
* lisp/vc/vc-bzr.el (vc-bzr-state-heuristic):
* lisp/vc/vc-cvs.el (vc-cvs-checkout-model)
(vc-cvs-state-heuristic, vc-cvs-merge-news)
(vc-cvs-retrieve-tag, vc-cvs-parse-status, vc-cvs-parse-entry):
* lisp/vc/vc-hg.el (vc-hg--slurp-hgignore-1)
(vc-hg--ignore-patterns-valid-p)
(vc-hg--cached-dirstate-search, vc-hg-state-fast):
* lisp/vc/vc-hooks.el (vc-after-save):
* lisp/vc/vc-rcs.el (vc-rcs-workfile-is-newer):
* lisp/vc/vc-svn.el (vc-svn-merge-news, vc-svn-parse-status):
* lisp/vc/vc.el (vc-checkout, vc-checkin, vc-revert-file):
* lisp/xdg.el (xdg-mime-apps):
Prefer (file-attribute-size A) to (nth 7 A), and similarly
for other file attributes accessors.
* doc/lispref/files.texi (File Attributes):
* doc/lispref/intro.texi (Version Info):
* doc/lispref/os.texi (Idle Timers):
* lisp/erc/erc.el (erc-string-to-emacs-time):
* lisp/files.el (file-attribute-access-time)
(file-attribute-modification-time)
(file-attribute-status-change-time):
* lisp/net/tramp-compat.el:
(tramp-compat-file-attribute-modification-time)
(tramp-compat-file-attribute-size):
* src/buffer.c (syms_of_buffer):
* src/editfns.c (Fget_internal_run_time):
* src/fileio.c (Fvisited_file_modtime)
(Fset_visited_file_modtime):
* src/keyboard.c (Fcurrent_idle_time):
* src/process.c (Fprocess_attributes):
Defer implementation details about timestamp format to the
section that talks about timestamp format, to make it easier
to change the documentation later if timestamp formats are
extended.
* lisp/gnus/gnus-util.el (gnus-file-newer-than):
* lisp/speedbar.el (speedbar-check-obj-this-line):
* lisp/vc/vc-rcs.el (vc-rcs-workfile-is-newer):
Prefer time-less-p to doing it by hand.
* lisp/ls-lisp.el (ls-lisp-format): Inode numbers are no longer conses.
* lisp/vc/vc-bzr.el (vc-bzr-state-heuristic):
Use eql, not eq, to compare integers that might be bignums.
* lisp/org/ox-publish.el (org-publish-cache-ctime-of-src):
Prefer float-time to doing time arithmetic by hand.
2018-09-24 01:30:46 +00:00
|
|
|
(let ((mtime (file-attribute-modification-time
|
|
|
|
|
(file-attributes pcmpl-rpm-cache-stamp-file))))
|
2012-06-22 07:38:26 +00:00
|
|
|
(and mtime (not (time-less-p pcmpl-rpm-cache-time mtime)))))
|
|
|
|
|
pcmpl-rpm-packages
|
2012-06-23 01:02:17 +00:00
|
|
|
(message "Getting list of installed rpms...")
|
2012-06-22 07:38:26 +00:00
|
|
|
(setq pcmpl-rpm-cache-time (current-time)
|
|
|
|
|
pcmpl-rpm-packages
|
2020-11-03 01:23:46 +00:00
|
|
|
(split-string (apply #'pcomplete-process-result "rpm"
|
2012-06-22 07:38:26 +00:00
|
|
|
(append '("-q" "-a")
|
2012-06-22 16:00:34 +00:00
|
|
|
(if (stringp pcmpl-rpm-query-options)
|
|
|
|
|
(list pcmpl-rpm-query-options)
|
2012-06-23 01:02:17 +00:00
|
|
|
pcmpl-rpm-query-options)))))
|
|
|
|
|
(message "Getting list of installed rpms...done")
|
|
|
|
|
pcmpl-rpm-packages))
|
2000-06-27 10:55:46 +00:00
|
|
|
|
2012-06-22 07:01:32 +00:00
|
|
|
;; Should this use pcmpl-rpm-query-options?
|
|
|
|
|
;; I don't think it would speed it up at all (?).
|
2000-06-27 10:55:46 +00:00
|
|
|
(defun pcmpl-rpm-all-query (flag)
|
|
|
|
|
(message "Querying all packages with `%s'..." flag)
|
|
|
|
|
(let ((pkgs (pcmpl-rpm-packages))
|
|
|
|
|
(provs (list t)))
|
|
|
|
|
(while pkgs
|
|
|
|
|
(nconc provs (split-string
|
|
|
|
|
(pcomplete-process-result
|
|
|
|
|
"rpm" "-q" (car pkgs) flag)))
|
|
|
|
|
(setq pkgs (cdr pkgs)))
|
2018-03-05 16:57:21 +00:00
|
|
|
(pcomplete-uniquify-list (cdr provs))))
|
2000-06-27 10:55:46 +00:00
|
|
|
|
|
|
|
|
(defsubst pcmpl-rpm-files ()
|
|
|
|
|
(pcomplete-dirs-or-entries "\\.rpm\\'"))
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun pcomplete/rpm ()
|
2009-06-23 07:43:17 +00:00
|
|
|
"Completion for the `rpm' command."
|
|
|
|
|
;; Originally taken from the output of `rpm --help' on a Red Hat 6.1 system.
|
2000-06-27 10:55:46 +00:00
|
|
|
(let (mode)
|
|
|
|
|
(while (<= pcomplete-index pcomplete-last)
|
|
|
|
|
(unless mode
|
|
|
|
|
(if (pcomplete-match "^--\\(.*\\)" 0)
|
|
|
|
|
(pcomplete-here*
|
|
|
|
|
'("--addsign"
|
|
|
|
|
"--checksig"
|
|
|
|
|
"--erase"
|
|
|
|
|
"--help"
|
|
|
|
|
"--initdb"
|
|
|
|
|
"--install"
|
|
|
|
|
"--pipe"
|
|
|
|
|
"--querytags"
|
|
|
|
|
"--rebuild"
|
|
|
|
|
"--rebuilddb"
|
|
|
|
|
"--recompile"
|
|
|
|
|
"--resign"
|
|
|
|
|
"--rmsource"
|
|
|
|
|
"--setperms"
|
|
|
|
|
"--setugids"
|
|
|
|
|
"--upgrade"
|
|
|
|
|
"--verify"
|
|
|
|
|
"--version"))
|
|
|
|
|
(pcomplete-opt "vqVyiUebtK")))
|
|
|
|
|
; -b<stage> <spec>
|
|
|
|
|
; -t<stage> <tarball> - build package, where <stage> is one of:
|
|
|
|
|
; p - prep (unpack sources and apply patches)
|
|
|
|
|
; l - list check (do some cursory checks on %files)
|
|
|
|
|
; c - compile (prep and compile)
|
|
|
|
|
; i - install (prep, compile, install)
|
|
|
|
|
; b - binary package (prep, compile, install, package)
|
|
|
|
|
; a - bin/src package (prep, compile, install, package)
|
|
|
|
|
(cond
|
|
|
|
|
((or (eq mode 'query)
|
|
|
|
|
(pcomplete-match "-[^-]*q"))
|
|
|
|
|
(setq mode 'query)
|
|
|
|
|
(if (pcomplete-match "^--\\(.*\\)" 0)
|
|
|
|
|
(progn
|
|
|
|
|
(pcomplete-here*
|
|
|
|
|
'("--changelog"
|
|
|
|
|
"--dbpath"
|
|
|
|
|
"--dump"
|
2012-04-07 18:52:43 +00:00
|
|
|
"--file"
|
2000-06-27 10:55:46 +00:00
|
|
|
"--ftpport" ;nyi for the next four
|
|
|
|
|
"--ftpproxy"
|
|
|
|
|
"--httpport"
|
|
|
|
|
"--httpproxy"
|
|
|
|
|
"--provides"
|
|
|
|
|
"--queryformat"
|
|
|
|
|
"--rcfile"
|
|
|
|
|
"--requires"
|
|
|
|
|
"--root"
|
|
|
|
|
"--scripts"
|
|
|
|
|
"--triggeredby"
|
|
|
|
|
"--whatprovides"
|
|
|
|
|
"--whatrequires"))
|
|
|
|
|
(cond
|
|
|
|
|
((pcomplete-test "--dbpath")
|
|
|
|
|
(pcomplete-here* (pcomplete-dirs)))
|
|
|
|
|
((pcomplete-test "--queryformat")
|
|
|
|
|
(pcomplete-here*))
|
|
|
|
|
((pcomplete-test "--rcfile")
|
|
|
|
|
(pcomplete-here* (pcomplete-entries)))
|
2012-04-07 18:52:43 +00:00
|
|
|
((pcomplete-test "--file")
|
|
|
|
|
(pcomplete-here* (pcomplete-entries)))
|
2000-06-27 10:55:46 +00:00
|
|
|
((pcomplete-test "--root")
|
|
|
|
|
(pcomplete-here* (pcomplete-dirs)))
|
|
|
|
|
((pcomplete-test "--scripts")
|
|
|
|
|
(if (pcomplete-match "^--\\(.*\\)" 0)
|
|
|
|
|
(pcomplete-here* '("--triggers"))))
|
|
|
|
|
((pcomplete-test "--triggeredby")
|
|
|
|
|
(pcomplete-here* (pcmpl-rpm-packages)))
|
|
|
|
|
((pcomplete-test "--whatprovides")
|
|
|
|
|
(pcomplete-here*
|
|
|
|
|
(pcmpl-rpm-all-query "--provides")))
|
|
|
|
|
((pcomplete-test "--whatrequires")
|
|
|
|
|
(pcomplete-here*
|
|
|
|
|
(pcmpl-rpm-all-query "--requires")))))
|
|
|
|
|
(if (pcomplete-match "^-" 0)
|
|
|
|
|
(pcomplete-opt "af.p(pcmpl-rpm-files)ilsdcvR")
|
2008-10-23 22:09:09 +00:00
|
|
|
(if (pcomplete-test "-[^-]*p" 'first 1)
|
2009-06-23 07:43:17 +00:00
|
|
|
(pcomplete-here (pcmpl-rpm-files))
|
2012-04-07 18:52:43 +00:00
|
|
|
(if (pcomplete-test "-[^-]*f" 'first 1)
|
|
|
|
|
(pcomplete-here* (pcomplete-entries))
|
|
|
|
|
(pcomplete-here (pcmpl-rpm-packages)))))))
|
2000-06-27 10:55:46 +00:00
|
|
|
((pcomplete-test "--pipe")
|
|
|
|
|
(pcomplete-here* (funcall pcomplete-command-completion-function)))
|
|
|
|
|
((pcomplete-test "--rmsource")
|
|
|
|
|
(pcomplete-here* (pcomplete-entries))
|
|
|
|
|
(throw 'pcomplete-completions nil))
|
|
|
|
|
((pcomplete-match "\\`--re\\(build\\|compile\\)\\'")
|
|
|
|
|
(pcomplete-here (pcmpl-rpm-files))
|
|
|
|
|
(throw 'pcomplete-completions nil))
|
|
|
|
|
((pcomplete-match "\\`--\\(resign\\|addsign\\)\\'")
|
|
|
|
|
(while (pcomplete-here (pcmpl-rpm-files))))
|
|
|
|
|
((or (eq mode 'checksig)
|
|
|
|
|
(pcomplete-test "--checksig"))
|
|
|
|
|
(setq mode 'checksig)
|
|
|
|
|
(if (pcomplete-match "^--\\(.*\\)" 0)
|
|
|
|
|
(progn
|
|
|
|
|
(pcomplete-here*
|
|
|
|
|
'("--nopgp"
|
|
|
|
|
"--nogpg"
|
|
|
|
|
"--nomd5"
|
|
|
|
|
"--rcfile"))
|
|
|
|
|
(cond
|
|
|
|
|
((pcomplete-test "--rcfile")
|
|
|
|
|
(pcomplete-here* (pcomplete-entries)))))
|
|
|
|
|
(if (pcomplete-match "^-" 0)
|
|
|
|
|
(pcomplete-opt "v")
|
|
|
|
|
(pcomplete-here (pcmpl-rpm-files)))))
|
|
|
|
|
((or (eq mode 'rebuilddb)
|
|
|
|
|
(pcomplete-test "--rebuilddb"))
|
|
|
|
|
(setq mode 'rebuilddb)
|
|
|
|
|
(if (pcomplete-match "^--\\(.*\\)" 0)
|
|
|
|
|
(progn
|
|
|
|
|
(pcomplete-here*
|
|
|
|
|
'("--dbpath"
|
|
|
|
|
"--root"
|
|
|
|
|
"--rcfile"))
|
|
|
|
|
(cond
|
|
|
|
|
((pcomplete-test "--dbpath")
|
|
|
|
|
(pcomplete-here* (pcomplete-dirs)))
|
|
|
|
|
((pcomplete-test "--root")
|
|
|
|
|
(pcomplete-here* (pcomplete-dirs)))
|
|
|
|
|
((pcomplete-test "--rcfile")
|
|
|
|
|
(pcomplete-here* (pcomplete-entries)))))
|
|
|
|
|
(if (pcomplete-match "^-" 0)
|
|
|
|
|
(pcomplete-opt "v")
|
|
|
|
|
(pcomplete-here))))
|
|
|
|
|
((memq mode '(install upgrade))
|
|
|
|
|
(if (pcomplete-match "^--\\(.*\\)" 0)
|
|
|
|
|
(progn
|
|
|
|
|
(pcomplete-here*
|
|
|
|
|
(append
|
|
|
|
|
'("--allfiles"
|
|
|
|
|
"--badreloc"
|
|
|
|
|
"--dbpath"
|
|
|
|
|
"--excludedocs"
|
|
|
|
|
"--excludepath"
|
|
|
|
|
"--force"
|
|
|
|
|
"--hash"
|
|
|
|
|
"--ignorearch"
|
|
|
|
|
"--ignoreos"
|
|
|
|
|
"--ignoresize"
|
|
|
|
|
"--includedocs"
|
|
|
|
|
"--justdb"
|
|
|
|
|
"--nodeps"
|
|
|
|
|
"--noorder"
|
|
|
|
|
"--noscripts"
|
|
|
|
|
"--notriggers")
|
|
|
|
|
(if (eq mode 'upgrade)
|
|
|
|
|
'("--oldpackage"))
|
|
|
|
|
'("--percent"
|
|
|
|
|
"--prefix"
|
|
|
|
|
"--rcfile"
|
|
|
|
|
"--relocate"
|
|
|
|
|
"--replacefiles"
|
|
|
|
|
"--replacepkgs"
|
|
|
|
|
"--root")))
|
|
|
|
|
(cond
|
|
|
|
|
((pcomplete-test "--dbpath")
|
|
|
|
|
(pcomplete-here* (pcomplete-dirs)))
|
|
|
|
|
((pcomplete-test "--relocate")
|
|
|
|
|
(pcomplete-here*))
|
|
|
|
|
((pcomplete-test "--rcfile")
|
|
|
|
|
(pcomplete-here* (pcomplete-entries)))
|
|
|
|
|
((pcomplete-test "--excludepath")
|
|
|
|
|
(pcomplete-here* (pcomplete-entries)))
|
|
|
|
|
((pcomplete-test "--root")
|
|
|
|
|
(pcomplete-here* (pcomplete-dirs)))
|
|
|
|
|
((pcomplete-test "--prefix")
|
|
|
|
|
(pcomplete-here* (pcomplete-dirs)))))
|
|
|
|
|
(if (pcomplete-match "^-" 0)
|
|
|
|
|
(pcomplete-opt "vh")
|
|
|
|
|
(pcomplete-here (pcmpl-rpm-files)))))
|
|
|
|
|
((or (pcomplete-test "--install")
|
|
|
|
|
(pcomplete-match "-[^-]*i"))
|
|
|
|
|
(setq mode 'install))
|
|
|
|
|
((or (pcomplete-test "--upgrade")
|
|
|
|
|
(pcomplete-match "-[^-]*U"))
|
|
|
|
|
(setq mode 'upgrade))
|
|
|
|
|
((or (eq mode 'erase)
|
|
|
|
|
(pcomplete-test "--erase")
|
|
|
|
|
(pcomplete-match "-[^-]*e"))
|
|
|
|
|
(setq mode 'erase)
|
|
|
|
|
(if (pcomplete-match "^--\\(.*\\)" 0)
|
|
|
|
|
(progn
|
|
|
|
|
(pcomplete-here*
|
|
|
|
|
'("--allmatches"
|
|
|
|
|
"--dbpath"
|
|
|
|
|
"--justdb"
|
|
|
|
|
"--nodeps"
|
|
|
|
|
"--noorder"
|
|
|
|
|
"--noscripts"
|
|
|
|
|
"--notriggers"
|
|
|
|
|
"--rcfile"
|
|
|
|
|
"--root"))
|
|
|
|
|
(cond
|
|
|
|
|
((pcomplete-test "--dbpath")
|
|
|
|
|
(pcomplete-here* (pcomplete-dirs)))
|
|
|
|
|
((pcomplete-test "--rcfile")
|
|
|
|
|
(pcomplete-here* (pcomplete-entries)))
|
|
|
|
|
((pcomplete-test "--root")
|
|
|
|
|
(pcomplete-here* (pcomplete-dirs)))))
|
|
|
|
|
(if (pcomplete-match "^-" 0)
|
|
|
|
|
(pcomplete-opt "v")
|
|
|
|
|
(pcomplete-here (pcmpl-rpm-packages)))))
|
|
|
|
|
((or (eq mode 'verify)
|
|
|
|
|
(pcomplete-test "--verify"))
|
|
|
|
|
(setq mode 'verify)
|
|
|
|
|
(if (pcomplete-match "^--\\(.*\\)" 0)
|
|
|
|
|
(progn
|
|
|
|
|
(pcomplete-here*
|
|
|
|
|
'("--dbpath"
|
|
|
|
|
"--nodeps"
|
|
|
|
|
"--nofiles"
|
|
|
|
|
"--nomd5"
|
|
|
|
|
"--rcfile"
|
|
|
|
|
"--root"
|
|
|
|
|
"--triggeredby"
|
|
|
|
|
"--whatprovides"
|
|
|
|
|
"--whatrequires"))
|
|
|
|
|
(cond
|
|
|
|
|
((pcomplete-test "--dbpath")
|
|
|
|
|
(pcomplete-here* (pcomplete-dirs)))
|
|
|
|
|
((pcomplete-test "--rcfile")
|
|
|
|
|
(pcomplete-here* (pcomplete-entries)))
|
|
|
|
|
((pcomplete-test "--root")
|
|
|
|
|
(pcomplete-here* (pcomplete-dirs)))
|
|
|
|
|
((pcomplete-test "--triggeredby")
|
|
|
|
|
(pcomplete-here* (pcmpl-rpm-packages)))
|
|
|
|
|
((pcomplete-test "--whatprovides")
|
|
|
|
|
(pcomplete-here*
|
|
|
|
|
(pcmpl-rpm-all-query "--provides")))
|
|
|
|
|
((pcomplete-test "--whatrequires")
|
|
|
|
|
(pcomplete-here*
|
|
|
|
|
(pcmpl-rpm-all-query "--requires")))))
|
|
|
|
|
(if (pcomplete-match "^-" 0)
|
|
|
|
|
(pcomplete-opt "af.p(pcmpl-rpm-files)v")
|
|
|
|
|
(pcomplete-here (pcmpl-rpm-packages)))))
|
|
|
|
|
((or (memq mode '(build test))
|
|
|
|
|
(pcomplete-match "\\`-[bt]"))
|
|
|
|
|
(setq mode (if (pcomplete-match "\\`-b")
|
|
|
|
|
'build
|
|
|
|
|
'test))
|
|
|
|
|
(if (pcomplete-match "^--\\(.*\\)" 0)
|
|
|
|
|
(progn
|
|
|
|
|
(pcomplete-here*
|
|
|
|
|
'("--buildroot"
|
|
|
|
|
"--clean"
|
|
|
|
|
"--nobuild"
|
|
|
|
|
"--rcfile"
|
|
|
|
|
"--rmsource"
|
|
|
|
|
"--short-circuit"
|
|
|
|
|
"--sign"
|
|
|
|
|
"--target"
|
|
|
|
|
"--timecheck"))
|
|
|
|
|
(cond
|
|
|
|
|
((pcomplete-test "--buildroot")
|
|
|
|
|
(pcomplete-here* (pcomplete-dirs)))
|
|
|
|
|
((pcomplete-test "--rcfile")
|
|
|
|
|
(pcomplete-here* (pcomplete-entries)))
|
|
|
|
|
((pcomplete-test "--timecheck")
|
|
|
|
|
(pcomplete-here*))))
|
|
|
|
|
(if (pcomplete-match "^-" 0)
|
|
|
|
|
(pcomplete-opt "v")
|
|
|
|
|
(pcomplete-here
|
2011-06-15 18:40:00 +00:00
|
|
|
(pcomplete-dirs-or-entries (if (eq mode 'test)
|
|
|
|
|
"\\.tar\\'"
|
|
|
|
|
"\\.spec\\'"))))))
|
2000-06-27 10:55:46 +00:00
|
|
|
(t
|
2001-07-15 19:53:53 +00:00
|
|
|
(error "You must select a mode: -q, -i, -U, --verify, etc"))))))
|
2000-06-27 10:55:46 +00:00
|
|
|
|
2022-09-08 09:09:42 +00:00
|
|
|
;;; DNF
|
|
|
|
|
|
|
|
|
|
(defvar pcmpl-rpm-dnf-cache-file "/var/cache/dnf/packages.db"
|
|
|
|
|
"Location of the DNF cache.")
|
|
|
|
|
|
|
|
|
|
(defun pcmpl-rpm--dnf-packages (status)
|
|
|
|
|
(when (and (file-exists-p pcmpl-rpm-dnf-cache-file)
|
|
|
|
|
(executable-find "sqlite3"))
|
|
|
|
|
(with-temp-message
|
|
|
|
|
"Getting list of packages..."
|
|
|
|
|
(process-lines "sqlite3" "-batch" "-init" "/dev/null"
|
|
|
|
|
pcmpl-rpm-dnf-cache-file
|
|
|
|
|
(pcase-exhaustive status
|
|
|
|
|
('available "select pkg from available")
|
|
|
|
|
('installed "select pkg from installed")
|
|
|
|
|
('not-installed "\
|
|
|
|
|
select pkg from available where pkg not in (select pkg from installed)"))))))
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun pcomplete/dnf ()
|
|
|
|
|
"Completion for the `dnf' command."
|
|
|
|
|
(let ((subcmds (pcomplete-from-help "dnf help"
|
|
|
|
|
:margin "^\\(\\)[a-z-]+ "
|
|
|
|
|
:argument "[a-z-]+")))
|
|
|
|
|
(while (not (member (pcomplete-arg 1) subcmds))
|
|
|
|
|
(pcomplete-here (completion-table-merge
|
|
|
|
|
subcmds
|
|
|
|
|
(pcomplete-from-help "dnf help"))))
|
|
|
|
|
(let ((subcmd (pcomplete-arg 1)))
|
|
|
|
|
(while (pcase subcmd
|
|
|
|
|
((guard (pcomplete-match "\\`-" 0))
|
|
|
|
|
(pcomplete-here
|
|
|
|
|
(pcomplete-from-help `("dnf" "help" ,subcmd))))
|
|
|
|
|
((or "downgrade" "reinstall" "remove")
|
|
|
|
|
(pcomplete-here (pcmpl-rpm--dnf-packages 'installed)))
|
|
|
|
|
((or "install" "mark" "reinstall" "upgrade")
|
|
|
|
|
(pcomplete-here (pcmpl-rpm--dnf-packages 'not-installed)))
|
|
|
|
|
((or "builddep" "changelog" "info" "list" "repoquery" "updateinfo")
|
|
|
|
|
(pcomplete-here (pcmpl-rpm--dnf-packages 'available))))))))
|
|
|
|
|
|
2009-10-31 02:17:41 +00:00
|
|
|
(provide 'pcmpl-rpm)
|
|
|
|
|
|
2000-06-27 10:55:46 +00:00
|
|
|
;;; pcmpl-rpm.el ends here
|