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

Migrate to Mergely 3.3.4....

Migrate to Mergely 3.3.4. RhodeCode 2.2.5 distributed Mergely 3.3.4 with some of the changes that Mergely 3.3.3 in RhodeCode 1.7.2 also had. That do however not seem to be changes we want for Kallithea this way and we take the 3.3.4 files as they are. I've also included the Mergely license file, as downloaded from: http://www.mergely.com/license.php That LICENSE file is kept in HTML just as it was downloaded from their website. While it's a bit annoying to keep the license file in HTML, this is the way it came from upstream so we'll leave it that way. Since the Javascript code is used with other GPLv3 Javascript, we are using the GPL option of Mergely's tri-license. Finally, note that previously, this was incorrectly called "mergerly", so the opportunity is taken here to correct the name. That required changes to diff_2way.html. As commands:: $ wget -N --output-document LICENSE-MERGELY.html http://www.mergely.com/license.php $ hg add LICENSE-MERGELY.html $ hg mv rhodecode/public/css/mergerly.css rhodecode/public/css/mergely.css $ hg mv rhodecode/public/js/mergerly.js rhodecode/public/js/mergely.js $ sed -i 's,mergerly\.,mergely,g' rhodecode/templates/files/diff_2way.html $ ( cd /tmp; \ wget -N http://www.mergely.com/releases/mergely-3.3.4.zip; \ unzip mergely-3.3.4.zip ) $ sha256sum /tmp/mergely-3.3.4.zip 87415d30494bbe829c248881aa7cdc0303f7e70b458a5f687615564d4498cc82 mergely-3.3.4.zip $ cp /tmp/mergely-3.3.4/lib/mergely.js rhodecode/public/js/mergely.js $ cp /tmp/mergely-3.3.4/lib/mergely.css rhodecode/public/css/mergely.css $ sed -i -e '/^ \* Version/a\ *\n * NOTE by bkuhn@sfconservancy.org for Kallithea:\n * Mergely license appears at http://www.mergely.com/license.php and in LICENSE-MERGELY.html' rhodecode/public/js/mergely.js rhodecode/public/css/mergely.css

marcink - - Load All Authors

File last commit:

r4029:c9bcfe2d default


                r4125:aa3b5594

rhodecode-2.2.5-gpl

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>