If the optional attribute TLS is non-nil, the address will be marked as
requiring gopher-over-TLS."
(cond
If the optional attribute TLS is non-nil, the address will be marked as
requiring gopher-over-TLS."
(cond
(defun elpher-gemini-get-link-url (link-line)
"Extract the url portion of LINK-LINE, a gemini map file link line.
(defun elpher-gemini-get-link-url (link-line)
"Extract the url portion of LINK-LINE, a gemini map file link line.
(let ((map (make-sparse-keymap)))
(define-key map (kbd "TAB") 'elpher-next-link)
(define-key map (kbd "<backtab>") 'elpher-prev-link)
(let ((map (make-sparse-keymap)))
(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 "u") 'elpher-back)
(define-key map [mouse-3] 'elpher-back)
(define-key map (kbd "O") 'elpher-root-dir)