From fa40958eae28183d397fb502d7caa27c3c8fcc62 Mon Sep 17 00:00:00 2001 From: John Turner Date: Sun, 3 Jul 2022 23:47:39 -0400 Subject: restored man wrapper functions into the new lisp directory --- lisp/man-wrapper/man-wrapper.el | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 lisp/man-wrapper/man-wrapper.el (limited to 'lisp/man-wrapper/man-wrapper.el') diff --git a/lisp/man-wrapper/man-wrapper.el b/lisp/man-wrapper/man-wrapper.el new file mode 100644 index 0000000..56544c3 --- /dev/null +++ b/lisp/man-wrapper/man-wrapper.el @@ -0,0 +1,36 @@ +(defun man-wrapper-find-pages () + (let* ((manpath (getenv "MANPATH")) + (directories (split-string manpath ":" t)) + (that-exist (seq-filter 'file-exists-p directories)) + (files (mapcar (lambda (d) + (directory-files-recursively d ".*" nil)) + that-exist)) + (flattened (flatten-list files)) + (pages (mapcar 'file-name-nondirectory flattened)) + (without-second-ext (mapcar (lambda (p) + (let ((extension (file-name-extension p))) + (if (string-match-p "^[0-9+]$" extension) + p + (file-name-sans-extension p)))) + pages))) + without-second-ext)) + +(defun man-wrapper-locate-page (page) + (with-temp-buffer + (let ((exit-code (call-process "man" nil (current-buffer) nil "--where" page))) + (when exit-code + (let* ((output (buffer-string)) + (trimmed (string-trim-right output "\n"))) + trimmed))))) + +(defun man-wrapper (orig &rest args) + (interactive) + (let* ((arg (if args + (nth 0 args) + (completing-read "Select page: " (man-wrapper-find-pages)))) + (page (man-wrapper-locate-page arg))) + (funcall orig page))) + +(advice-add 'man :around 'man-wrapper) + +(provide 'man-wrapper) -- cgit v1.2.3