From 8ac72f040a1e5237931781ac38c62c53c938d2de Mon Sep 17 00:00:00 2001 From: TEC Date: Sat, 23 Apr 2022 16:19:02 +0800 Subject: [PATCH] A test --- .../async-proc-management.el | 32 +++++++++---------- misc/config-publishing/org-pdf.sh | 4 +++ 2 files changed, 20 insertions(+), 16 deletions(-) diff --git a/misc/config-publishing/async-proc-management.el b/misc/config-publishing/async-proc-management.el index 238c11d..7e893d2 100644 --- a/misc/config-publishing/async-proc-management.el +++ b/misc/config-publishing/async-proc-management.el @@ -85,22 +85,22 @@ ;;; Status info (defun apm-process-status-table () - (message (concat - "\033[1m[%4.1fs] \033[0;1m" - (mapconcat (lambda (dep) (plist-get dep :padded-name)) apm-dependent-processes " ") - "\n\033[0m " - (mapconcat (lambda (dep) - (apply #'format (format "%%s%%-%ds" (length (plist-get dep :padded-name))) - (pcase (process-status (plist-get dep :proc)) - ('run '("\033[0;33m" "Active")) - ('exit '("\033[0;32m" "Complete")) - (_ '("\033[0;31m" (format "Unrecognised status %s" - (process-status (plist-get dep :proc)))))))) - apm-dependent-processes - " ") - "\033[0;90m") - 'unmodified - (- (float-time) start-time))) + ;; (message (concat + ;; "\033[1m[%4.1fs] \033[0;1m" + ;; (mapconcat (lambda (dep) (plist-get dep :padded-name)) apm-dependent-processes " ") + ;; "\n\033[0m " + ;; (mapconcat (lambda (dep) + ;; (apply #'format (format "%%s%%-%ds" (length (plist-get dep :padded-name))) + ;; (pcase (process-status (plist-get dep :proc)) + ;; ('run '("\033[0;33m" "Active")) + ;; ('exit '("\033[0;32m" "Complete")) + ;; (_ '("\033[0;31m" (format "Unrecognised status %s" + ;; (process-status (plist-get dep :proc)))))))) + ;; apm-dependent-processes + ;; " ") + ;; "\033[0;90m") + ;; (- (float-time) start-time)) + ) ;;; Await completion diff --git a/misc/config-publishing/org-pdf.sh b/misc/config-publishing/org-pdf.sh index 9b39579..adc1f1e 100755 --- a/misc/config-publishing/org-pdf.sh +++ b/misc/config-publishing/org-pdf.sh @@ -20,6 +20,10 @@ (advice-add 'pdf-tools-install :around #'ignore) (advice-add 'pdf-info-features :around #'ignore) +(setq org-link-parameters + (delq (assoc "pdf" org-link-parameters) + org-link-parameters)) + ;; For some faces (require 'highlight-numbers) (require 'highlight-quoted)