chubin/cheat.sh
1
1
Fork 0
mirror of https://github.com/chubin/cheat.sh.git synced 2024-12-02 07:50:04 +03:00
Code Issues Projects Releases Wiki Activity

Sync with cheat-sh.el v1.6

Browse Source
This commit is contained in:
Dave Pearson 2017-06-16 11:43:31 +01:00
parent bbfdd512ba
commit 372fa20a78
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
share/emacs.txt
View File

@ -2,7 +2,7 @@
;; Copyright 2017 by Dave Pearson <davep@davep.org>
;; Author: Dave Pearson <davep@davep.org>
;; Version: 1.5
;; Version: 1.6
;; Keywords: docs, help
;; URL: https://github.com/davep/cheat-sh.el
;; Package-Requires: ((emacs "24"))
@ -22,6 +22,11 @@
"Interact with cheat.sh."
:group 'docs)
(defface cheat-sh-section
'((t :inherit (bold font-lock-doc-face)))
"Face used on sections in a cheat-sh output window."
:group 'cheat-sh)
(defface cheat-sh-caption
'((t :inherit (bold font-lock-function-name-face)))
"Face used on captions in the cheat-sh output window."
@ -82,13 +87,18 @@ cheat-sh.el to get the item to look up. It provides completion
based of the sheets that are available on cheat.sh."
(completing-read prompt (cheat-sh-sheet-list-cache)))
(defun cheat-sh-decorate-results (buffer)
"Decorate BUFFER with properties to highlight results."
(defun cheat-sh-decorate-all (buffer regexp face)
"Decorate BUFFER, finding REGEXP and setting face to FACE."
(with-current-buffer buffer
(save-excursion
(setf (point) (point-min))
(while (search-forward-regexp "^\\(#.*\\)$" nil t)
(replace-match (propertize (match-string 1) 'font-lock-face 'cheat-sh-caption) nil t)))))
(while (search-forward-regexp regexp nil t)
(replace-match (propertize (match-string 1) 'font-lock-face face) nil t)))))
(defun cheat-sh-decorate-results (buffer)
"Decorate BUFFER with properties to highlight results."
(cheat-sh-decorate-all buffer "^\\(\\[.*\\]\\)$" 'cheat-sh-section)
(cheat-sh-decorate-all buffer "^\\(#.*\\)$" 'cheat-sh-caption))
;;;###autoload
(defun cheat-sh (thing)