upstream/kallithea Files · rhodecode/public/js/mode/tcl/index.html

old style: show compare "Compare Revisions" inline ... and do the same with all other buttons

marcink - - Load All Authors

File last commit:

r4029:c9bcfe2d default


                r4151:8b8f4a93

rhodecode-2.2.5-gpl

Download file

             index.html
        
                    129 lines
            
             | 5.7 KiB
            
                | text/html
            
             |
                HtmlLexer
            
             / rhodecode / public / js / mode / tcl / index.html
          
                    History
                
                 |
                  Source
                 | Raw
                 |Copy content
                 |Copy permalink

        marcink
    
added codemirror edit mode with autodetection

              r4026
            
      <!doctype html>

      <html>

        <head>

          <meta charset="utf-8">

          <title>CodeMirror: Tcl mode</title>

          <link rel="stylesheet" href="../../lib/codemirror.css">

          <script src="../../lib/codemirror.js"></script>

          <script src="tcl.js"></script>

          <link rel="stylesheet" href="../../theme/night.css">

          <link rel="stylesheet" href="../../doc/docs.css">

        </head>

        <body>

          <h1>CodeMirror: Tcl mode</h1>

          <form><textarea id="code" name="code">

      ##############################################################################################

      ##  ##     whois.tcl for eggdrop by Ford_Lawnmower irc.geekshed.net #Script-Help        ##  ##

      ##############################################################################################

      ## To use this script you must set channel flag +whois (ie .chanset #chan +whois)           ##

      ##############################################################################################

      ##      ____                __                 ###########################################  ##

      ##     / __/___ _ ___ _ ___/ /____ ___   ___   ###########################################  ##

      ##    / _/ / _ `// _ `// _  // __// _ \ / _ \  ###########################################  ##

      ##   /___/ \_, / \_, / \_,_//_/   \___// .__/  ###########################################  ##

      ##        /___/ /___/                 /_/      ###########################################  ##

      ##                                             ###########################################  ##

      ##############################################################################################

      ##  ##                             Start Setup.                                         ##  ##

      ##############################################################################################

      namespace eval whois {

      ## change cmdchar to the trigger you want to use                                        ##  ##

        variable cmdchar "!"

      ## change command to the word trigger you would like to use.                            ##  ##

      ## Keep in mind, This will also change the .chanset +/-command                          ##  ##

        variable command "whois"

      ## change textf to the colors you want for the text.                                    ##  ##

        variable textf "\017\00304"

      ## change tagf to the colors you want for tags:                                         ##  ##

        variable tagf "\017\002"

      ## Change logo to the logo you want at the start of the line.                           ##  ##

        variable logo "\017\00304\002\[\00306W\003hois\00304\]\017"

      ## Change lineout to the results you want. Valid results are channel users modes topic  ##  ##

        variable lineout "channel users modes topic"

      ##############################################################################################

      ##  ##                           End Setup.                                              ## ##

      ##############################################################################################

        variable channel ""

        setudef flag $whois::command

        bind pub -|- [string trimleft $whois::cmdchar]${whois::command} whois::list

        bind raw -|- "311" whois::311

        bind raw -|- "312" whois::312

        bind raw -|- "319" whois::319

        bind raw -|- "317" whois::317

        bind raw -|- "313" whois::multi

        bind raw -|- "310" whois::multi

        bind raw -|- "335" whois::multi

        bind raw -|- "301" whois::301

        bind raw -|- "671" whois::multi

        bind raw -|- "320" whois::multi

        bind raw -|- "401" whois::multi

        bind raw -|- "318" whois::318

        bind raw -|- "307" whois::307

      }

      proc whois::311 {from key text} {

        if {[regexp -- {^[^\s]+\s(.+?)\s(.+?)\s(.+?)\s\*\s\:(.+)$} $text wholematch nick ident host realname]} {

          putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Host:${whois::textf} \

        marcink
    
codecleaner

              r4029
            
          $nick \(${ident}@${host}\) ${whois::tagf}Realname:${whois::textf} $realname"

        marcink
    
added codemirror edit mode with autodetection

              r4026
            
        }

      }

      proc whois::multi {from key text} {

        if {[regexp {\:(.*)$} $text match $key]} {

          putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Note:${whois::textf} [subst $$key]"

        marcink
    
codecleaner

              r4029
            
          return 1

        marcink
    
added codemirror edit mode with autodetection

              r4026
            
        }

      }

      proc whois::312 {from key text} {

        regexp {([^\s]+)\s\:} $text match server

        putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Server:${whois::textf} $server"

      }

      proc whois::319 {from key text} {

        if {[regexp {.+\:(.+)$} $text match channels]} {

          putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Channels:${whois::textf} $channels"

        }

      }

      proc whois::317 {from key text} {

        if {[regexp -- {.*\s(\d+)\s(\d+)\s\:} $text wholematch idle signon]} {

          putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Connected:${whois::textf} \

        marcink
    
codecleaner

              r4029
            
          [ctime $signon] ${whois::tagf}Idle:${whois::textf} [duration $idle]"

        marcink
    
added codemirror edit mode with autodetection

              r4026
            
        }

      }

      proc whois::301 {from key text} {

        if {[regexp {^.+\s[^\s]+\s\:(.*)$} $text match awaymsg]} {

          putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Away:${whois::textf} $awaymsg"

        }

      }

      proc whois::318 {from key text} {

        namespace eval whois {

        marcink
    
codecleaner

              r4029
            
          variable channel ""

        marcink
    
added codemirror edit mode with autodetection

              r4026
            
        }

        variable whois::channel ""

      }

      proc whois::307 {from key text} {

        putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Services:${whois::textf} Registered Nick"

      }

      proc whois::list {nick host hand chan text} {

        if {[lsearch -exact [channel info $chan] "+${whois::command}"] != -1} {

          namespace eval whois {

        marcink
    
codecleaner

              r4029
            
            variable channel ""

          }

        marcink
    
added codemirror edit mode with autodetection

              r4026
            
          variable whois::channel $chan

          putserv "WHOIS $text"

        }

      }

      putlog "\002*Loaded* \017\00304\002\[\00306W\003hois\00304\]\017 \002by \

      Ford_Lawnmower irc.GeekShed.net #Script-Help"

      </textarea></form>

          <script>

            var editor = CodeMirror.fromTextArea(document.getElementById("code"), {

              tabMode: "indent",

        marcink
    
codecleaner

              r4029
            
              theme: "night",

        marcink
    
added codemirror edit mode with autodetection

              r4026
            
              lineNumbers: true,

              indentUnit: 2,

              mode: "text/x-tcl"

            });

          </script>

          <p><strong>MIME types defined:</strong> <code>text/x-tcl</code>.</p>

        </body>

      </html>

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages

