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
|
;; Sample ~/.freetalk/freetalk.scm
;; Passwordless automatic login
; (and (string=? (ft-get-jid) "")
; (ft-set-jid! "anand.avati@gmail.com")
; (ft-set-password! "p4ssw0rd")
; (ft-set-sslconn! #t)
; (ft-set-prompt! "freetalk: ")
; (ft-set-server! "talk.google.com"))
;; Example proxy configuration
; (and (string=? (ft-get-jid) "")
; (ft-set-jid! "anand.avati@gmail.com")
; (ft-set-password! "p4ssw0rd")
; (ft-set-sslconn! #t)
; (ft-set-prompt! "freetalk: ")
; (ft-set-server! "talk.google.com")
; (ft-set-proxyserver! "your.proxyserver.net")
; (ft-set-proxyport! "8080"))
;; Get control after successful login
; (add-hook! ft-login-hook
; (lambda (status)
; (if status
; (begin
;; Set user-id as your prompt
; (ft-set-prompt! (string-append
; (car (string-split (ft-get-jid) #\@))
; ": "))
;; Change status to "do not disturb"
; (ft-set-status-msg! "dnd")))))
;; Key bindings
;; Let ctrl-a display full roster, ctrl-e who i am
; (ft-bind-to-ctrl-key #\a "(/who \"all\")")
; (ft-bind-to-ctrl-key #\e "(/whoami \"\")")
|
