;; Author: Tim Vaughan <tgvaughan@gmail.com>
;; Created: 11 April 2019
-;; Version: 2.0.2
+;; Version: 2.0.3
;; Keywords: comm gopher
;; Homepage: https://github.com/tgvaughan/elpher
;; Package-Requires: ((emacs "26"))
;;; Global constants
;;
-(defconst elpher-version "2.0.2"
+(defconst elpher-version "2.0.3"
"Current version of elpher.")
(defconst elpher-margin-width 6
((gopher ?4) elpher-get-gopher-node elpher-render-download "bin" elpher-binary)
((gopher ?5) elpher-get-gopher-node elpher-render-download "bin" elpher-binary)
((gopher ?7) elpher-get-gopher-query-node elpher-render-index "?" elpher-search)
- ((gopher ?9) elpher-get-gopher-node elpher-render-node-download "bin" elpher-binary)
+ ((gopher ?9) elpher-get-gopher-node elpher-render-download "bin" elpher-binary)
((gopher ?g) elpher-get-gopher-node elpher-render-image "img" elpher-image)
((gopher ?p) elpher-get-gopher-node elpher-render-image "img" elpher-image)
((gopher ?I) elpher-get-gopher-node elpher-render-image "img" elpher-image)
Otherwise, use the system browser via the BROWSE-URL function."
:type '(boolean))
-(defcustom elpher-buttonify-urls-in-directories nil
+(defcustom elpher-buttonify-urls-in-directories t
"If non-nil, turns URLs matched in directories into clickable buttons."
:type '(boolean))
(pcase type
((or '(gopher ?i) 'nil) ;; Information
(elpher-insert-margin)
- (insert (propertize
- (if elpher-buttonify-urls-in-directories
- (elpher-buttonify-urls display-string)
- display-string)
- 'face 'elpher-info)))
+ (let ((propertized-display-string
+ (propertize display-string 'face 'elpher-info)))
+ (insert (if elpher-buttonify-urls-in-directories
+ (elpher-buttonify-urls propertized-display-string)
+ propertized-display-string))))
(`(gopher ,selector-type) ;; Unknown
(elpher-insert-margin (concat (char-to-string selector-type) "?"))
(insert (propertize display-string
'elpher-node node
'action #'elpher-click-link
'follow-link t
- 'help-echo (elpher-node-button-help node))))
+ 'help-echo (elpher-node-button-help node)
+ 'face 'button)))
(buffer-string)))
(defun elpher-render-text (data &optional _mime-type-string)
(define-key map (kbd "TAB") 'elpher-next-link)
(define-key map (kbd "<backtab>") 'elpher-prev-link)
(define-key map (kbd "u") 'elpher-back)
+ (define-key map [mouse-3] 'elpher-back)
(define-key map (kbd "O") 'elpher-root-dir)
(define-key map (kbd "g") 'elpher-go)
(define-key map (kbd "o") 'elpher-go-current)
(kbd "C-") 'elpher-follow-current-link
(kbd "C-t") 'elpher-back
(kbd "u") 'elpher-back
+ [mouse-3] 'elpher-back
(kbd "g") 'elpher-go
(kbd "o") 'elpher-go-current
(kbd "r") 'elpher-redraw
"Keymap for gopher client.")
(define-derived-mode elpher-mode special-mode "elpher"
- "Major mode for elpher, an elisp gopher client.)))))))
+ "Major mode for elpher, an elisp gopher client.
This mode is automatically enabled by the interactive
functions which initialize the gopher client, namely