diff options
| author | John Turner <jturner.usa@gmail.com> | 2022-07-03 23:47:39 -0400 |
|---|---|---|
| committer | John Turner <jturner.usa@gmail.com> | 2022-07-03 23:47:39 -0400 |
| commit | fa40958eae28183d397fb502d7caa27c3c8fcc62 (patch) | |
| tree | 3aec54f84a76b7760316831a338eaf57471bb39f | |
| parent | c284f5b2c4e4ed72a2a060cb91353408f5a2b416 (diff) | |
| download | emacs.d-fa40958eae28183d397fb502d7caa27c3c8fcc62.tar.gz | |
restored man wrapper functions into the new lisp directory
| -rw-r--r-- | lisp/man-wrapper/man-wrapper.el | 36 | ||||
| -rw-r--r-- | load-local-lisp.el | 5 |
2 files changed, 40 insertions, 1 deletions
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) diff --git a/load-local-lisp.el b/load-local-lisp.el index 0e1fba1..28ed25d 100644 --- a/load-local-lisp.el +++ b/load-local-lisp.el @@ -1,4 +1,7 @@ (let ((local-lisp-directory (file-name-concat user-emacs-directory "lisp"))) - (add-to-list 'load-path (file-name-concat local-lisp-directory "backup-before-save"))) + (add-to-list 'load-path (file-name-concat local-lisp-directory "backup-before-save")) + (add-to-list 'load-path (file-name-concat local-lisp-directory "man-wrapper"))) (require 'backup-before-save) +(require 'man-wrapper) + |