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

fixed show as raw link for private gists

marcink - - Load All Authors

File last commit:

r4029:c9bcfe2d default


                r4031:4f2e514a

default

Download file

             index.html
        
                    65 lines
            
             | 2.2 KiB
            
                | text/html
            
             |
                HtmlLexer
            
             / rhodecode / public / js / mode / scheme / 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: Scheme mode</title>

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

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

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

          <style>.CodeMirror {background: #f8f8f8;}</style>

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

        </head>

        <body>

          <h1>CodeMirror: Scheme mode</h1>

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

      ; See if the input starts with a given symbol.

      (define (match-symbol input pattern)

        (cond ((null? (remain input)) #f)

        marcink
    
codecleaner

              r4029
            
          ((eqv? (car (remain input)) pattern) (r-cdr input))

          (else #f)))

        marcink
    
added codemirror edit mode with autodetection

              r4026
            
      ; Allow the input to start with one of a list of patterns.

      (define (match-or input pattern)

        (cond ((null? pattern) #f)

        marcink
    
codecleaner

              r4029
            
          ((match-pattern input (car pattern)))

          (else (match-or input (cdr pattern)))))

        marcink
    
added codemirror edit mode with autodetection

              r4026
            
      ; Allow a sequence of patterns.

      (define (match-seq input pattern)

        (if (null? pattern)

            input

            (let ((match (match-pattern input (car pattern))))

        marcink
    
codecleaner

              r4029
            
          (if match (match-seq match (cdr pattern)) #f))))

        marcink
    
added codemirror edit mode with autodetection

              r4026
            
      ; Match with the pattern but no problem if it does not match.

      (define (match-opt input pattern)

        (let ((match (match-pattern input (car pattern))))

          (if match match input)))

      ; Match anything (other than '()), until pattern is found. The rather

      ; clumsy form of requiring an ending pattern is needed to decide where

      ; the end of the match is. If none is given, this will match the rest

      ; of the sentence.

      (define (match-any input pattern)

        (cond ((null? (remain input)) #f)

        marcink
    
codecleaner

              r4029
            
          ((null? pattern) (f-cons (remain input) (clear-remain input)))

          (else

           (let ((accum-any (collector)))

             (define (match-pattern-any input pattern)

               (cond ((null? (remain input)) #f)

                 (else (accum-any (car (remain input)))

                   (cond ((match-pattern (r-cdr input) pattern))

                         (else (match-pattern-any (r-cdr input) pattern))))))

             (let ((retval (match-pattern-any input (car pattern))))

               (if retval

               (f-cons (accum-any) retval)

               #f))))))

        marcink
    
added codemirror edit mode with autodetection

              r4026
            
      </textarea></form>

          <script>

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

          </script>

          <p><strong>MIME types defined:</strong> <code>text/x-scheme</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: Scheme mode</title>
		<link rel="stylesheet" href="../../lib/codemirror.css">
		<script src="../../lib/codemirror.js"></script>
		<script src="scheme.js"></script>
		<style>.CodeMirror {background: #f8f8f8;}</style>
		<link rel="stylesheet" href="../../doc/docs.css">
		</head>
		<body>
		<h1>CodeMirror: Scheme mode</h1>
		<form><textarea id="code" name="code">
		; See if the input starts with a given symbol.
		(define (match-symbol input pattern)
		(cond ((null? (remain input)) #f)
marcink codecleaner	r4029	((eqv? (car (remain input)) pattern) (r-cdr input))
		(else #f)))
marcink added codemirror edit mode with autodetection	r4026
		; Allow the input to start with one of a list of patterns.
		(define (match-or input pattern)
		(cond ((null? pattern) #f)
marcink codecleaner	r4029	((match-pattern input (car pattern)))
		(else (match-or input (cdr pattern)))))
marcink added codemirror edit mode with autodetection	r4026
		; Allow a sequence of patterns.
		(define (match-seq input pattern)
		(if (null? pattern)
		input
		(let ((match (match-pattern input (car pattern))))
marcink codecleaner	r4029	(if match (match-seq match (cdr pattern)) #f))))
marcink added codemirror edit mode with autodetection	r4026
		; Match with the pattern but no problem if it does not match.
		(define (match-opt input pattern)
		(let ((match (match-pattern input (car pattern))))
		(if match match input)))

		; Match anything (other than '()), until pattern is found. The rather
		; clumsy form of requiring an ending pattern is needed to decide where
		; the end of the match is. If none is given, this will match the rest
		; of the sentence.
		(define (match-any input pattern)
		(cond ((null? (remain input)) #f)
marcink codecleaner	r4029	((null? pattern) (f-cons (remain input) (clear-remain input)))
		(else
		(let ((accum-any (collector)))
		(define (match-pattern-any input pattern)
		(cond ((null? (remain input)) #f)
		(else (accum-any (car (remain input)))
		(cond ((match-pattern (r-cdr input) pattern))
		(else (match-pattern-any (r-cdr input) pattern))))))
		(let ((retval (match-pattern-any input (car pattern))))
		(if retval
		(f-cons (accum-any) retval)
		#f))))))
marcink added codemirror edit mode with autodetection	r4026	</textarea></form>
		<script>
		var editor = CodeMirror.fromTextArea(document.getElementById("code"), {});
		</script>

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

		</body>
		</html>