The Lambda Lab
/
projects
/
elpher.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Cleanup.
[elpher.git]
/
elpher.el
diff --git
a/elpher.el
b/elpher.el
index
0888870
..
9d4088e
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-92,13
+92,13
@@
(lambda (s)
(let ((_xterm-color-render nil))
(xterm-color-filter s)))
(lambda (s)
(let ((_xterm-color-render nil))
(xterm-color-filter s)))
- 'ansi-color-filter-apply)
+
#
'ansi-color-filter-apply)
"A function to filter out ANSI escape sequences.")
(defalias 'elpher-color-apply
(if (fboundp 'xterm-color-filter)
"A function to filter out ANSI escape sequences.")
(defalias 'elpher-color-apply
(if (fboundp 'xterm-color-filter)
- 'xterm-color-filter
- 'ansi-color-apply)
+
#
'xterm-color-filter
+
#
'ansi-color-apply)
"A function to apply ANSI escape sequences.")
;;; Global constants
"A function to apply ANSI escape sequences.")
;;; Global constants
@@
-389,11
+389,6
@@
requiring gopher-over-TLS."
"Create an ADDRESS object corresponding to the given special address symbol TYPE."
type)
"Create an ADDRESS object corresponding to the given special address symbol TYPE."
type)
-(defun elpher-make-start-page ()
- "Create the start page."
- (elpher-make-page "Elpher Start Page"
- (elpher-make-special-address 'start)))
-
(defun elpher-address-to-url (address)
"Get string representation of ADDRESS, or nil if ADDRESS is special."
(if (elpher-address-special-p address)
(defun elpher-address-to-url (address)
"Get string representation of ADDRESS, or nil if ADDRESS is special."
(if (elpher-address-special-p address)
@@
-493,6
+488,11
@@
If no address is defined, returns 0. (This is for compatibility with the URL li
"Create a page with DISPLAY-STRING and ADDRESS."
(list display-string address))
"Create a page with DISPLAY-STRING and ADDRESS."
(list display-string address))
+(defun elpher-make-start-page ()
+ "Create the start page."
+ (elpher-make-page "Elpher Start Page"
+ (elpher-make-special-address 'start)))
+
(defun elpher-page-display-string (page)
"Retrieve the display string corresponding to PAGE."
(elt page 0))
(defun elpher-page-display-string (page)
"Retrieve the display string corresponding to PAGE."
(elt page 0))
@@
-600,7
+600,8
@@
previously-visited pages,unless NO-HISTORY is non-nil."
(unless (eq major-mode 'elpher-mode)
;; avoid resetting buffer-local variables
(elpher-mode))
(unless (eq major-mode 'elpher-mode)
;; avoid resetting buffer-local variables
(elpher-mode))
- (let ((inhibit-read-only t))
+ (let ((inhibit-read-only t)
+ (ansi-color-context nil)) ;; clean ansi interpreter state
(setq-local network-security-level
(default-value 'network-security-level))
(erase-buffer)
(setq-local network-security-level
(default-value 'network-security-level))
(erase-buffer)
@@
-1457,7
+1458,6
@@
treatment that a separate function is warranted."
(insert (propertize display-string 'face 'elpher-unknown)))
(insert "\n"))))
(insert (propertize display-string 'face 'elpher-unknown)))
(insert "\n"))))
-;; buffer-local
(defvar elpher--gemini-page-headings nil
"List of headings on the page.")
(defvar elpher--gemini-page-headings nil
"List of headings on the page.")