+(defun elopher ()
+ "Start elopher with default landing page."
+ (interactive)
+ (switch-to-buffer "*elopher*")
+ (elopher-mode)
+ (let ((inhibit-read-only t))
+ (erase-buffer)
+ (save-excursion
+ (elopher-render-complete-records
+ (concat "i\tfake\tfake\t1\r\n"
+ "i--------------------------------------------\tfake\tfake\t1\r\n"
+ "i Elopher Gopher Client \tfake\tfake\t1\r\n"
+ "i version 1.0 \tfake\tfake\t1\r\n"
+ "i--------------------------------------------\tfake\tfake\t1\r\n"
+ "i\tfake\tfake\t1\r\n"
+ "iBasic usage:\tfake\tfake\t1\r\n"
+ "i - tab/shift-tab: next/prev directory entry\tfake\tfake\t1\r\n"
+ "i - RET/mouse-1: open directory entry\tfake\tfake\t1\r\n"
+ "i - u: return to parent directory entry\tfake\tfake\t1\r\n"
+ "i - g: go to a particular site\tfake\tfake\t1\r\n"
+ "i\tfake\tfake\t1\r\n"
+ "iPlaces to start exploring Gopherspace:\tfake\tfake\t1\r\n"
+ "1Floodgap Systems Gopher Server\t\tgopher.floodgap.com\t70\r\n"
+ "1Super-Dimensional Fortress\t\tgopher.floodgap.com\t70\r\n"
+ "i\tfake\tfake\t1\r\n"
+ "iTest entries:\tfake\tfake\t1\r\n"
+ "pXKCD comic image\t/fun/xkcd/comics/2130/2137/text_entry.png\tgopher.floodgap.com\t70\r\n")))))
+
+(elopher)