diff options
| -rw-r--r-- | bard-elisp/bard-search.el | 50 | ||||
| -rw-r--r-- | bard-emacs-modules/bard-emacs-essentials.el | 2 |
2 files changed, 0 insertions, 52 deletions
diff --git a/bard-elisp/bard-search.el b/bard-elisp/bard-search.el deleted file mode 100644 index 90bf55a..0000000 --- a/bard-elisp/bard-search.el +++ /dev/null @@ -1,50 +0,0 @@ -;; Code provided by Protesilaos Starvou's dotemacs configuration. - -;;;; Outline - -(defun prot-search--get-outline () - "Return alist of outline outline-regexp and positions." - (let* ((outline-regexp (format "^\\(?:%s\\)" (or (bound-and-true-p outline-regexp) "[*\^L]+"))) - (heading-alist (bound-and-true-p outline-heading-alist)) - (level-fun (or (bound-and-true-p outline-level) - (lambda () ;; as in the default from outline.el - (or (cdr (assoc (match-string 0) heading-alist)) - (- (match-end 0) (match-beginning 0)))))) - candidates) - (save-excursion - (goto-char (point-min)) - (while (if (bound-and-true-p outline-search-function) - (funcall outline-search-function) - (re-search-forward outline-regexp nil t)) - (push - (format "%-5s %s" - (line-number-at-pos (point)) - (buffer-substring-no-properties (line-beginning-position) (line-end-position))) - candidates) - (goto-char (1+ (line-end-position))))) - (if candidates - (nreverse candidates) - (user-error "No outline")))) - -(defun prot-search--outline-prompt () - "Prompt for outline among headings retrieved by `prot-search--get-outline'." - (completing-read - "Go to outline: " - (prot-common-completion-table-no-sort 'imenu (prot-search--get-outline)) - nil :require-match)) - -(defvar prot-search-outline-hook nil - "Normal hook to run at the end of `prot-search-outline'.") - -;;;###autoload -(defun prot-search-outline () - "Go to the line of the given outline using completion." - (interactive) - (when-let ((selection (prot-search--outline-prompt)) - (line (string-to-number (car (split-string selection "\t"))))) - (goto-line line) - (run-hooks 'prot-search-outline-hook))) - -;; (define-key global-map (kbd "M-s M-o") #'prot-search-outline) - -(provide 'bard-search) diff --git a/bard-emacs-modules/bard-emacs-essentials.el b/bard-emacs-modules/bard-emacs-essentials.el index ec2e307..ca70aaa 100644 --- a/bard-emacs-modules/bard-emacs-essentials.el +++ b/bard-emacs-modules/bard-emacs-essentials.el @@ -1,5 +1,3 @@ -(require 'bard-search) - ;;; Editing niceties (use-package emacs |