From mboxrd@z Thu Jan  1 00:00:00 1970
Date: Sun, 17 Apr 2016 12:04:06 -0700
From: Endre Bakken Stovner <notifications@github.com>
Reply-To: kyleam/snakemake-mode <reply+0013cd7c1a49bdfaf4d2c31ecf1f61f4874c15b4ddb7e45a92cf00000001132ba02692a169ce08d23506@reply.github.com>
Message-ID: <kyleam/snakemake-mode/pull/6/c211084302@github.com>
In-Reply-To: <kyleam/snakemake-mode/pull/6@github.com>
References: <kyleam/snakemake-mode/pull/6@github.com>
Subject: Re: Support R syntax highlighting in R("""-blocks (#6)
Mime-Version: 1.0
Content-Type: multipart/alternative;
 boundary="--==_mimepart_5713de26e51be_3d8d3ff2934412c02310c3";
 charset=UTF-8
Content-Transfer-Encoding: 7bit
List-ID: kyleam/snakemake-mode <snakemake-mode.kyleam.github.com>
List-Archive: https://github.com/kyleam/snakemake-mode
List-Post: <mailto:reply+0013cd7c1a49bdfaf4d2c31ecf1f61f4874c15b4ddb7e45a92cf00000001132ba02692a169ce08d23506@reply.github.com>
List-Unsubscribe: <mailto:unsub+0013cd7c1a49bdfaf4d2c31ecf1f61f4874c15b4ddb7e45a92cf00000001132ba02692a169ce08d23506@reply.github.com>,
 <https://github.com/notifications/unsubscribe/ABPNfGYEQe00DYu8UfKfISAwBDMlQAhGks5p4oQmgaJpZM4IGLvT>
To: kyleam/snakemake-mode <snakemake-mode@noreply.github.com>
Cc: Kyle Meyer <kyle@kyleam.com>

----==_mimepart_5713de26e51be_3d8d3ff2934412c02310c3
Content-Type: text/plain;
 charset=UTF-8
Content-Transfer-Encoding: 7bit

I will open this as a separate PR if you accept the changes:

```elisp
;;;;;;;;;;;;; Will be added to snakemake-mode.el

;;; Embedded language syntax-highlighting

(defun snakemake-mode-setup-mmm ()
  "Call this function in your startup-file to automatically highlight embedded R-code.

You must have the R-strings either within a R(''' ''') function call or a code block delimited with '''#r and '''."

  (if (require 'mmm-mode nil 'noerror)
      (progn (require 'mmm-mode)
             (setq mmm-global-mode 'maybe)

             (mmm-add-classes
              '((snakemake-R-call-double
                 :submode R-mode
                 :front ".*R\(\"\"\""
                 :back ".*\"\"\"\)")))

             (mmm-add-classes
              '((snakemake-R-call-regular
                 :submode R-mode
                 :front ".*R\('''"
                 :back ".*'''\)")))

             (mmm-add-classes
              '((snakemake-R-string-double
                 :submode R-mode
                 :front ".*\"\"\" * # *[rR]"
                 :back ".*\"\"\"")))

             (mmm-add-classes
              '((snakemake-R-string-regular
                 :submode R-mode
                 :front ".*''' * # *[rR]"
                 :back ".*'''")))

             (mmm-add-mode-ext-class 'snakemake-mode nil 'snakemake-R-call-double)
             (mmm-add-mode-ext-class 'snakemake-mode nil 'snakemake-R-call-regular)
             (mmm-add-mode-ext-class 'snakemake-mode nil 'snakemake-R-string-double)
             (mmm-add-mode-ext-class 'snakemake-mode nil 'snakemake-R-string-regular))
    (error "You need to install mmm-mode")))

(snakemake-mode-setup-mmm)
```

I guess this should be documented, but it would be strange to document this when most of the package is not documented (in any README/FAQ file). Most users probably do not read the code.

---
You are receiving this because you commented.
Reply to this email directly or view it on GitHub:
https://github.com/kyleam/snakemake-mode/pull/6#issuecomment-211084302
----==_mimepart_5713de26e51be_3d8d3ff2934412c02310c3
Content-Type: text/html;
 charset=UTF-8
Content-Transfer-Encoding: 7bit

<p>I will open this as a separate PR if you accept the changes:</p>

<div class="highlight highlight-source-lisp"><pre><span class="pl-c">;;;;;;;;;;;;; Will be added to snakemake-mode.el</span>

<span class="pl-c">;;; Embedded language syntax-highlighting</span>

(<span class="pl-k">defun</span> <span class="pl-en">snakemake-mode-setup-mmm</span> ()
  <span class="pl-s"><span class="pl-pds">"</span>Call this function in your startup-file to automatically highlight embedded R-code.</span>
<span class="pl-s"></span>
<span class="pl-s">You must have the R-strings either within a R(''' ''') function call or a code block delimited with '''#r and '''.<span class="pl-pds">"</span></span>

  (<span class="pl-k">if</span> (require 'mmm-mode <span class="pl-c1">nil</span> 'noerror)
      (<span class="pl-c1">progn</span> (require 'mmm-mode)
             (<span class="pl-c1">setq</span> mmm-global-mode 'maybe)

             (mmm-add-classes
              '((snakemake-R-call-double
                 :submode R-mode
                 :front <span class="pl-s"><span class="pl-pds">"</span>.*R<span class="pl-cce">\(\"\"\"</span><span class="pl-pds">"</span></span>
                 :back <span class="pl-s"><span class="pl-pds">"</span>.*<span class="pl-cce">\"\"\"\)</span><span class="pl-pds">"</span></span>)))

             (mmm-add-classes
              '((snakemake-R-call-regular
                 :submode R-mode
                 :front <span class="pl-s"><span class="pl-pds">"</span>.*R<span class="pl-cce">\(</span>'''<span class="pl-pds">"</span></span>
                 :back <span class="pl-s"><span class="pl-pds">"</span>.*'''<span class="pl-cce">\)</span><span class="pl-pds">"</span></span>)))

             (mmm-add-classes
              '((snakemake-R-string-double
                 :submode R-mode
                 :front <span class="pl-s"><span class="pl-pds">"</span>.*<span class="pl-cce">\"\"\"</span> * # *[rR]<span class="pl-pds">"</span></span>
                 :back <span class="pl-s"><span class="pl-pds">"</span>.*<span class="pl-cce">\"\"\"</span><span class="pl-pds">"</span></span>)))

             (mmm-add-classes
              '((snakemake-R-string-regular
                 :submode R-mode
                 :front <span class="pl-s"><span class="pl-pds">"</span>.*''' * # *[rR]<span class="pl-pds">"</span></span>
                 :back <span class="pl-s"><span class="pl-pds">"</span>.*'''<span class="pl-pds">"</span></span>)))

             (mmm-add-mode-ext-class 'snakemake-mode <span class="pl-c1">nil</span> 'snakemake-R-call-double)
             (mmm-add-mode-ext-class 'snakemake-mode <span class="pl-c1">nil</span> 'snakemake-R-call-regular)
             (mmm-add-mode-ext-class 'snakemake-mode <span class="pl-c1">nil</span> 'snakemake-R-string-double)
             (mmm-add-mode-ext-class 'snakemake-mode <span class="pl-c1">nil</span> 'snakemake-R-string-regular))
    (error <span class="pl-s"><span class="pl-pds">"</span>You need to install mmm-mode<span class="pl-pds">"</span></span>)))

(snakemake-mode-setup-mmm)</pre></div>

<p>I guess this should be documented, but it would be strange to document this when most of the package is not documented (in any README/FAQ file). Most users probably do not read the code.</p>

<p style="font-size:small;-webkit-text-size-adjust:none;color:#666;">&mdash;<br />You are receiving this because you commented.<br />Reply to this email directly or <a href="https://github.com/kyleam/snakemake-mode/pull/6#issuecomment-211084302">view it on GitHub</a><img alt="" height="1" src="https://github.com/notifications/beacon/ABPNfPYfQ8n9hKnbUvuWD6NDK2ceT0ylks5p4oQmgaJpZM4IGLvT.gif" width="1" /></p>
<div itemscope itemtype="http://schema.org/EmailMessage">
<div itemprop="action" itemscope itemtype="http://schema.org/ViewAction">
  <link itemprop="url" href="https://github.com/kyleam/snakemake-mode/pull/6#issuecomment-211084302"></link>
  <meta itemprop="name" content="View Pull Request"></meta>
</div>
<meta itemprop="description" content="View this Pull Request on GitHub"></meta>
</div>

----==_mimepart_5713de26e51be_3d8d3ff2934412c02310c3--