-
Notifications
You must be signed in to change notification settings - Fork 7
/
pophint-line.el
50 lines (42 loc) · 1.9 KB
/
pophint-line.el
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
(require 'rx)
(require 'pophint)
;;;###autoload
(defcustom pophint-line:enable t
"Whether to enable feature."
:type 'boolean
:group 'pophint)
(defvar pophint-line--regexp-one-line
(rx-to-string `(and bol (* (syntax whitespace)) (group (+ not-newline)))))
(pophint:defsource :name "one-line"
:description "One line."
:source '((shown . "Line")
(regexp . pophint-line--regexp-one-line)))
(pophint:defsource
:name "comment-line"
:description "Part of `font-lock-comment-face' in line"
:source '((shown . "Cmt")
(method . (lambda ()
(cl-loop while (re-search-forward "\\s<+" nil t)
for startpt = (progn (skip-syntax-forward " ") (point))
for endpt = (when (and (eq (get-text-property (point) 'face) 'font-lock-comment-face)
(re-search-forward "\\s-*\\(\\s>+\\|$\\)"))
(match-beginning 0))
for value = (when endpt (buffer-substring-no-properties startpt endpt))
if (and (stringp value)
(not (string= value "")))
return `(:startpt ,startpt :endpt ,endpt :value ,value))))))
;;;###autoload
(defun pophint-line:provision (activate)
(interactive)
(if activate
(progn
(add-to-list 'pophint:global-sources 'pophint:source-one-line t)
(add-to-list 'pophint:global-sources 'pophint:source-comment-line t))
(setq pophint:global-sources
(remove 'pophint:source-one-line
(remove 'pophint:source-comment-line pophint:global-sources)))))
;;;###autoload
(with-eval-after-load 'pophint
(when pophint-line:enable (pophint-line:provision t)))
(provide 'pophint-line)
;;; pophint-line.el ends here