marcink added codemirror edit mode with autodetection	r4026	<!doctype html>
		<html>
		<head>
		<meta charset="utf-8">
		<title>CodeMirror: Tcl mode</title>
		<link rel="stylesheet" href="../../lib/codemirror.css">
		<script src="../../lib/codemirror.js"></script>
		<script src="tcl.js"></script>
		<link rel="stylesheet" href="../../theme/night.css">
		<link rel="stylesheet" href="../../doc/docs.css">
		</head>
		<body>
		<h1>CodeMirror: Tcl mode</h1>
		<form><textarea id="code" name="code">
		##############################################################################################
		## ## whois.tcl for eggdrop by Ford_Lawnmower irc.geekshed.net #Script-Help ## ##
		##############################################################################################
		## To use this script you must set channel flag +whois (ie .chanset #chan +whois) ##
		##############################################################################################
		## ____ __ ########################################### ##
		## / __/___ _ ___ _ ___/ /____ ___ ___ ########################################### ##
		## / _/ / _ `// _ `// _ // __// _ \ / _ \ ########################################### ##
		## /___/ \_, / \_, / \_,_//_/ \___// .__/ ########################################### ##
		## /___/ /___/ /_/ ########################################### ##
		## ########################################### ##
		##############################################################################################
		## ## Start Setup. ## ##
		##############################################################################################
		namespace eval whois {
		## change cmdchar to the trigger you want to use ## ##
		variable cmdchar "!"
		## change command to the word trigger you would like to use. ## ##
		## Keep in mind, This will also change the .chanset +/-command ## ##
		variable command "whois"
		## change textf to the colors you want for the text. ## ##
		variable textf "\017\00304"
		## change tagf to the colors you want for tags: ## ##
		variable tagf "\017\002"
		## Change logo to the logo you want at the start of the line. ## ##
		variable logo "\017\00304\002\[\00306W\003hois\00304\]\017"
		## Change lineout to the results you want. Valid results are channel users modes topic ## ##
		variable lineout "channel users modes topic"
		##############################################################################################
		## ## End Setup. ## ##
		##############################################################################################
		variable channel ""
		setudef flag $whois::command
		bind pub -\|- [string trimleft $whois::cmdchar]${whois::command} whois::list
		bind raw -\|- "311" whois::311
		bind raw -\|- "312" whois::312
		bind raw -\|- "319" whois::319
		bind raw -\|- "317" whois::317
		bind raw -\|- "313" whois::multi
		bind raw -\|- "310" whois::multi
		bind raw -\|- "335" whois::multi
		bind raw -\|- "301" whois::301
		bind raw -\|- "671" whois::multi
		bind raw -\|- "320" whois::multi
		bind raw -\|- "401" whois::multi
		bind raw -\|- "318" whois::318
		bind raw -\|- "307" whois::307
		}
		proc whois::311 {from key text} {
		if {[regexp -- {^[^\s]+\s(.+?)\s(.+?)\s(.+?)\s\*\s\:(.+)$} $text wholematch nick ident host realname]} {
		putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Host:${whois::textf} \
marcink codecleaner	r4029	$nick \(${ident}@${host}\) ${whois::tagf}Realname:${whois::textf} $realname"
marcink added codemirror edit mode with autodetection	r4026	}
		}
		proc whois::multi {from key text} {
		if {[regexp {\:(.*)$} $text match $key]} {
		putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Note:${whois::textf} [subst $$key]"
marcink codecleaner	r4029	return 1
marcink added codemirror edit mode with autodetection	r4026	}
		}
		proc whois::312 {from key text} {
		regexp {([^\s]+)\s\:} $text match server
		putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Server:${whois::textf} $server"
		}
		proc whois::319 {from key text} {
		if {[regexp {.+\:(.+)$} $text match channels]} {
		putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Channels:${whois::textf} $channels"
		}
		}
		proc whois::317 {from key text} {
		if {[regexp -- {.*\s(\d+)\s(\d+)\s\:} $text wholematch idle signon]} {
		putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Connected:${whois::textf} \
marcink codecleaner	r4029	[ctime $signon] ${whois::tagf}Idle:${whois::textf} [duration $idle]"
marcink added codemirror edit mode with autodetection	r4026	}
		}
		proc whois::301 {from key text} {
		if {[regexp {^.+\s[^\s]+\s\:(.*)$} $text match awaymsg]} {
		putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Away:${whois::textf} $awaymsg"
		}
		}
		proc whois::318 {from key text} {
		namespace eval whois {
marcink codecleaner	r4029	variable channel ""
marcink added codemirror edit mode with autodetection	r4026	}
		variable whois::channel ""
		}
		proc whois::307 {from key text} {
		putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Services:${whois::textf} Registered Nick"
		}
		proc whois::list {nick host hand chan text} {
		if {[lsearch -exact [channel info $chan] "+${whois::command}"] != -1} {
		namespace eval whois {
marcink codecleaner	r4029	variable channel ""
		}
marcink added codemirror edit mode with autodetection	r4026	variable whois::channel $chan
		putserv "WHOIS $text"
		}
		}
		putlog "\002Loaded \017\00304\002\[\00306W\003hois\00304\]\017 \002by \
		Ford_Lawnmower irc.GeekShed.net #Script-Help"
		</textarea></form>
		<script>
		var editor = CodeMirror.fromTextArea(document.getElementById("code"), {
		tabMode: "indent",
marcink codecleaner	r4029	theme: "night",
marcink added codemirror edit mode with autodetection	r4026	lineNumbers: true,
		indentUnit: 2,
		mode: "text/x-tcl"
		});
		</script>

		<p><strong>MIME types defined:</strong> <code>text/x-tcl</code>.</p>

		</body>
		</html>