If the jid is already set in the conf file, show it before the passwo…

…rd prompt
GNUFreetalk · Dec 12, 2014 · 089900b · 089900b
1 parent 60c672a
commit 089900b
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/extensions/login.scm b/extensions/login.scm
@@ -20,10 +20,11 @@
 ;(use-modules (ice-9 readline))
 ;(activate-readline)
 
-(and (string=? (ft-get-jid) "")
+(if (string=? (ft-get-jid) "")
      (ft-set-jid! (sans-surrounding-whitespace
                    (and (display "Jabber ID: ")
-                        (read-line)))))
+                        (read-line))))
+     (display (string-append "[" (ft-get-jid) "] ")))
 
 ;; check if both user and domain are present
 (if (not (string-rindex (ft-get-jid) #\@))