aboutsummaryrefslogtreecommitdiff
path: root/.emacs.d/lisp/my/my-pacman.el
diff options
context:
space:
mode:
Diffstat (limited to '.emacs.d/lisp/my/my-pacman.el')
-rw-r--r--.emacs.d/lisp/my/my-pacman.el46
1 files changed, 0 insertions, 46 deletions
diff --git a/.emacs.d/lisp/my/my-pacman.el b/.emacs.d/lisp/my/my-pacman.el
deleted file mode 100644
index 01cbfdd..0000000
--- a/.emacs.d/lisp/my/my-pacman.el
+++ /dev/null
@@ -1,46 +0,0 @@
-;;; my-pacman.el -- pacman client -*- lexical-binding: t -*-
-
-;; Copyright (C) 2023 Free Software Foundation.
-
-;; Author: Yuchen Pei <id@ypei.org>
-;; Package-Requires: ((emacs "28.2"))
-
-;; This file is part of dotfiles.
-
-;; dotfiles is free software: you can redistribute it and/or modify it under
-;; the terms of the GNU Affero General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; dotfiles 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 Affero General
-;; Public License for more details.
-
-;; You should have received a copy of the GNU Affero General Public
-;; License along with dotfiles. If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; pacman client.
-
-;;; Code:
-
-;;; a pacman client
-(defun my-grok-pacman (package)
- (ignore-errors (kill-buffer "*pacman*"))
- (if (= 0
- (call-process-shell-command
- (concat "pacman -Si " package) nil "*pacman*"))
- (my-process-pacman-info
- (my-parse-colon-separated-output "*pacman*"))
- (error (format "Failed to find package %s!" package))))
-
-(defun my-process-pacman-info (info)
- (list (cons "Description" (alist-get "Description" info nil nil 'string=))
- (cons "Website" (alist-get "URL" info nil nil 'string=))
- (cons "License" (alist-get "Licenses" info nil nil 'string=))
- (cons "Pacman-package-name" (alist-get "Name" info nil nil 'string=))))
-
-(provide 'my-pacman)
-;;; my-pacman.el ends here