tweak: stick to recommended version of Ditaa & PlantUML

Author: abougouffa

core/me-builtin.el

@@ -872,7 +872,7 @@ or file path may exist now."
 (use-package ob-ditaa
   :config
   ;; Automatically download the latest version of Ditaa
-  (setopt org-ditaa-jar-path (+github-download-release "stathissideris/ditaa" "ditaa-{{ver}}-standalone.jar")))
+  (setopt org-ditaa-jar-path (+github-download-release "stathissideris/ditaa" "ditaa-{{ver}}-standalone.jar" nil :ver "0.11.0")))
 
 (use-package ol-man
   :after ol

core/me-lib-extra.el

@@ -571,13 +571,14 @@ If PORT or BAUD are nil, use values from `+serial-port' and `+serial-baudrate'."
 ;;;###autoload
 (defun +github-latest-release (repo &optional fallback-release trim-v-prefix)
   "Get the latest release of REPO. Strips the \"v\" at left.
-
-Fallback to FALLBACK-RELEASE when it can't get the last one."
+Fallback to FALLBACK-RELEASE when it can't get the last one.
+When TRIM-V-PREFIX is non-nil, trim the \"v\" prefix from the version."
   (if-let* ((latest
              (ignore-errors
                (with-temp-buffer
-                 (url-insert-file-contents
-                  (format "https://api.github.com/repos/%s/releases/latest" repo))
+                 (+shutup!
+                  (url-insert-file-contents
+                   (format "https://api.github.com/repos/%s/releases/latest" repo)))
                  (json-parse-buffer :object-type 'plist)))))
       (let ((ver (car (last (split-string (plist-get latest :html_url) "/")))))
         (if trim-v-prefix
@@ -606,7 +607,7 @@ downloaded with it's original file name to `+github-download-dir'"
       (if (and (not ok-if-already-exists) (file-exists-p out-file))
           (+log! "File %S already exist" out-file)
         (mkdir (file-name-directory out-file) t)
-        (url-copy-file url out-file ok-if-already-exists))
+        (+shutup! (url-copy-file url out-file ok-if-already-exists)))
       out-file)))
 
 

core/me-lib.el

@@ -214,7 +214,8 @@ If NO-MESSAGE-LOG is non-nil, do not print any message to *Messages* buffer."
   "Suppress new messages temporarily while evaluating BODY.
 This inhebits both the echo area and the `*Messages*' buffer."
   (if (not minemacs-verbose-p)
-      `(let ((message-log-max nil))
+      `(let ((message-log-max nil)
+             (inhibit-message t))
         (with-temp-message (or (current-message) "") ,@body))
     `(progn ,@body)))
 

modules/on-demand/me-plantuml.el

@@ -38,7 +38,7 @@
       (setopt plantuml-default-exec-mode 'executable)
     ;; Automatically download the latest version of PlantUML
     (setopt plantuml-default-exec-mode 'jar
-            plantuml-jar-path (+github-download-release "plantuml/plantuml" "plantuml-{{ver}}.jar")))
+            plantuml-jar-path (+github-download-release "plantuml/plantuml" "plantuml-{{ver}}.jar" nil :ver "1.2024.7")))
 
   ;; Add support for `capf'
   (defun +plantuml-mode-setup ()