elopher.el

   1 ;;; elopher.el --- gopher client
   2
   3 ;;; Commentary:
   4
   5 ;; Simple gopher client in elisp.
   6
   7 ;;; Code:
   8
   9 ;; (defvar elopher-mode-map nil "Keymap for gopher client.")
  10 ;; (define-key elopher-mode-map (kbd "p") 'elopher-quit)
  11
  12 ;; (define-derived-mode elopher-mode special-mode "elopher"
  13 ;;   "Major mode for elopher, an elisp gopher client.")
  14
  15 ;; (global-set-key (kbd "C-c C-b") 'eval-buffer)
  16
  17 (defvar elopher-type-margin-width 5)
  18
  19 (defvar elopher-history '())
  20
  21 (defun elopher-type-margin (&optional type-name)
  22   (if type-name
  23       (insert (propertize
  24                (format (concat "%" (number-to-string elopher-type-margin-width) "s")
  25                        (concat "[" type-name "] "))
  26                'face '(foreground-color . "yellow")))
  27     (insert (make-string elopher-type-margin-width ?\s))))
  28
  29 (defun elopher-make-clickable (string link-function mouse-help)
  30   (let ((map (make-sparse-keymap)))
  31     (define-key map [mouse-1] link-function)
  32     (define-key map (kbd "RET") link-function)
  33     (propertize string
  34                 'mouse-face 'highlight
  35                 'help-echo (concat "mouse-1: " mouse-help)
  36                 'keymap map)))
  37
  38 (defun elopher-format-record (margin-key color &optional getter)
  39   (elopher-type-margin margin-key)
  40   (insert (propertize
  41            (if getter
  42                (elopher-make-clickable display-string
  43                                        `(lambda () (interactive)
  44                                           (,getter ,hostname ,port ,selector))
  45                                        (format "open \"%s\" on %s port %s"
  46                                                selector hostname port))
  47              display-string)
  48            'face `(foreground-color . ,color)))
  49   (insert "\n"))
  50
  51 (defun elopher-format-i (display-string)
  52   (elopher-format-record nil "white"))
  53
  54 (defun elopher-format-0 (display-string selector hostname port)
  55   (elopher-format-record "T" "gray" 'elopher-get-text))
  56
  57 (defun elopher-format-1 (display-string selector hostname port)
  58   (elopher-format-record "/" "cyan" 'elopher-get-index))
  59
  60 (defun elopher-process-record (line)
  61   (let* ((type (elt line 0))
  62          (fields (split-string (substring line 1) "\t"))
  63          (g-display-string (elt fields 0))
  64          (g-selector (elt fields 1))
  65          (g-hostname (elt fields 2))
  66          (g-port (elt fields 3)))
  67     (pcase type
  68       (?i (elopher-format-i g-display-string))
  69       (?0 (elopher-format-0 g-display-string g-selector g-hostname g-port))
  70       (?1 (elopher-format-1 g-display-string g-selector g-hostname g-port)))))
  71
  72 (defvar elopher-incomplete-record "")
  73
  74 (defun elopher-process-complete-records (string)
  75   (let* ((til-now (string-join (list elopher-incomplete-record string)))
  76          (lines (split-string til-now "\r\n")))
  77     (dotimes (idx (length lines))
  78       (if (< idx (- (length lines) 1))
  79           (elopher-process-record (elt lines idx))
  80         (setq elopher-incomplete-record (elt lines idx))))))
  81
  82 (defun elopher-index-filter (proc string)
  83   (with-current-buffer (get-buffer "*elopher*")
  84     (let ((marker (process-mark proc)))
  85       (if (not (marker-position marker))
  86           (set-marker marker 0 (current-buffer)))
  87       (save-excursion
  88         (goto-char marker)
  89         (elopher-process-complete-records string)
  90         (set-marker marker (point))))))
  91
  92 (defun elopher-get-index (host &optional port path)
  93   (switch-to-buffer "*elopher*")
  94   (erase-buffer)
  95   (setq elopher-incomplete-record "")
  96   (make-network-process
  97    :name "elopher-process"
  98    :host host
  99    :service (if port port 70)
 100    :filter #'elopher-index-filter)
 101   (process-send-string "elopher-process" (concat path "\n")))
 102
 103 (defun elopher-text-filter (proc string)
 104   (with-current-buffer (get-buffer "*elopher*")
 105     (let ((marker (process-mark proc)))
 106       (if (not (marker-position marker))
 107           (set-marker marker 0 (current-buffer)))
 108       (save-excursion
 109         (goto-char marker)
 110         (dolist (line (split-string string "\r"))
 111           (insert line))
 112         (set-marker marker (point))))))
 113
 114 (defun elopher-get-text (host port selector)
 115   (switch-to-buffer "*elopher*")
 116   (erase-buffer)
 117   (setq elopher-incomplete-record "")
 118   (make-network-process
 119    :name "elopher-process"
 120    :host host
 121    :service port
 122    :filter #'elopher-text-filter)
 123   (process-send-string "elopher-process" (concat selector "\n")))
 124
 125 (defun elopher ()
 126   "Start gopher client."
 127   (interactive)
 128   (elopher-get-index (read-from-minibuffer "Gopher host: ") 70))
 129
 130 ;; (elopher-get-index "cosmic.voyage")
 131 (elopher-get-index "gopher.floodgap.com")
 132 ;; (elopher-get-index "maurits.id.au")
 133
 134 (defun elopher-quit ()
 135   (interactive)
 136   (kill-buffer "*elopher*"))
 137
 138 ;;; elopher.el ends here