Mercurial > hg > egg-tcls

view help.tcl @ 430:8efbb045d44d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
weather: Implement searching for nearest of measurement stations based on given lat/long coordinates. The distance calculation is naive pythagoraean one, should be changed to "Great circle distance" https://en.wikipedia.org/wiki/Great-circle_distance. (C implementation already done, just needs TCL-ization.)
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 08 Jan 2017 05:08:38 +0200
parents b4fdb3300faa
children
line wrap: on
line source

##########################################################################
# Niinuska Help
##########################################################################
set nn_message "Niinuska Help v0.2 by ccr/TNSP"
set nn_preferredmsg "PRIVMSG"

putlog "$nn_message"
bind pub - !help nn_pubmsg
bind pub - !apua nn_pubmsg

# ------------------------------------------------------------------------
proc nn_smsg {udest umsg} {
  global nn_preferredmsg

  putserv "$nn_preferredmsg $udest :$umsg"
}


# ------------------------------------------------------------------------
proc nn_pubmsg {unick uhost uhand uchan uargs} {
  nn_smsg $uchan "Lisätietoja Niinuskan toiminnoista: \002http://tnsp.org/irc/\002 ja \002http://tnsp.org/irc/readme.php\002"
  return 1
}

# ------------------------------------------------------------------------