|
@@ -37,8 +37,17 @@
|
|
|
|
|
|
(defun org-man-open (path _)
|
|
|
"Visit the manpage on PATH.
|
|
|
-PATH should be a topic that can be thrown at the man command."
|
|
|
- (funcall org-man-command path))
|
|
|
+PATH should be a topic that can be thrown at the man command.
|
|
|
+If PATH contains extra ::STRING which will use `occur' to search
|
|
|
+matched strings in man buffer."
|
|
|
+ (string-match "\\(.*?\\)\\(?:::\\(.*\\)\\)?$" path)
|
|
|
+ (let* ((command (match-string 1 path))
|
|
|
+ (search (match-string 2 path)))
|
|
|
+ (funcall org-man-command command)
|
|
|
+ (when search
|
|
|
+ (with-current-buffer (concat "*Man " command "*")
|
|
|
+ (goto-char (point-min))
|
|
|
+ (search-forward search)))))
|
|
|
|
|
|
(defun org-man-store-link ()
|
|
|
"Store a link to a README file."
|