prec - dotfiles - leot's dotfiles
(HTM) hg clone https://bitbucket.org/iamleot/dotfiles
(DIR) Log
(DIR) Files
(DIR) Refs
---
prec
---
1 # $eterna: prefix,v 1.2 2001/08/12 15:57:11 mrg Exp $
2 #
3 # prefix each message with date and channel name
4
5 alias log {
6 if ( match(log $windows()) ) {
7 xecho -window log $*
8 }
9 }
10
11 on ^action * {
12 echo $1 *$0\* $2-
13 if (!MATCH($1 &bitlbee)) {
14 log $STRFTIME($TIME() %d/%m/%Y) $Z $1 *$0* $2-
15 }
16 if (MATCH($N $STRIP(:,.!?<> $2-))) {
17 beep
18 }
19 }
20 on ^msg * {
21 echo $0 <$0\> $1-
22 log $STRFTIME($TIME() %d/%m/%Y) $Z $0 <$0> $1-
23 beep
24 }
25 on ^notice * {
26 echo $1 *$0\* $2-
27 log $STRFTIME($TIME() %d/%m/%Y) $Z $1 *$0* $2-
28 beep
29 }
30 on ^public * {
31 echo $1 <$0\> $2-
32 if (!MATCH($1 &bitlbee)) {
33 log $STRFTIME($TIME() %d/%m/%Y) $Z $1 <$0> $2-
34 }
35 if (MATCH($N $STRIP(:,.!?<> $2-))) {
36 beep
37 }
38 }
39 on ^public_msg * {
40 echo $1 <$0\> $2-
41 if (!MATCH($1 &bitlbee)) {
42 log $STRFTIME($TIME() %d/%m/%Y) $Z $1 <$0> $2-
43 }
44 if (MATCH($N $STRIP(:,.!?<> $2-))) {
45 beep
46 }
47 }
48 on ^public_other * {
49 echo $1 <$0\> $2-
50 if (!MATCH($1 &bitlbee)) {
51 log $STRFTIME($TIME() %d/%m/%Y) $Z $1 <$0> $2-
52 }
53 }
54 on ^send_action * {
55 echo $0 *$N\* $1-
56 if (!MATCH($0 &bitlbee)) {
57 log $STRFTIME($TIME() %d/%m/%Y) $Z $0 *$N* $1-
58 }
59 }
60 on ^send_msg * {
61 echo $0 <$N\> $1-
62 log $STRFTIME($TIME() %d/%m/%Y) $Z $0 <$N> $1-
63 }
64 on ^send_public * {
65 echo $0 <$N\> $1-
66 if (!MATCH($0 &bitlbee)) {
67 log $STRFTIME($TIME() %d/%m/%Y) $Z $0 <$N> $1-
68 }
69 }
70
71 set input_prompt $T>