betty.el

   1 ;;; betty.el --- gopher client
   2
   3 ;;; Commentary:
   4
   5 ;; Simple gopher client in elisp.
   6
   7 ;;; Code:
   8
   9 (defvar betty-mode-map nil "Keymap for gopher client.")
  10 (define-key betty-mode-map (kbd "p") 'betty-quit)
  11
  12 (define-derived-mode betty-mode special-mode "betty"
  13   "Major mode for betty, an elisp gopher client.
  14
  15   \\{betty-mode-map}")
  16
  17 (defun betty ()
  18   "Start gopher client."
  19   (interactive)
  20   (switch-to-buffer "*betty*")
  21   (betty-mode)
  22   (let ((inhibit-read-only t)
  23         (make-process
  24          :name "ls"
  25          :command "ls -l"
  26          :filter))
  27
  28         ;; (address (read-from-minibuffer "Address of gopher server: ")))
  29     (message "Connecting to '%s' ..." address)
  30     (erase-buffer)
  31     (insert (propertize "Hello, world." 'face '(foreground-color . "red")))
  32     (newline)
  33     (insert (propertize "Hello, Tim." 'face '(foreground-color . "yellow")))))
  34
  35 (defun betty-quit ()
  36   (interactive)
  37   (kill-buffer "*betty*"))
  38
  39
  40 ;;; betty.el ends here