Add command outdated

Author: jcs090218

cmds/outdated.js

@@ -0,0 +1,37 @@
+/**
+ * Copyright (C) 2022 Jen-Chieh Shen
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3, or (at your option)
+ * any later version.
+ *
+ * This program 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
+ * along with GNU Emacs; see the file COPYING.  If not, write to the
+ * Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+ * Boston, MA 02110-1301, USA.
+ */
+
+"use strict";
+
+const util = require("../src/util");
+
+exports.command = "outdated";
+exports.desc = "show all outdated dependencies";
+exports.builder = {
+  global: {
+    description: 'list all outdated dependencies default to `~/.emacs.d/`',
+    alias: 'g',
+    requiresArg: false,
+    type: 'boolean',
+  },
+};
+
+exports.handler = async ({ global, depth }) => {
+  await util.e_call('outdated' , util.def_flag(global, '-g'));
+};

lisp/_prepare.el

@@ -15,6 +15,11 @@
         package-archives nil             ; Leave it to custom use
         package-archive-priorities nil))
 
+(defmacro eask-mute (&rest body)
+  "Execute BODY without message."
+  (declare (indent 0) (debug t))
+  `(let ((inhibit-message t) message-log-max) ,@body))
+
 ;;
 ;;; Package
 
@@ -87,7 +92,7 @@ the `eask-start' execution.")
   (let* ((script-el (concat script ".el"))
          (lisp-dir (file-name-directory eask--script))
          (script-file (expand-file-name script-el lisp-dir)))
-    (if (file-exists-p script-file) (load-file script-file)
+    (if (file-exists-p script-file) (eask-mute (load-file script-file))
       (error "Scripting missing %s..." script-file))))
 
 ;;
@@ -262,6 +267,11 @@ Eask file in the workspace."
 
 (eask-load "./extern/package-build")
 
+(defun eask-guess-package-name ()
+  "Return the possible package name."
+  (or (eask-package-get :name)
+      (file-name-nondirectory (file-name-sans-extension eask-package-file))))
+
 (defun eask-package-files ()
   "Return package files in workspace."
   (if-let ((files (mapcar (lambda (elm) (expand-file-name (car elm) default-directory))

lisp/autoloads.el

@@ -14,9 +14,6 @@
             (file-name-directory (nth 1 (member "-scriptload" command-line-args)))))
 
 (eask-start
-  (package-generate-autoloads
-   (or (eask-package-get :name)
-       (file-name-nondirectory (file-name-sans-extension eask-package-file)))
-   default-directory))
+  (package-generate-autoloads (eask-guess-package-name) default-directory))
 
 ;;; autoloads.el ends here

lisp/list-all.el

@@ -23,10 +23,8 @@
 
 (eask-start
   (eask-pkg-init)
-  (let* ((pkg-list (reverse (mapcar #'car package-archive-contents)))
-         (eask-list-package-name-width (+ (eask-seq-max-str pkg-list) 1)))
-    (dolist (name pkg-list)
-      (eask-print-pkg name 0 (or (eask-depth) 999) package-archive-contents)))
+  (let ((pkg-list (reverse (mapcar #'car package-archive-contents))))
+    (eask--list pkg-list package-archive-contents))
   (message "")
   (message " Total of %s packages available" (length package-archive-contents)))
 

lisp/list.el

@@ -51,11 +51,15 @@
     (mapc (lambda (elm) (setq result (max result (length (format "%s" elm))))) sequence)
     result))
 
+(defun eask--list (list pkg-alist &optional depth)
+  "List packages."
+  (let ((eask-list-package-name-width (+ (eask-seq-max-str list) 1)))
+    (dolist (name list)
+      (eask-print-pkg name 0 (or depth (eask-depth) 999) pkg-alist))))
+
 (eask-start
   (eask-pkg-init)
-  (let ((eask-list-package-name-width (+ (eask-seq-max-str package-activated-list) 1)))
-    (dolist (name package-activated-list)
-      (eask-print-pkg name 0 (or (eask-depth) 999) package-alist)))
+  (eask--list package-activated-list package-alist)
   (message "")
   (message " Total of %s packages installed" (length package-activated-list)))
 

lisp/outdated.el

@@ -0,0 +1,34 @@
+;;; outdated.el --- Show all outdated dependencies  -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;;
+;; Command use to show all outdated dependencies,
+;;
+;;   $ eask outdated
+;;
+;;
+;;  Action options:
+;;
+;;    [-g]     change default workspace to `~/.emacs.d'
+;;
+
+;;; Code:
+
+(load-file (expand-file-name
+            "_prepare.el"
+            (file-name-directory (nth 1 (member "-scriptload" command-line-args)))))
+
+(eask-load "upgrade")
+(eask-load "list")
+
+(eask-start
+  (eask-pkg-init)
+  (if-let* ((upgrades (eask-package--upgrades))
+            (pkg-list (reverse (mapcar #'package-desc-name upgrades)))
+            ;; Remove current developing packages
+            (pkg-list (remove (intern (eask-guess-package-name)) pkg-list)))
+      (eask--list pkg-list package-alist 0)
+    (message "")
+    (message " No outdated dependencies")))
+
+;;; outdated.el ends here

lisp/pkg-file.el

@@ -16,8 +16,7 @@
 (eask-start
   (eask-call "install")  ; XXX maybe try to avoid this?
 
-  (let* ((name (or (eask-package-get :name)
-                   (file-name-nondirectory (file-name-sans-extension eask-package-file))))
+  (let* ((name (eask-guess-package-name))
          (dir (file-name-directory (locate-library name)))
          (pkg-file (concat name "-pkg.el"))
          (gen-filename (concat dir pkg-file)))