make the main application also a module - holymoly - A tor enabled gopher client written in CHICKEN scheme
(HTM) git clone git://vernunftzentrum.de/holymoly.git
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) README
(DIR) LICENSE
---
(DIR) commit 497e348a3e95fb52fab922e2d758d6cab180bc54
(DIR) parent e3c1286eba204c676818f4b52734b723d158c7d4
(HTM) Author: Christian Kellermann <ckeen@pestilenz.org>
Date: Mon, 30 Jul 2018 15:19:27 +0200
make the main application also a module
Diffstat:
holymoly.scm | 21 +++++++++++----------
1 file changed, 11 insertions(+), 10 deletions(-)
---
(DIR) diff --git a/holymoly.scm b/holymoly.scm
@@ -1,7 +1,11 @@
-;(module holymoly (main)
+(include "proxy.scm")
+(include "cursor.scm")
+
+(module holymoly (main)
(import
- (chicken base)
scheme
+ (chicken base)
+ srfi-71
(chicken irregex)
(chicken tcp)
(chicken process-context)
@@ -14,16 +18,13 @@
miscmacros
(chicken string)
(chicken port)
+ (chicken condition)
ncurses
matchable
uri-common
srfi-1
srfi-4
- srfi-13
- srfi-71)
-
-(include "proxy.scm")
-(include "cursor.scm")
+ srfi-13)
(import socksv5-proxy)
(import cursor)
@@ -72,7 +73,7 @@
(call/cc
(lambda (k)
(let loop ((newp 0))
- (let* ((rows cols (getmaxyx win))
+ (let* ((rows cols (getmaxyx win))
(dlines (take (drop lines pos) (min (- nlines pos) rows))))
(wclear win)
(let draw ((l dlines)
@@ -333,9 +334,9 @@
(select-entry (uri->entry (car args)))
(exit 0)))
-;) ;;; end of module definition
+) ;;; end of module definition
-;(import holymoly)
+(import holymoly)
(exit-handler (lambda code (endwin)))
(main (command-line-arguments))
\ No newline at end of file