Re: [Freetalk-dev] First time user of Freetalk: question about showing timestamps

[Anand Babu Periasamy]

Hi Tim,
You can either apply the patch or simply copy the attached "color.scm" to your 
~/.freetalk/extensions/ folder.

Happy Hacking!
--
Anand Babu Periasamy
GPG Key ID: 0x62E15A31
Blog [http://ab.freeshell.org]
GlusterFS [http://www.gluster.org]
The GNU Operating System [http://www.gnu.org]



Tim Vaughan wrote:
> Hi list,
>
> Just getting started with FT and like it very much.  I'd like to show
> timestamps of when messages are received and sent.  Is this possible,
> and if so, how?
>
> Thanks,
>
> Tim
;;; color.scm: adds color to  messages from buddies
;;; Copyright (c) 2005, 2006, 2007 Freetalk Core Team 
;;; This file is part of GNU Freetalk.
;;; 
;;; Freetalk is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or
;;; (at your option) any later version.
;;; 
;;; Freetalk is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;;; General Public License for more details.
;;; 
;;; You should have received a copy of the GNU General Public License
;;; along with this program.  If not, see
;;; <http://www.gnu.org/licenses/>.
;;; 
;;; color.scm should be automatically loaded thru init.scm
;;; /eval (ft-set-buddy-color! <buddy name> <color>)
;;; /eval (set! ft-default-color <color>)
;;;
;;; example:
;;; /color-buddy balugi yellow
;;; /color-disable
;;; /color-enable

(use-modules (ice-9 regex))

(define enable-colors-flag "yes")
(define ignored-msg-pattern-list '())


(define color-list 
  '(("yellow" . "33")
    ("magenta" . "35")
    ("cyan" . "36")
    ("white" . "37")
    ("red" . "31")
    ("green" . "32")
    ("blue" . "34")))


(if (defined? 'auto-color-list)
    '()
    (define auto-color-list '()))

(define (ignore-message! pattern)
  "ignore messages matching the pattern"
  (set! ignored-msg-pattern-list
        (cons pattern ignored-msg-pattern-list)))

(define (ignored-message? message)
  "tell if this message has to be ignored"
  (letrec
      ((local-ignored-message? 
        (lambda (pattern-list message)
          (if (= (length pattern-list) 0)
              #f
              (if (= (length pattern-list) 1)
                  (regexp-match? (string-match
                                  (car pattern-list) message))
                  (if (regexp-match? (string-match
                                      (car pattern-list) message))
                  #t
                  (local-ignored-message? 
                   (cdr pattern-list) message)))))))
       (local-ignored-message? ignored-msg-pattern-list message)))


(if (defined? 'default-color)
    '()
    (begin
      (define default-color "cyan")))

(define (set-buddy-color! buddy color)
  "specify color for buddies"
  (if (assoc buddy auto-color-list)
      (set! auto-color-list
            (delete (cons 
                     buddy 
                     (cdr (assoc buddy auto-color-list)))
                    auto-color-list)))
  (set! auto-color-list 
        (append auto-color-list 
                (list (cons buddy color)))))

(define (get-buddy-color buddy)
  (if (assoc buddy auto-color-list)
      '()
      (begin
        (set! auto-color-list
              (append 
               auto-color-list 
               (list (cons 
                      buddy 
                      (car (list-ref color-list 
                                     (modulo 
                                      (length auto-color-list) 
                                      (length color-list))))))))))
  (cdr (assoc buddy auto-color-list)))

(define (color-message msg color)
  "adds color to message"
  (define col-no (cdr (assoc default-color color-list))) 
  (and (assoc color color-list)
       (set! col-no (cdr (assoc color color-list  ))))
  (string-append "[1;" col-no ";40m" msg ""))

(define (append-color timestamp from nickname msg)
  "append color"
  (if (ignored-message? msg)
      (ft-hook-return)
      (if (equal? enable-colors-flag "yes")
          (begin
            (if (get-buddy-color from)
                (begin
                  (ft-display 
                   (string-append
                    (if (> (string-length timestamp) 0)
                        (color-message (string-append "[" timestamp "] ")
                                       (get-buddy-color from))
                        (color-message (string-append (local-date-time) " ")
                                       (get-buddy-color from)))
                    (color-message (if (> (string-length nickname) 0)
                                       nickname
                                       from)
                                   (get-buddy-color from))
                    (if (string-prefix? "/me " msg)
                        (color-message (substring msg 3) (get-buddy-color from))
                        (color-message (string-append " -> " msg) 
(get-buddy-color from))
                        )))
                  (ft-hook-return)))))))

(add-hook! ft-message-receive-hook append-color)

(define (/color-enable args)
  " enable's color "
  (set! enable-colors-flag "yes")
  (ft-display (_ " BUDDY coloring enabled ")))

(add-command! /color-enable "/color-enable" "color-enable" "Enables buddy 
coloring")

(define (/color-disable args)
  " disable's color "
  (set! enable-colors-flag "no")
  (ft-display (_ " BUDDY coloring disabled ")))

(add-command! /color-disable "/color-disable" "color-disable" "Disables buddy 
coloring")

* local directory is at address@hidden/freetalk--main--3.0--patch-24
* comparing to address@hidden/freetalk--main--3.0--patch-24
M  extensions/color.scm

* modified files

--- orig/extensions/color.scm
+++ mod/extensions/color.scm
@@ -120,7 +120,8 @@
                    (if (> (string-length timestamp) 0)
                        (color-message (string-append "[" timestamp "] ")
                                       (get-buddy-color from))
-                       "")
+                       (color-message (string-append (local-date-time) " ")
+                                      (get-buddy-color from)))
                    (color-message (if (> (string-length nickname) 0)
                                       nickname
                                       from)