chubin/cheat.sh
1
1
Fork 0
mirror of https://github.com/chubin/cheat.sh.git synced 2024-11-23 19:43:33 +03:00
Code Issues Projects Releases Wiki Activity

Sync with cheat-sh.el v1.7

Browse Source
This commit is contained in:
Dave Pearson 2017-06-28 09:27:09 +01:00
parent 7cc710184d
commit 5a727b9f6e
1 changed files with 20 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
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.6
;; Version: 1.7
;; Keywords: docs, help
;; URL: https://github.com/davep/cheat-sh.el
;; Package-Requires: ((emacs "24"))
@ -18,6 +18,8 @@
;;; Code:
(require 'url-vars)
(defgroup cheat-sh nil
"Interact with cheat.sh."
:group 'docs)
@ -53,12 +55,13 @@ text.")
(defun cheat-sh-get (thing)
"Get THING from cheat.sh."
(with-current-buffer
(let ((url-request-extra-headers `(("User-Agent" . ,cheat-sh-user-agent))))
(url-retrieve-synchronously (format cheat-sh-url (url-hexify-string thing)) t t))
(setf (point) (point-min))
(when (search-forward-regexp "^$" nil t)
(buffer-substring (point) (point-max)))))
(let* ((url-request-extra-headers `(("User-Agent" . ,cheat-sh-user-agent)))
(buffer (url-retrieve-synchronously (format cheat-sh-url (url-hexify-string thing)) t t)))
(when buffer
(with-current-buffer buffer
(setf (point) (point-min))
(when (search-forward-regexp "^$" nil t)
(buffer-substring (point) (point-max)))))))
(defvar cheat-sh-sheet-list nil
"List of all available sheets.")
@ -75,9 +78,10 @@ refreshed after `cheat-sh-list-timeout' seconds."
(> (- (time-to-seconds) cheat-sh-sheet-list-acquired) cheat-sh-list-timeout))
(setq cheat-sh-sheet-list nil))
(or cheat-sh-sheet-list
(progn
(setq cheat-sh-sheet-list-acquired (time-to-seconds))
(setq cheat-sh-sheet-list (split-string (cheat-sh-get ":list") "\n")))))
(let ((list (cheat-sh-get ":list")))
(when list
(setq cheat-sh-sheet-list-acquired (time-to-seconds))
(setq cheat-sh-sheet-list (split-string list "\n"))))))
(defun cheat-sh-read (prompt)
"Read input from the user, showing PROMPT to prompt them.
@ -97,8 +101,12 @@ based of the sheets that are available on cheat.sh."
(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))
;; "[Search section]"
(cheat-sh-decorate-all buffer "^\\(\\[.*\\]\\)$" 'cheat-sh-section)
;; "# Result caption"
(cheat-sh-decorate-all buffer "^\\(#.*\\)$" 'cheat-sh-caption)
;; "cheat-sh help caption:"
(cheat-sh-decorate-all buffer "^\\([^[:space:]].*:\\)$" 'cheat-sh-caption))
;;;###autoload
(defun cheat-sh (thing)