Previous: , Up: Common customizations   [Contents]

2.9.2 Customize prompt

The prompt is generated by calling the Scheme function (leas/prompt). If you change this function, you customize the prompt. For example, try adding the following to see the current date, 

(define leas/prompt
  (lambda ()
    (if (= (leas/get-number-of-accounts) 0)
        ":> "
        (let* ((day (leas/get-current-day))
               (mday (list-ref day 0))
               (month (list-ref day 1))
               (year (list-ref day 2)))
          (string-append
           "("
           (leas/get-current-account)
           " "
           (number->string year)
           "-"
           (number->string month)
           "-"
           (number->string mday)
           ") :> ")))))