blob: 56544c39fa96a12fa57cf6c211c9ef85064700e5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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)
|
