tec/emacs-config
tec
/
emacs-config
1
0
Fork 0
Code Issues 4 Pull Requests Releases Activity

A test

This commit is contained in:
TEC 2022-04-23 16:19:02 +08:00
parent fe5c6de5d2
commit 8ac72f040a
Signed by: tec
GPG Key ID: 779591AFDB81F06C
2 changed files with 20 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
misc/config-publishing/async-proc-management.el
View File

@ -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

4
misc/config-publishing/org-pdf.sh
View File

@ -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)