-
Notifications
You must be signed in to change notification settings - Fork 0
/
console.rkt
82 lines (70 loc) · 2.17 KB
/
console.rkt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
#lang racket
(require racket/cmdline)
(require "mail.rkt")
;
; Display functions
;
(define (display-message-list imap)
(let ([imap-connection (rmail-connection imap)]
[total-messages (rmail-total-messages imap)])
(for ([header (headers imap-connection total-messages)] [i (in-range total-messages)])
(display (+ 1 i))
(display " - ")
(displayln (get-subject (second header))))))
(define (display-help)
(displayln "l - List messages")
(displayln "# - Read message #")
(displayln "q - Quit"))
(define (display-mailboxes imap)
(display "Mailboxes: ")
(displayln (rmail-mailboxes (rmail-connection imap))))
(define (display-message idx imap)
(let ([total-messages (rmail-total-messages imap)]
[imap-connection (rmail-connection imap)])
(define (message-out-of-bounds)
(displayln "Message index out of bounds"))
(cond
[(<= idx 0) (message-out-of-bounds)]
[(>= total-messages idx)
(displayln
(caar (get-imap-message imap-connection (list idx))))]
[else (message-out-of-bounds)])))
;
; Command Line Arguments
;
(command-line
#:program "rmail"
#:once-each
[("-s" "--server") imap-server
"IMAP Server"
(server imap-server)]
#:args (imap-username imap-password)
(username imap-username)
(password imap-password))
;
; REPL Menu
;
(define (next-input port current-imap)
(display "> ")
(let ([s (string-downcase (read-line port))])
(cond
[(string=? s "m") (display-mailboxes current-imap)]
[(string=? s "l") (display-message-list current-imap)]
[(string=? s "?") (display-help)]
[(string=? s "q") (disconnect-and-exit current-imap)]
[(number? (string->number s)) (display-message (string->number s) current-imap)]
[else (displayln "Unrecognized input")])
(next-input port current-imap)))
;
; Debug Output
;
(displayln (string-append "# Connecting to " (server) " ..."))
;
; Calling make-rmail starts the IMAP connection
;
(define current-imap (make-rmail (server) (username) (password)))
(displayln "# Connection established.")
;
; Start REPL Menu
;
(next-input (current-input-port) current-imap)