-;;; elpher.el --- elisp gopher client
+;;; elpher.el --- Full-featured gopher client.
+
+;; Copyright (C) 2019 Tim Vaughan
+
+;; Author: Tim Vaughan <tgvaughan@gmail.com>
+;; Created: 11 April 2019
+;; Version: 1.0.0
+;; Keywords: comm gopher
+;; Homepage: https://github.com/tgvaughan/elpher
+;; Package-Requires: ((emacs "25"))
+
+;; This file is not part of GNU Emacs.
+
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this file. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
-;; An elisp gopher client.
+;; Elpher is a tool for exploring "gopherspace" using GNU Emacs.
;;; Code:
+(provide 'elpher)
+
;;; Global constants
;;
'identity
(list "i\tfake\tfake\t1"
"i--------------------------------------------\tfake\tfake\t1"
- "i Elpher Gopher Client \tfake\tfake\t1"
+ "i Elpher Gopher Client \tfake\tfake\t1"
(format "i version %s\tfake\tfake\t1" elpher-version)
"i--------------------------------------------\tfake\tfake\t1"
"i\tfake\tfake\t1"
Otherwise, use the system browser via the BROWSE-URL function."
:type '(boolean))
+(defcustom elpher-cache-images nil
+ "If non-nil, cache images in memory in the same way as other content."
+ :type '(boolean))
+
;;; Model
;;
(defun elpher-get-selector (address after)
"Retrieve selector specified by ADDRESS, then execute AFTER.
-The result is stored as a string in the variable elpher-selector-string."
+The result is stored as a string in the variable ‘elpher-selector-string’."
(setq elpher-selector-string "")
(make-network-process
:name "elpher-process"
(insert-image content))
(setq cursor-type nil)
(elpher-restore-pos))
- (progn
- (elpher-with-clean-buffer
- (insert "LOADING IMAGE..."))
- (elpher-get-selector address
- (lambda (proc event)
- (unless (string-prefix-p "deleted" event)
- (let ((image (create-image
- (encode-coding-string elpher-selector-string
- 'no-conversion)
- nil t)))
- (elpher-with-clean-buffer
- (insert-image image))
- (setq cursor-type nil)
- (elpher-restore-pos)
- (elpher-set-node-content elpher-current-node
- image)))))))))
+ (if (display-images-p)
+ (progn
+ (elpher-with-clean-buffer
+ (insert "LOADING IMAGE..."))
+ (elpher-get-selector address
+ (lambda (proc event)
+ (unless (string-prefix-p "deleted" event)
+ (let ((image (create-image
+ (encode-coding-string elpher-selector-string
+ 'no-conversion)
+ nil t)))
+ (elpher-with-clean-buffer
+ (insert-image image))
+ (setq cursor-type nil)
+ (elpher-restore-pos)
+ (if elpher-cache-images
+ (elpher-set-node-content elpher-current-node
+ image)))))))
+ (elpher-get-node-download)))))
;; Search retrieval
(let ((node (button-get button 'elpher-node)))
(if node
(elpher-visit-node (button-get button 'elpher-node)
- #'elpher-get-node-download)
+ #'elpher-get-node-download)
(message "Can only download gopher links, not general URLs.")))
(message "No link selected."))))