From bbf9cbcd501121d594712ef84ff61b4ebfb676dc Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Thu, 11 Apr 2019 23:35:33 +0200
Subject: [PATCH] Initial commit.
---
betty.el | 40 ++++++++++++++++++++++++++++++++++++++++
1 file changed, 40 insertions(+)
create mode 100644 betty.el
diff --git a/betty.el b/betty.el
new file mode 100644
index 0000000..e339739
--- /dev/null
+++ b/betty.el
@@ -0,0 +1,40 @@
+;;; betty.el --- gopher client
+
+;;; Commentary:
+
+;; Simple gopher client in elisp.
+
+;;; Code:
+
+(defvar betty-mode-map nil "Keymap for gopher client.")
+(define-key betty-mode-map (kbd "p") 'betty-quit)
+
+(define-derived-mode betty-mode special-mode "betty"
+ "Major mode for betty, an elisp gopher client.
+
+ \\{betty-mode-map}")
+
+(defun betty ()
+ "Start gopher client."
+ (interactive)
+ (switch-to-buffer "*betty*")
+ (betty-mode)
+ (let ((inhibit-read-only t)
+ (make-process
+ :name "ls"
+ :command "ls -l"
+ :filter))
+
+ ;; (address (read-from-minibuffer "Address of gopher server: ")))
+ (message "Connecting to '%s' ..." address)
+ (erase-buffer)
+ (insert (propertize "Hello, world." 'face '(foreground-color . "red")))
+ (newline)
+ (insert (propertize "Hello, Tim." 'face '(foreground-color . "yellow")))))
+
+(defun betty-quit ()
+ (interactive)
+ (kill-buffer "*betty*"))
+
+
+;;; betty.el ends here
--
2.20.1