OpenPKG CVS Repository
  http://cvs.openpkg.org/
  ____________________________________________________________________________

  Server: cvs.openpkg.org                  Name:   Ralf S. Engelschall
  Root:   /v/openpkg/cvs                   Email:  [EMAIL PROTECTED]
  Module: openpkg-src                      Date:   18-May-2005 11:47:00
  Branch: HEAD                             Handle: 2005051810470000

  Modified files:
    openpkg-src/ircii       ircii.spec rse.rc

  Log:
    ok, now that I've got totally crazy with ircII programming, add one
    more hack to my RSE script: the possibility to execute an event (can
    be even an external command like 'wmctrl' to raise the window) to
    receive my attention in case someone speaks about me or to me in
    public ;-)

  Summary:
    Revision    Changes     Path
    1.54        +1  -1      openpkg-src/ircii/ircii.spec
    1.6         +36 -3      openpkg-src/ircii/rse.rc
  ____________________________________________________________________________

  patch -p0 <<'@@ .'
  Index: openpkg-src/ircii/ircii.spec
  ============================================================================
  $ cvs diff -u -r1.53 -r1.54 ircii.spec
  --- openpkg-src/ircii/ircii.spec      16 May 2005 12:26:21 -0000      1.53
  +++ openpkg-src/ircii/ircii.spec      18 May 2005 09:47:00 -0000      1.54
  @@ -33,7 +33,7 @@
   Group:        Network
   License:      BSD
   Version:      20040820
  -Release:      20050516
  +Release:      20050518
   
   #   list of sources
   Source0:      ftp://ircii.warped.com/pub/ircII/ircii-%{version}.tar.gz
  @@ .
  patch -p0 <<'@@ .'
  Index: openpkg-src/ircii/rse.rc
  ============================================================================
  $ cvs diff -u -r1.5 -r1.6 rse.rc
  --- openpkg-src/ircii/rse.rc  16 May 2005 12:26:21 -0000      1.5
  +++ openpkg-src/ircii/rse.rc  18 May 2005 09:47:00 -0000      1.6
  @@ -110,14 +110,47 @@
       msg $0 $alias.oops
   }
   
  +#   Convenience Attention Checking
  +set exec_protection off
  +^assign alias.attention.mode off
  +^assign alias.attention.event echo *** ATTENTION, PLEASE! ***
  +alias attention {
  +    if ([$0] == [on]) {
  +        ^assign alias.attention.mode on
  +    }
  +    if ([$0] == [off]) {
  +        ^assign alias.attention.mode off
  +    }
  +    if ([$0] == [event]) {
  +        ^assign alias.attention.event $1-
  +    }
  +    echo *** Attention: mode ${alias.attention.mode}, event 
${alias.attention.event}
  +}
  +alias __attention_check {
  +    if ([$alias.attention.mode] == [on]) {
  +        if (   [$0] == [${N}:]          \
  +            || match(${N}    $*) != [0] \
  +            || match(${N},   $*) != [0] \
  +            || match(${N};   $*) != [0] \
  +            || match(${N}.   $*) != [0] \
  +            || match(${N}:   $*) != [0] \
  +            || match(${N}!   $*) != [0] \
  +            || match(${N}\\? $*) != [0] ) {
  +            $alias.attention.event
  +            ^assign alias.attention.mode off
  +            timer 10 ^assign alias.attention.mode on
  +        }
  +    }
  +}
  +
   #   Display Formatting
   set lastlog 1000
   set input_prompt >\ 
   on ^send_public   * echo $lformat(8 $N:) $1-
  -on ^public        * echo $lformat(8 $0:) $2-
  +on ^public        * echo $lformat(8 $0:) $2-;__attention_check $2-
   on ^send_msg      * echo ${N} -> $0: $1-
  -on ^public_other  * echo $1 <- $0: $2-
  -on ^public_msg    * echo $1 <- $0: $2-
  +on ^public_other  * echo $1 <- $0: $2-;__attention_check $2-
  +on ^public_msg    * echo $1 <- $0: $2-;__attention_check $2-
   on ^msg           * echo $N <- $0: $1-
   on ^msg_group     * echo $1 <- $0: $2-
   on ^send_notice   * echo ${N} ~> $0: $1-
  @@ .
______________________________________________________________________
The OpenPKG Project                                    www.openpkg.org
CVS Repository Commit List                     openpkg-cvs@openpkg.org

Reply via email to