diff options
Diffstat (limited to 'config/man')
| -rw-r--r-- | config/man/config-man-helper-functions.el | 31 | ||||
| -rw-r--r-- | config/man/config-man.el | 5 |
2 files changed, 0 insertions, 36 deletions
diff --git a/config/man/config-man-helper-functions.el b/config/man/config-man-helper-functions.el deleted file mode 100644 index a58ba75..0000000 --- a/config/man/config-man-helper-functions.el +++ /dev/null @@ -1,31 +0,0 @@ -(defun config-man-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 config-man-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 config-man-advice (orig &rest args) - (interactive) - (let ((page (or args (list (completing-read "Select page: " (config-man-pages) nil t))))) - (apply orig page))) - -(advice-add 'man :around 'config-man-advice) diff --git a/config/man/config-man.el b/config/man/config-man.el deleted file mode 100644 index 566420e..0000000 --- a/config/man/config-man.el +++ /dev/null @@ -1,5 +0,0 @@ -(setq Man-notify-method 'pushy) - -(load "config-man-helper-functions") - -(provide 'config-man) |