├── .Rbuildignore
├── .Rinstignore
├── .gitignore
├── .travis.yml
├── DESCRIPTION
├── NAMESPACE
├── R
    ├── add.R
    ├── assets.R
    ├── author.R
    ├── bloghelpers.R
    ├── config.R
    ├── copy.R
    ├── layouts.R
    ├── package.R
    ├── parse.R
    ├── process.R
    ├── publish.R
    ├── render.R
    ├── slidify.R
    ├── update.R
    ├── urls.R
    ├── utils.R
    ├── widgets.R
    └── zzz.R
├── README.md
├── inst
    ├── skeleton
    │   ├── assets
    │   │   ├── css
    │   │   │   ├── .gitkeep
    │   │   │   └── ribbons.css
    │   │   ├── img
    │   │   │   └── .gitkeep
    │   │   ├── js
    │   │   │   └── .gitkeep
    │   │   └── layouts
    │   │   │   └── .gitkeep
    │   └── index.Rmd
    ├── tests
    │   ├── decks
    │   │   ├── deck1.Rmd
    │   │   └── deck2.Rmd
    │   └── test-split-slides.R
    └── www
    │   ├── favicon.png
    │   ├── index.html
    │   ├── jquery-1.10.2.min.js
    │   ├── opencpu-0.4.js
    │   ├── src-min-noconflict
    │       ├── ace.js
    │       ├── mode-markdown.js
    │       ├── mode-r.js
    │       ├── mode-rdoc.js
    │       ├── mode-rhtml.js
    │       └── theme-monokai.js
    │   └── underscore-min.js
├── man
    ├── author.Rd
    ├── publish.Rd
    ├── publish_dropbox.Rd
    ├── publish_github.Rd
    ├── publish_rpubs.Rd
    ├── render_page.Rd
    ├── runDeck.Rd
    ├── slidify-package.Rd
    ├── slidify.Rd
    └── slidifyDefaults.Rd
├── slidify.Rproj
└── tests
    └── test-all.R


/.Rbuildignore:
--------------------------------------------------------------------------------
1 | ^.*\.Rproj$
2 | ^\.Rproj\.user$
3 | /\.gitkeep$
4 | .git
5 | .travis.yml
6 | 
7 | 


--------------------------------------------------------------------------------
/.Rinstignore:
--------------------------------------------------------------------------------
1 | inst/docs
2 | inst/examples


--------------------------------------------------------------------------------
/.gitignore:
--------------------------------------------------------------------------------
 1 | .Rproj.user
 2 | .Rhistory
 3 | .RData
 4 | .DS_Store
 5 | .cache
 6 | examples/
 7 | makefile
 8 | docs/
 9 | NEWS*
10 | archive/
11 | 


--------------------------------------------------------------------------------
/.travis.yml:
--------------------------------------------------------------------------------
 1 | # Sample .travis.yml for R projects.
 2 | #
 3 | # See README.md for instructions, or for more configuration options,
 4 | # see the wiki:
 5 | #   https://github.com/craigcitro/r-travis/wiki
 6 | 
 7 | language: c
 8 | 
 9 | before_install:
10 |   - curl -OL http://raw.github.com/craigcitro/r-travis/master/scripts/travis-tool.sh
11 |   - chmod 755 ./travis-tool.sh
12 |   - ./travis-tool.sh bootstrap
13 | install:
14 |   - ./travis-tool.sh install_deps
15 | script: ./travis-tool.sh run_tests
16 | 
17 | on_failure:
18 |   - ./travis-tool.sh dump_logs
19 | 
20 | notifications:
21 |   email:
22 |     on_success: change
23 |     on_failure: change
24 | 


--------------------------------------------------------------------------------
/DESCRIPTION:
--------------------------------------------------------------------------------
 1 | Package: slidify
 2 | Type: Package
 3 | Title: Generate reproducible html5 slides from R markdown
 4 | Version: 0.5
 5 | Date: 2012-10-18
 6 | Authors@R: c(person("Ramnath", "Vaidyanathan", role = c("aut", "cre"),
 7 |                      email = "ramnath.vaidya@gmail.com"),
 8 |               person("John", "Muschelli", role = "ctb", 
 9 |               email = "muschellij2@gmail.com"))
10 | Author: Ramnath Vaidyanathan <ramnath.vaidya@gmail.com>
11 | Maintainer: Ramnath Vaidyanathan <ramnath.vaidya@gmail.com>
12 | Description: This package provides a tool to generate reproducible html5 slides
13 |     from R Markdown files. It supports multiple html5 slide frameworks.
14 | Depends:
15 |     R (>= 2.15.0)
16 | Imports:
17 |     knitr (>= 1.0.0),
18 |     markdown,
19 |     stringr (>= 1.0.0),
20 |     yaml,
21 |     whisker
22 | License: MIT
23 | URL: http://ramnathv.github.com/slidify/
24 | BugReports: https://github.com/ramnathv/slidify/issues
25 | BuildKeepEmpty: TRUE
26 | Collate:
27 |     'add.R'
28 |     'assets.R'
29 |     'author.R'
30 |     'bloghelpers.R'
31 |     'copy.R'
32 |     'config.R'
33 |     'layouts.R'
34 |     'package.R'
35 |     'parse.R'
36 |     'process.R'
37 |     'publish.R'
38 |     'render.R'
39 |     'slidify.R'
40 |     'update.R'
41 |     'urls.R'
42 |     'utils.R'
43 |     'widgets.R'
44 |     'zzz.R'
45 | 


--------------------------------------------------------------------------------
/NAMESPACE:
--------------------------------------------------------------------------------
 1 | export(author)
 2 | export(includeDeck)
 3 | export(parse_deck)
 4 | export(render_page)
 5 | export(render_pages)
 6 | export(runDeck)
 7 | export(publish)
 8 | export(publish_dropbox)
 9 | export(publish_gist)
10 | export(publish_github)
11 | export(publish_rpubs)
12 | export(blogify)
13 | export(pagify)
14 | export(slidify)
15 | export(slidify_text)
16 | export(view_deck)
17 | export(knit2slides)
18 | import(knitr)
19 | import(markdown)
20 | import(stringr)
21 | import(whisker)
22 | import(yaml)
23 | 


--------------------------------------------------------------------------------
/R/add.R:
--------------------------------------------------------------------------------
 1 | #' Add slide numbers to the slides
 2 | #'
 3 | #' @keywords internal
 4 | #' @noRd
 5 | add_slide_numbers <- function(slides){
 6 |   for (i in seq_along(slides)){
 7 |     slides[[i]]['num'] <- i
 8 |   }
 9 |   return(slides)
10 | }
11 | 
12 | #' Add ids for slides with no defaults
13 | #'
14 | #' @keywords internal
15 | #' @noRd
16 | add_missing_id <- function(slides){
17 |   for (i in seq_along(slides)){
18 |     if (length(slides[[i]]$id) == 0){
19 |       slides[[i]]['id'] = sprintf("slide-%s", i)
20 |     }
21 |   }
22 |   return(slides)
23 | }
24 | 
25 | add_slide_rmd <- function(slides, slide_rmd){
26 |   for (i in seq_along(slides)){
27 |       slides[[i]]['raw'] = slide_rmd[i] 
28 |   }
29 |   return(slides)
30 | }
31 | 
32 | # Add raw R markdown source to slide vars
33 | # 
34 | # @noRd
35 | #  Remove preceding newlines to optimize display of source code.
36 | # add_raw_rmd <- function(slides, source){
37 | #   raw_rmd <- doc2slides(source)
38 | #   for (i in seq_along(slides)){
39 | #     slides[[i]]['raw'] <- paste(raw_rmd[[i]][-1], collapse = "\n")
40 | #   }
41 | #   return(slides)
42 | # }
43 | 


--------------------------------------------------------------------------------
/R/assets.R:
--------------------------------------------------------------------------------
 1 | #' Get javascripts
 2 | #' 
 3 | #' @keywords internal
 4 | #' @noRd
 5 | get_javascripts <- function(deck){
 6 |   make_path <- function(asset, url){
 7 |     html_file = file.path(url, asset, sprintf("%s.html", asset))
 8 |     file_there = file.exists(html_file)
 9 |     return(html_file[file_there])
10 |   }
11 |   asset_js  = dir(file.path(deck$url$assets, 'js'), full.names = T, pattern = '.js$')
12 |   widget_js = with(deck, make_path(widgets, url$widgets))
13 |   hilite_js = with(deck, make_path(highlighter, url$highlighters))
14 |   javascripts = lapply(c(widget_js, hilite_js), read_file)
15 |   # javascripts = c(javascripts, sprintf("<script src='%s'></script", asset_js))
16 |   paste(paste(javascripts, collapse = '\n'), "\n")
17 | }
18 | 
19 | #' Add stylesheets
20 | #' 
21 | #' @keywords internal
22 | #' @noRd
23 | add_stylesheets <- function(deck){
24 |   asset_css  = dir(file.path(deck$url$assets, 'css'), full.names = T)
25 |   widget_css = lapply(file.path(deck$url$widgets, deck$widgets, 'css'), 
26 |     dir, full = T)
27 |   css = c(unlist(widget_css), asset_css)
28 |   tpl = '{{# css }}<link rel="stylesheet" href = "{{.}}">\n{{/ css}}'
29 |   deck$stylesheets = whisker.render(tpl)
30 |   return(deck)
31 | }
32 | 
33 | # Get user and widget stylesheets 
34 | get_stylesheets <- function(deck){
35 |   asset_css  = dir(file.path(deck$url$assets, 'css'), full.names = T)
36 |   widget_css = lapply(file.path(deck$url$widgets, deck$widgets, 'css'), 
37 |     dir, full = T)
38 |   c(unlist(widget_css), asset_css)
39 | }
40 | 
41 | 
42 | # Behaviors of Add Stylesheets
43 | # 1. Simply add each of the css files as links in the HTML (draft)
44 | # 2. Combine and Minify CSS and add single link in the HTML (production)
45 | # 3. Combine and Minify CSS and add inline in HTML (production, standalone)
46 | 
47 | # Pseudocode
48 | # 1. Get list of stylesheets `assets/css` and `widgets/widget/css`
49 | # 2. 
50 | 
51 | # I can think of three modes, which can be passed directly to slidify.
52 | # 
53 | # 1. `draft`         -> serve from package library, add css files as links
54 | # 2. `standalone`    -> serve from cdn, combine, minify and add css inline
55 | # 3. `selfcontained` -> copy libraries, combine, minify and add as link
56 | # 
57 | # The idea is to use `draft` mode to play around with the deck, modify css and test different versions. 
58 | # 
59 | # For Rpubs, I can pass mode = 'standalone'


--------------------------------------------------------------------------------
/R/author.R:
--------------------------------------------------------------------------------
 1 | #' Author a slide deck
 2 | #' 
 3 | #' This function creates a slide directory, initializes it as a git repo and
 4 | #' opens index.Rmd for users to edit.
 5 | #' @param deckdir path to new slide directory
 6 | #' @param use_git whether to initialize directory as git repo
 7 | #' @param open_rmd whether to open the rmd file created
 8 | #' @param scaffold path to directory containing scaffold for deck 
 9 | #' @export
10 | author <- function(deckdir, use_git = TRUE, open_rmd = TRUE, 
11 |     scaffold = system.file('skeleton', package = 'slidify')){
12 |   message('Creating slide directory at ', deckdir, '...')
13 |   #   if (file.exists(deckdir)){
14 |   #     return('Directory already exists. Please choose a different name.')
15 |   #   }
16 |   copy_dir(scaffold, deckdir)
17 |   message('Finished creating slide directory...')
18 |   message('Switching to slide directory...')
19 |   setwd(deckdir)
20 |   if (use_git && Sys.which('git') != ""){
21 |     init_repo()
22 |   }
23 |   if (open_rmd){
24 |     message('Opening slide deck...')
25 |     file.edit('index.Rmd')
26 |   }
27 | }
28 | 
29 | #' Initialize a git repository, create and switch to gh-pages branch.
30 | #' 
31 | #' @keywords internal
32 | #' @noRd
33 | init_repo <- function(){
34 |   message('Initializing Git Repo')
35 |   system("git init")
36 |   system("git commit --allow-empty -m 'Initial Commit'")
37 |   message("Checking out gh-pages branch...")
38 |   system('git checkout -b gh-pages')
39 |   message('Adding .nojekyll to repo')
40 |   file.create('.nojekyll')
41 | }


--------------------------------------------------------------------------------
/R/bloghelpers.R:
--------------------------------------------------------------------------------
 1 | #' Get pages by tags
 2 | #' 
 3 | #' @noRd
 4 | get_tags <- function(pages){
 5 |   get_pages_by_groups(pages, gby = 'tags')
 6 | }
 7 | 
 8 | #' Get pages by categoris
 9 | #' 
10 | #' @noRd
11 | get_categories <- function(pages){
12 |   get_pages_by_groups(pages, gby = 'categories')
13 | }
14 | 
15 | #' Get pages by group
16 | #'
17 | #' @noRd
18 | get_pages_by_groups <- function(pages, gby = 'tags'){
19 |   get_pages_by_group = function(g){
20 |     p = pages[sapply(pages, function(page) g %in% page[[gby]])]
21 |     p = lapply(p, '[', c('title', 'file', 'date', 'link'))
22 |     list(pages = p, name = g, count = length(p))
23 |   }
24 |   get_all_groups <- function(){
25 |     g = lapply(pages, '[[', gby)
26 |     Reduce('union', g)
27 |   }
28 |   x  = lapply(get_all_groups(), get_pages_by_group)
29 |   y = setNames(x, lapply(x, pluck('name')))
30 |   y$all = x
31 |   y
32 | }
33 | 
34 | sort_posts_on_date <- function(posts){
35 |   dates = sapply(posts, '[[', 'date')
36 |   idx = rev(sort(dates, index.return = TRUE)$ix)
37 |   return(posts[idx])
38 | }
39 | 
40 | add_next_post <- function(posts){
41 |   posts_ = list()
42 |   for (i in 1:(length(posts) - 1)){
43 |     post_ = posts[[i]]
44 |     post_[['next']] = posts[[i + 1]][c('title', 'link', 'image', 'quote')]
45 |     post_[['next']]['image'] = paste(
46 |       "", dirname(post_[['next']]$link), post_[['next']]$image, sep = '/'
47 |     )
48 |     post_[['next']]$link = paste0("/", post_[['next']]$link)
49 |     posts_[[i]] = post_
50 |   }
51 |   return(c(posts_, posts[length(posts)]))
52 | }
53 | 


--------------------------------------------------------------------------------
/R/config.R:
--------------------------------------------------------------------------------
 1 | #' Default configuration
 2 | #'
 3 | #  Figure out a better mechanism for specifying defaults
 4 | slidifyDefaults <- function(){list(
 5 |   url = list(assets = "assets"),
 6 |   framework   = 'io2012',
 7 |   theme       = "", 
 8 |   highlighter = 'highlight.js',  
 9 |   hitheme     = 'tomorrow',
10 |   copy_libraries = TRUE,
11 |   mode = 'standalone',
12 |   widgets = list(),
13 |   onefile = FALSE
14 | )}
15 | 
16 | #' Get configuration
17 | #' 
18 | #' A config.yml file in the root directory of the slide deck can be used to 
19 | #' override the default configuration. YAML front matter in the Rmd file overrides
20 | #' everything.
21 | #' 
22 | #' @param cfile path to config file
23 | #' @return list of config options
24 | #' @keywords internal
25 | #' @noRd
26 | get_config <- function(cfile = 'config.yml'){
27 |   config = slidifyDefaults()
28 |   if (file.exists(cfile)){
29 |     config = modifyList(config, yaml::yaml.load_file(cfile))
30 |   }
31 |   return(config)
32 | }
33 | 
34 | #' Add default configuration of framework to fill up missing elements
35 | #' 
36 | #' @keywords internal
37 | #' @noRd
38 | add_config_fr <- function(deck){
39 |   config_file <- file.path(deck$url$framework, "config.yml")
40 |   if (file.exists(config_file)){
41 |     config <- yaml.load_file(config_file)
42 |     deck <- modifyList(config, deck)
43 |   }
44 |   cfile = deck$url$config
45 |   if (!is.null(cfile) && file.exists(cfile)){
46 |     config <- yaml.load_file(cfile)
47 |     deck <- modifyList(config, deck)
48 |   }
49 |   return(deck)
50 | }
51 | 


--------------------------------------------------------------------------------
/R/copy.R:
--------------------------------------------------------------------------------
 1 | #' Copy directories recursively, creating a new directory if not already there
 2 | #' 
 3 | #' @keywords internal
 4 | #' @noRd
 5 | copy_dir <- function(from, to){
 6 |   if (!(file.exists(to))){
 7 |     dir.create(to, recursive = TRUE)
 8 |     message('Copying files to ', to, '...')
 9 |     file.copy(list.files(from, full.names = T), to, recursive = TRUE)
10 |   }
11 | }
12 | 
13 | #' Copy libraries: framework, highlighter and widgets
14 | #' 
15 | #' @keywords internal
16 | #' @noRd
17 | copy_libraries <- function(framework, highlighter, widgets, url_lib, pkg = 'slidifyLibraries'){
18 |   copy_resource <- function(subdir, resource){
19 |     copy_dir(
20 |      from = system.file('libraries', subdir, resource, package = pkg),
21 |      to = file.path(url_lib, subdir, resource)
22 |     )
23 |   }
24 |   # stop and give an error message if slidifyLibraries is not installed
25 |   if (!is_installed("slidifyLibraries")){
26 |     stop("Please install slidifyLibraries");
27 |   }
28 |   copy_resource('frameworks', framework)
29 |   copy_resource('highlighters', highlighter)
30 |   invisible(lapply(widgets, copy_resource, subdir = 'widgets'))
31 | }
32 | 
33 | #' Copy external widgets from other libraries
34 | #' 
35 | #' @keywords internal
36 | #' @noRd
37 | copy_external_widgets <- function(ext_widgets, url_lib){
38 |   ext_widget_paths = lapply(names(ext_widgets), function(e){
39 |     x = strsplit(ext_widgets[[e]], '/')
40 |     y = function(...){ system.file(..., package = e) }
41 |     sapply(x, function(z) do.call('y', as.list(z)))
42 |   })
43 |   invisible(lapply(unlist(ext_widget_paths), function(epath){
44 |      copy_dir(
45 |        from = epath,
46 |        to = file.path(url_lib, 'widgets', basename(epath))
47 |      )
48 |   }))
49 | }
50 | 


--------------------------------------------------------------------------------
/R/layouts.R:
--------------------------------------------------------------------------------
 1 | #' Read layout files 
 2 | #' 
 3 | #' @param path path to directory containing layout files
 4 | #' @return named list of layouts
 5 | #' @keywords internal
 6 | #' @noRd
 7 | read_layouts <- function(path){
 8 |   files = dir(path, pattern = '*.html', full.names = T)
 9 |   setNames(
10 |     lapply(files, read_file),
11 |     gsub(".html", '', basename(files), fixed = TRUE)
12 |   )
13 | }
14 | 
15 | #' Expand child layouts
16 | #'
17 | #' @param layouts layout to be expanded
18 | #' @return named list of expanded layouts
19 | #' @keywords internal
20 | #' @noRd
21 | expand_layouts <- function(layouts){
22 |   #' Expand a child layout 
23 |   expand_layout <- function(layout){
24 |     mpat <- "^---\nlayout\\s*: ([[:alnum:]]+)\n---\n(.*)$"
25 |     has_parent <- grepl(mpat, layout)
26 |     if (has_parent){
27 |        main <- layouts[[gsub(mpat, '\\1', layout)]]
28 |        content <- gsub(mpat, "\\2", layout)
29 |        layout <- sub("{{{ slide.content }}}", content, main, fixed = TRUE)
30 |      }
31 |     return(layout)
32 |   }
33 |   lapply(layouts, expand_layout)
34 | }
35 | 
36 | #' Expand child layouts
37 | #'
38 | #' Provides more control over what element to replace inside the parent layout.
39 | #' @param layouts layout to be expanded
40 | #' @return named list of expanded layouts
41 | #' @keywords internal
42 | #' @noRd
43 | expand_layout2 <- function(layout, layouts){
44 |   has_parent <- grepl("^---", layout)
45 |   if (has_parent){
46 |     txt = str_split_fixed(layout, '\n---', 2)
47 |     meta = yaml.load(gsub("^---\n+", '', txt[1]))
48 |     pattern = paste("{{{", meta$replace, '}}}')
49 |     replacement = layouts[meta$layout]
50 |     layout <- sub(pattern, replacement, txt[2], fixed = TRUE)
51 |   }
52 |   return(layout)
53 | }
54 | 
55 | #' Get layouts from list of paths provided
56 | #'
57 | #' @param paths list of paths to directories containing layout files
58 | #' @keywords internal
59 | #' @noRd
60 | get_layouts <- function(paths){
61 |   layouts = Reduce('modifyList', lapply(paths, read_layouts))
62 |   for (i in 1:3) {
63 |     layouts = expand_layouts(layouts)
64 |   }
65 |   layouts
66 | }
67 | 
68 | #' Get default slide layout for a framework
69 | #' 
70 | #' @noRd
71 | # TODO: Move this to slidifyLibraries
72 | get_slide_layout <- function(framework){
73 |   l_file = system.file('libraries', 'frameworks', framework, 'layouts', 
74 |    'slide.html', package = 'slidifyLibraries')
75 |   cat(slidify:::read_file(l_file))
76 | }
77 | 


--------------------------------------------------------------------------------
/R/package.R:
--------------------------------------------------------------------------------
 1 | #' Create stunning presentations from R Markdown
 2 | #' 
 3 | #' Slidify is an R package to create, customize and publish HTML5 slide decks 
 4 | #' from R Markdown. See the package website in the references for more
 5 | #' information and examples.
 6 | #' @docType package
 7 | #' @name slidify-package
 8 | #' @author Ramnath Vaidyanathan <\url{http://www.slidify.org}>
 9 | #' @seealso The core function in this package: \code{\link{slidify}}
10 | #' @references Full documentation and demos: \url{http://www.slidify.org};
11 | #'   FAQ's: \url{https://github.com/ramnathv/slidify/blob/master/FAQ.md}
12 | #' @import stringr
13 | #' @import knitr
14 | #' @import markdown
15 | #' @import stringr
16 | #' @import yaml
17 | #' @import whisker
18 | NULL


--------------------------------------------------------------------------------
/R/parse.R:
--------------------------------------------------------------------------------
  1 | #' Parse pages
  2 | #' 
  3 | #' @noRd
  4 | parse_pages <- function(postFiles, envir){
  5 |   lapply(postFiles, parse_page, envir = envir)
  6 | }
  7 | 
  8 | #' Parse page
  9 | #'
 10 | #' @noRd
 11 | parse_page <- function(postFile, knit_deck = TRUE, envir){
 12 |   in_dir(dirname(postFile), {  
 13 |     inputFile = basename(postFile)
 14 |     opts_chunk$set(fig.path = "assets/fig/", cache.path = '.cache/', cache = TRUE)
 15 |     outputFile <- gsub(".[r|R]md", ".md", inputFile)
 16 |     deckFile <- ifelse(knit_deck, 
 17 |       knit(inputFile, outputFile, envir = envir), inputFile)
 18 |     post <- deckFile %|% parse_deck
 19 |     post$file = postFile
 20 |     post$filename = tools:::file_path_sans_ext(inputFile)
 21 |     if (!is.null(post$date)) {
 22 |       post$date = as.Date(post$date, '%Y-%m-%d')
 23 |       post$pubDate = format(post$date, "%a, %d %b %Y %H:%M:%S %z")
 24 |     }
 25 |     post$link = gsub("*.Rmd", ".html", post$file)
 26 |     post$raw = read_file(inputFile)
 27 |     # saveRDS(post, file = "_payload.rds")
 28 |   })
 29 |   return(post)
 30 | }
 31 | 
 32 | #' Parse deck into metdata and slide elements
 33 | #' 
 34 | #' @param inputFile path to markdown file to parse
 35 | #' @noRd
 36 | parse_deck <- function(inputFile){
 37 |   deck = inputFile %|% to_deck 
 38 |   deck$slides = deck$slides %|% split_slides %|% parse_slides  
 39 |   deck$slides = deck$slides %|% add_slide_numbers %|% add_missing_id
 40 |   slide_rmd <- get_slide_rmd(sub(".md", ".Rmd", inputFile))
 41 |   deck$slides = add_slide_rmd(deck$slides, slide_rmd)
 42 |   return(deck)
 43 | }
 44 | 
 45 | #' Parse slides into constitutent elements
 46 | #'
 47 | #' @keywords internal
 48 | #' @noRd
 49 | parse_slides <- function(slides){
 50 |   lapply(slides, parse_slide)
 51 | }
 52 | 
 53 | #' Parse slide into metadata and body
 54 | #'
 55 | #' @keywords internal
 56 | #' @noRd
 57 | parse_slide <- function(slide){
 58 |   slide <- str_split(slide, "\n\\*{3}")[[1]] %|% split_meta
 59 |   # slide <- str_split(slide, "\n\\*{3}")[[1]] # slide to blocks   
 60 |   # slide <- str_split_fixed(slide, '\n', 2)   # blocks to metadata
 61 |   slide <- apply(slide, 1, function(x){
 62 |     y_meta <- if(grepl("{", x[1], fixed = TRUE)) {
 63 |       parse_meta3(x[1])
 64 |     } else {
 65 |       parse_meta(x[1])
 66 |     }
 67 |     # FIXME: figure out why the ifelse does not work correctly.
 68 |     # y_body = ifelse(y_meta$class %?=% 'YAML', yaml.load(x[2]), parse_body(x[2]))
 69 |     if (y_meta$class %?=% 'YAML'){
 70 |       y_body = yaml.load(x[2])
 71 |     } else {
 72 |       y_body = parse_body(x[2])
 73 |     }
 74 |       y = modifyList(y_body, y_meta)
 75 |   })
 76 |   if (length(slide) > 1){
 77 |     main  = slide[[1]]
 78 |     named = Filter(function(z) !is.null(z$name), slide[-1])
 79 |     names(named) = lapply(named, '[[', "name")
 80 |     blocks = Filter(function(z) is.null(z$name), slide[-1])
 81 |     blocks = lapply(seq_along(blocks), function(i){
 82 |       modifyList(blocks[[i]], list(num = i))
 83 |     })
 84 |     slide  = c(main, named, list(blocks = blocks))
 85 |   } else {
 86 |     slide = slide[[1]]
 87 |   }
 88 |   return(slide)
 89 | }
 90 | 
 91 | 
 92 | split_meta <- function(blocks){
 93 |   split_block <- function(block){
 94 |     if (grepl("^\\s*\\{", block)){
 95 |       block <- str_split_fixed(block, "\\}\n", 2)
 96 |       block[1] <- paste(block[1], "}")
 97 |     } else {
 98 |       block <- str_split_fixed(block, "\n", 2)
 99 |     }
100 |     return(block)
101 |   }
102 |   t(sapply(blocks, split_block, USE.NAMES = F))
103 | }
104 | 
105 | #' Parse slide metadata into list
106 | #'
107 | #' Arbitrary metadata can be added to slide header as key:value pairs 
108 | #' Slide classes, id and layouts can also be defined using prefixes
109 | #' class = ., id = #, layouts = &
110 | #' @keywords internal
111 | #' @noRd
112 | # 1. Refactor this function so that it is more elegant.
113 | # 2. One limitation is that key/values cannot contain any spaces.
114 | # 3. Rename tpl to layout to maintain consistency.
115 | parse_meta <- function(meta){
116 |   x <- strsplit(meta, ' ')[[1]]
117 |   x <- sub('^#', 'id:', x)
118 |   x <- sub('&', 'tpl:', x, fixed = T)
119 |   x <- sub('^\\.', 'class:', x)
120 |   x <- sub('^=', 'name:', x)
121 |   y <- str_split_fixed(x[grep(":", x)], ":", 2)
122 |   y1 = y[,1]; y2 = y[,2]
123 |   meta  = as.list(y2[y1 != 'class'])
124 |   names(meta) = y1[y1 != 'class']
125 |   meta$class = paste(y2[y1 == 'class'], collapse = ' ')
126 |   filter_blank(meta)
127 | }
128 | 
129 | #' Parse slide metadata into list
130 | #' 
131 | #' @noRd
132 | #' Metadata is enclosed within a pair of curly braces and is required to 
133 | #' be valid YAML. Commonly used metadata keys have predefined shortcuts.
134 | #' So . expands to class: , # expands to id: and & expands to layout: 
135 | #' IDEA: Use options, so that user can customize further shortcuts.
136 | parse_meta2 <- function(x){
137 |   myrepl = list(c('\\.', 'class: '), c('\\#', 'id: '), c('\\&', 'tpl: '))
138 |   x1 = mgsub(myrepl, gsub("^\\{(.*)\\}$", "\\1", x))
139 |   x2 = str_split_fixed(x1, "\n", 2)
140 |   y1 = yaml.load(sprintf("{%s}", x2[1]))
141 |   if (x2[2] != ""){
142 |     y1 = modifyList(y1, y2)
143 |   }
144 |   if (!is.null(y1$class)){
145 |     y1$class = paste(y1$class, collapse = " ")
146 |   }
147 |   return(y1)
148 | }
149 | 
150 | #' @noRd
151 | parse_meta3 <- function(x){
152 |   myrepl = list(c('\\.', 'class: '), c('\\#', 'id: '), c('\\&', 'tpl: '))
153 |   # y1 = yaml.load(mgsub(myrepl, x))
154 |   y1 = yaml.load(x)
155 |   if (!is.null(y1$class)){
156 |     y1$class = paste(y1$class, collapse = " ")
157 |   }
158 |   return(y1)
159 | }
160 | 
161 | #' Parse slide body into list
162 | #'
163 | #' @param body slide contents without the metadata header
164 | #' @keywords internal
165 | #' @noRd
166 | parse_body <- function(body){
167 |   html = ifelse(body != '', md2html(body), '')
168 |   pat = '^(<h([0-9])>([^\n]*)</h[0-9]>)?\n*(.*)$'
169 |   pat = regex(pat, dotall = TRUE, multiline = TRUE)
170 |   body = setNames(as.list(str_match(html, pat)),
171 |                   c('html', 'header', 'level', 'title', 'content'))
172 |   # body = modifyList(body, parse_content(body$content))
173 |   # HACK: So that landslide h1's with no content are centered
174 |   if (body$content == "" | is.na(body$content)){
175 |     body$content = NULL
176 |   }
177 |   if (body$header == "" | is.na(body$header)){
178 |     body$header = NULL
179 |   }
180 |   return(body)
181 | }
182 | 


--------------------------------------------------------------------------------
/R/process.R:
--------------------------------------------------------------------------------
 1 | #' Split document into metadata and slides
 2 | #' 
 3 | #' @param doc path to source file
 4 | #' @return list with metadata and slides
 5 | #' @keywords internal
 6 | #' @noRd
 7 | to_deck <- function(doc){
 8 |   txt = str_split_fixed(read_file(doc), '\n---', 2)
 9 |   meta = yaml.load(gsub("^---\n+", '', txt[1]))
10 |   cfile = ifelse(is.null(meta$config), 'config.yml', meta$config)
11 |   deck = modifyList(get_config(cfile), c(meta, slides = txt[2]))
12 |   deck$standalone = ifelse(deck$mode == "standalone", TRUE, FALSE)
13 |   return(deck)
14 | }
15 | 
16 | #' Split slides into individual slides
17 | #'
18 | #' Slides are separated by a newline followed by three horizontal dashes.
19 | #' An empty new line SHOULD precede the three horizontal dashes, otherwise
20 | #' it will not be treated as a slide separator
21 | #' @keywords internal
22 | #' @noRd
23 | split_slides <- function(slides, pat = '\n\n---'){
24 |   str_split(slides, pattern = pat)[[1]]
25 | }
26 | 


--------------------------------------------------------------------------------
/R/publish.R:
--------------------------------------------------------------------------------
  1 | #' Publish slide deck
  2 | #' 
  3 | #' This function makes it easy to publish your presentation. Currently supported
  4 | #' hosts include Github, RPubs and Dropbox.
  5 | #' 
  6 | #' @param host where to publish presentation, Github, RPubs or Dropbox
  7 | #' @param ... parameters to be passed to \code{\link{publish_github}}, 
  8 | #'   \code{\link{publish_rpubs}} or \code{\link{publish_dropbox}}
  9 | #' @family publish
 10 | #' @export
 11 | publish <- function(..., host = 'github'){
 12 |   publish_deck <- switch(host, 
 13 |      github = publish_github, 
 14 |     dropbox = publish_dropbox,
 15 |       rpubs = publish_rpubs,
 16 |       gist  = publish_gist
 17 |   )
 18 |   publish_deck(...)
 19 | }
 20 | 
 21 | #' Publish slide deck to Github
 22 | #' 
 23 | #' You will need \code{git} installed on your computer and a \code{github}
 24 | #' account. In addition, you will \code{SSH} access to \code{github}. See 
 25 | #' \url{https://help.github.com/articles/generating-ssh-keys} on how to set up
 26 | #' \code{SSH} access
 27 | #' 
 28 | #' Login with your github account and create a new repository 
 29 | #' \url{https://help.github.com/articles/creating-a-new-repository}. Note that 
 30 | #' Github will prompt you to add a README file, but just use the defaults so 
 31 | #' that your repo is empty. You will need to have \code{git} installed on your 
 32 | #' computer and be able to push to \code{github} using SSH
 33 | #' 
 34 | #' 
 35 | #' @param repo github reponame
 36 | #' @param username github username
 37 | #' @family publish
 38 | #' @export
 39 | publish_github <- function(repo, username = getOption('github.user')){
 40 |   if (!file.exists('libraries')){
 41 |     message('Please set mode to selfcontained and run Slidify')
 42 |     message('This would place library files in the slide folder')
 43 |     message('making it self-contained')
 44 |     invisible(return(FALSE))
 45 |   }
 46 |   # check if git repo exists, else initialize new repo with gh-pages
 47 |   if (!file.exists('.git')){
 48 |     init_repo()
 49 |   }
 50 |   # check if .nojekyll exists, else add it to the repo
 51 |   if (!file.exists('.nojekyll')){
 52 |     message("Adding .nojekyll to your repo...")
 53 |     file.create(".nojekyll")
 54 |   }
 55 |   message('Publishing deck to ', username, '/', repo)
 56 |   system('git add .')
 57 |   system('git commit -a -m "publishing deck"')
 58 |   system(sprintf('git push git@github.com:%s/%s gh-pages', username, repo))
 59 |   link = sprintf('http://%s.github.com/%s', username, repo)
 60 |   message('You can now view your slide deck at ', link)
 61 |   browseURL(link)
 62 | }
 63 | 
 64 | #' Publish slide deck to Dropbox
 65 | #' 
 66 | #' @param dirname name of directory to publish to; defaults to slide directory
 67 | #' @family publish
 68 | #' @export
 69 | publish_dropbox <- function(dirname){
 70 |   if (missing(dirname)){
 71 |     dirname = basename(getwd())
 72 |   }
 73 |   drop_dir = file.path('~/Dropbox/Public', dirname)
 74 |   message('Creating slide directory at ', drop_dir)
 75 |   dir.create(drop_dir)
 76 |   message('Copying files to ', drop_dir)
 77 |   file.copy(".", drop_dir, overwrite = F, recursive = TRUE)
 78 | }
 79 | 
 80 | #' Publish slide deck to rPubs
 81 | #' 
 82 | #' @param title title of the presentation
 83 | #' @param html_file path to html file to publish; defaults to index.html
 84 | #' @export
 85 | publish_rpubs <- function(title, html_file = 'index.html'){
 86 |   html = html_file %|% embed_images %|% enable_cdn
 87 |   html_out = tempfile(fileext = '.html')
 88 |   writeLines(html, html_out)
 89 |   url = rpubsUpload(title, html_out)$continueUrl
 90 |   browseURL(url)
 91 | }
 92 | 
 93 | #' Publish slide deck to gist
 94 | #' 
 95 | #' @param title title of the presentation
 96 | #' @param files list of files to publish, defaults to index.* files
 97 | #' @export
 98 | publish_gist <- function(title, 
 99 |   filenames = dir(".", pattern = "index"), public = T){
100 |   require(httr)
101 |   files = lapply(filenames, function(file) {
102 |     x = list(content = paste(readLines(file, warn = F), collapse = "\n"))
103 |   })
104 |   names(files) = basename(filenames)
105 |   body = list(description = title, files = files, public = public)
106 |   
107 |   credentials = getCredentials()
108 |   response = POST(
109 |     url = "https://api.github.com/gists", 
110 |     body = rjson::toJSON(body), 
111 |     config = c(
112 |       authenticate(
113 |         getOption("github.username"), 
114 |         getOption("github.password"), 
115 |         type = "basic"
116 |     ), 
117 |     add_headers(`User-Agent` = "Dummy"))
118 |   )
119 |   html_url = content(response)$html_url
120 |   message("Your deck has been published")
121 |   message("View deck at ", paste('http://bl.ocks.org',   
122 |    getOption('github.username'), "raw", basename(html_url), sep = "/")
123 |   )
124 | }
125 | 
126 | #' @internal
127 | getCredentials = function (){
128 |   if (is.null(getOption("github.username"))){
129 |     username <- readline("Please enter your github username: ")
130 |     options(github.username = username)
131 |   }
132 |   if (is.null(getOption("github.password"))){
133 |     password <- readline("Please enter your github password: ")
134 |     options(github.password = password)
135 |   }
136 | }
137 | 
138 | 
139 | 
140 | 


--------------------------------------------------------------------------------
/R/render.R:
--------------------------------------------------------------------------------
  1 | #' Render a slide
  2 | #' 
  3 | #' @param slide list containing elements of the parsed slide
  4 | #' @param layouts list of layouts
  5 | #' @param payload list containing site and page, useful for blogs
  6 | #' @noRd
  7 | #  TOTHINK: Should partials also be passed along?
  8 | render_slide <- function(slide, layouts, payload){
  9 |   default = "{{{slide.header}}}\n{{{slide.content}}}"
 10 |   layout  = layouts[[slide$tpl %||% 'slide']] %||% slide$tpl2 %||% default
 11 |   payload = modifyList(payload, list(slide = slide))
 12 |   slide$rendered = whisker.render(layout, payload, partials = layouts) %|% update_classes
 13 |   raw_slide = !is.null(slide$class) && grepl('RAW', slide$class)
 14 |   if (!(raw_slide)){
 15 |     slide$rendered = whisker.render(slide$rendered, payload, partials = layouts)
 16 |   }
 17 |   
 18 |   return(slide)
 19 | }
 20 | 
 21 | #' Render slides
 22 | #' @noRd
 23 | render_slides <- function(slides, layouts, payload){
 24 |   lapply(slides, render_slide, layouts = layouts, payload = payload)
 25 | }
 26 | 
 27 | 
 28 | #' Render page
 29 | #' 
 30 | #' @param page list containing the parsed page
 31 | #' @param payload list containing site and pages
 32 | #  TODO: Refactor by splitting code into smaller manageable chunks
 33 | render_page <- function(page, payload, return_page = FALSE, save_payload = FALSE){
 34 |   in_dir(dirname(page$file), {
 35 |     if (page$mode == 'selfcontained'){
 36 |       page$url[['lib']] <- page$url[['lib']] %||% 'libraries'
 37 |       with(page, copy_libraries(framework, highlighter, widgets, url$lib))
 38 |       if (!is.null(page$ext_widgets)){
 39 |         copy_external_widgets(page$ext_widgets, page$url$lib)
 40 |       }
 41 |     }
 42 |     
 43 |     # add layouts, urls and stylesheets from frameworks, widgets and assets
 44 |     page = page %|% add_urls %|% add_stylesheets %|% add_config_fr
 45 |     if (!is.null(page$ext_widgets)){
 46 |       page$widgets = c(page$widgets, basename(unlist(page$ext_widgets)))
 47 |     }
 48 |   
 49 |     
 50 |     widget_configs = read_configs(page$widgets, page$url$widgets)
 51 |     widget_configs = modifyList(widget_configs, read_config('assets', "."))
 52 |     widget_configs = modifyList(widget_configs, list(custom = page$assets))
 53 |     
 54 |     if (page$onefile %?=% TRUE){
 55 |       framework_config = read_config(page$framework, file.path(page$url$lib, 'frameworks'))
 56 |       highlighter_config = read_config(page$highlighter, 
 57 |         file.path(page$url$lib, 'highlighters')
 58 |       )
 59 |       highlighter_config[[1]]$css = file.path(page$url$highlighters, 
 60 |         page$highlighter, "css", paste0(page$hitheme, '.css')
 61 |       )
 62 |       widget_configs = c(widget_configs, framework_config, highlighter_config)
 63 |     }
 64 | 
 65 |     page$assets = as.list(sapply(c('css', 'js', 'jshead', 'ready'), function(x){
 66 |       return(get_assets(x, widget_configs, standalone = page$onefile))
 67 |     }))
 68 |     
 69 |     layouts = get_layouts(page$url$layouts)
 70 |     
 71 |     # Quick Fix for Backward Compatibility with Older slidifyLibraries
 72 |     path_to_partials = file.path(page$url$framework, 'partials')
 73 |     if (file.exists(path_to_partials)){
 74 |       partials = get_layouts(path_to_partials)
 75 |     } else {
 76 |       partials = get_layouts(file.path(page$url$framework, 'layouts'))
 77 |     }
 78 |     partials = modifyList(partials, list(javascripts = get_javascripts(page)))
 79 |       
 80 |     payload = modifyList(payload, list(page = page))
 81 |     
 82 |     
 83 |     page$slides = render_slides(page$slides, layouts, payload)
 84 |     page$content = paste(lapply(page$slides, pluck('rendered')), collapse = '\n')
 85 |     payload$page = page
 86 |     
 87 |     
 88 |     # outputFile = gsub("*.[R]?md$", '.html', page$file)
 89 |     outputFile = sprintf("%s.html", page$filename)
 90 |     layout = layouts[[page$layout %||% 'deck']]
 91 |     if (save_payload){
 92 |       save(layout, payload, partials, file = "payload.RData")
 93 |     }
 94 |     cat(whisker.render(layout, payload, partials = partials), file = outputFile)
 95 |     
 96 |     # create standalone deck if page mode is standalone
 97 |     if (page$mode == 'standalone'){
 98 |       outputFile = make_standalone(page, outputFile)
 99 |     }
100 |     
101 |     # Extract R Code from Page if purl = TRUE
102 |     if (page$purl %?=% TRUE) purl(page$file)
103 |   })
104 |   if (return_page){ return(page) }
105 | }
106 | 
107 | 
108 | #' Render pages
109 | #' 
110 | #' @noRd
111 | render_pages <- function(pages, site, tags, ...){
112 |   payload = list(site = site, pages = pages, tags = tags)
113 |   invisible(lapply(pages, render_page, payload = payload, ...)) 
114 | }
115 | 
116 | #' Render deck using layouts
117 | #' 
118 | #' @keywords internal
119 | #' @noRd
120 | #  This function has been replaced by render_page and needs to be DEPRECATED
121 | render_deck <- function(deck, layouts, partials){
122 |   #' Render a slide based on specified layout
123 |   render_slide <- function(slide){
124 |     tpl <- slide$tpl %||% 'slide'
125 |     slide2 <- modifyList(slide, list(deck = deck[names(deck) != 'slides']))
126 |     slide$rendered = whisker.render(layouts[tpl], slide) %|% update_classes
127 |     slide$rendered = whisker.render(slide$rendered, slide2)
128 |     return(slide)
129 |   }
130 |   #' Render slides based on specified layouts
131 |   render_slides <- function(slides){
132 |     lapply(slides, render_slide)
133 |   }
134 |   #' Render stylesheets based on mode
135 |   render_stylesheets <- function(){
136 |   	tpl = '{{# css }}<link rel="stylesheet" href = "{{.}}">\n{{/ css}}'
137 |   	whisker.render(tpl)
138 |   }
139 |   #' Render deck
140 |   deck$slides = deck$slides %|% render_slides
141 |   main = deck$layout %||% 'deck'
142 |   whisker.render(layouts[[main]], deck, partials = layouts)
143 | }
144 | 


--------------------------------------------------------------------------------
/R/slidify.R:
--------------------------------------------------------------------------------
  1 | #' Convert an Rmd document into HTML5
  2 | #' 
  3 | #' @param inputFile path to the Rmd file to slidify
  4 | #' @param knit_deck whether the file needs to be run through knit
  5 | #' @param return_page should the function return the payload
  6 | #' @param save_payload should the payload be saved to the slide directory
  7 | slidify <- pagify <- function(inputFile, knit_deck = TRUE, 
  8 |   return_page = FALSE, save_payload = FALSE, envir = parent.frame()){
  9 |   
 10 |   ## REMOVE LINES AFTER KNITR IS UPDATED ------
 11 |   options('knitr.in.progress' = TRUE)
 12 |   on.exit(options('knitr.in.progress' = FALSE))
 13 |   ## -------------------------------------------
 14 |   
 15 |   .SLIDIFY_ENV <<- new.env()
 16 |   site = ifelse(file.exists('site.yml'), yaml.load_file('site.yml'), list())
 17 |   page = parse_page(inputFile, knit_deck, envir = envir)
 18 |   
 19 |   page = modifyList(page, as.list(.SLIDIFY_ENV))
 20 |   render_page(page, payload = list(site = site), return_page, save_payload)
 21 | }
 22 | 
 23 | #' Convert a directory of Rmd documents into HTML5
 24 | #' 
 25 | #' @noRd
 26 | blogify <- function(blogDir = ".", envir = parent.frame()){
 27 |   site = yaml.load_file('site.yml')
 28 |   cwd   = getwd(); on.exit(setwd(cwd))
 29 |   setwd(blogDir)
 30 |   rmdFiles = dir(".", recursive = TRUE, pattern = '*.Rmd')
 31 |   pages = parse_pages(rmdFiles, envir = envir)
 32 |   tags = get_tags(pages)
 33 | 
 34 |   is_post = grepl('^posts', sapply(pages, '[[', 'link'))
 35 |   posts = pages[is_post] 
 36 |   posts = posts %|% sort_posts_on_date %|% add_next_post
 37 |   pages = c(posts, pages[!is_post])
 38 |   pages = render_pages(pages, site, tags, return_page = TRUE)
 39 |   message('Blogification Successful :-)')
 40 |   return(invisible(list(pages = pages, site = site, tags = tags)))
 41 | }
 42 | 
 43 | #' Convert an Rmd document into HTML5 using a framework
 44 | #' 
 45 | #' @param inputFile path to input Rmd document
 46 | #' @param outputFile path to output html document; default uses inputFile
 47 | #' @param knit_deck should the input file be knit?; default is TRUE
 48 | #' @return path to outputFile
 49 | #' @seealso slidify-package
 50 | #' @export
 51 | #  This function has been replaced by pagify and needs to be DEPRECATED
 52 | #  It would be good to specify slidify as an alias to maintain compatibility
 53 | # slidify <- function(inputFile, outputFile, knit_deck = TRUE){
 54 | #   if (knit_deck == TRUE){
 55 | #     inputFile = inputFile %|% knit
 56 | #   }
 57 | #   deck = inputFile %|% parse_deck
 58 | #   
 59 | #   if (deck$mode == 'selfcontained'){
 60 | #     deck$url[['lib']] <- deck$url[['lib']] %||% 'libraries'
 61 | #     with(deck, copy_libraries(framework, highlighter, widgets, url$lib))
 62 | #   }
 63 | #   
 64 | #   # add layouts, urls and stylesheets from frameworks, widgets and assets
 65 | #   deck = deck %|% add_urls %|% add_stylesheets %|% add_config_fr
 66 | #   layouts = get_layouts(deck$url$layouts)
 67 | #   layouts = modifyList(layouts, list(javascripts = get_javascripts(deck)))
 68 | #   
 69 | #   if (missing(outputFile)){
 70 | #     outputFile = gsub("*.[R]?md$", '.html', inputFile)
 71 | #   }
 72 | #   
 73 | #   cat(render_deck(deck, layouts), file = outputFile)
 74 | #   
 75 | #   if (deck$mode == 'standalone'){
 76 | #     outputFile = make_standalone(deck, outputFile)
 77 | #   }
 78 | #   
 79 | #   return(outputFile)
 80 | # }
 81 | 
 82 | check_slidifyLibraries <- function(){
 83 |   if (require('slidifyLibraries') && packageVersion('slidifyLibraries') <= 0.3){
 84 |     stop("Stop! You need to update slidifyLibraries")
 85 |   }
 86 |   return(invisible())
 87 | }
 88 | 
 89 | #' Custom Knit function for RStudio
 90 | #' 
 91 | #' @noRd
 92 | knit2slides <- function(inputFile, encoding) {
 93 |   
 94 |   # render slides
 95 |   slidify(inputFile)
 96 |   
 97 |   # indicate success and let RStudio know the path to the output file
 98 |   outputFile = sprintf("%s.html", 
 99 |                        basename(tools::file_path_sans_ext(inputFile)))
100 |   message("Output created: ", outputFile)
101 | }
102 | 
103 | 
104 | 
105 | 


--------------------------------------------------------------------------------
/R/update.R:
--------------------------------------------------------------------------------
 1 | #' Update lists with build classes
 2 | #' 
 3 | #' @keywords internal
 4 | #' @noRd
 5 | update_classes <- function(content){
 6 |   update_ul_classes <- function(content){
 7 |     content = gsub('<blockquote>\n*<ul>', '<ul class = "build incremental">', content)
 8 |     content = gsub('</ul>\n*</blockquote>', "</ul>", content)
 9 |     return(content)
10 |   }
11 |   update_ol_classes <- function(content){
12 |     content = gsub('<blockquote>\n*<ol>', '<ol class = "build incremental">', content)
13 |     content = gsub('</ol>\n*</blockquote>', "</ol>", content)
14 |     return(content)
15 |   }
16 |   content <- content %|% update_ul_classes %|% update_ol_classes %|% update_p_classes
17 |   content <- content %|% update_li_classes
18 |   return(content)
19 | }
20 | 
21 | #' Update <*> classes by adding class specifier
22 | #'
23 | #' @keywords internal
24 | #' @noRd
25 | # It should convert <p>.build some text </p> to
26 | # <p class = "build"> some text </p>
27 | update_p_classes <- function(content){
28 |   content = gsub("<p>\\.(.*?) ", "<p class='\\1'>", content)
29 |   gsub("<p class='build'>([^>.]*)</p>", "<p class='build'><span>\\1</span></p>", content)
30 | }
31 | 
32 | #' Update <*> classes by adding class specifier
33 | #'
34 | #' @keywords internal
35 | #' @noRd
36 | # It should convert <p>~ some text </p> to
37 | # <p class = "build"> some text </p>
38 | update_p_classes2 <- function(content){
39 |   gsub('<p>([^p>.]*)~</p>', "<span class='build incremental'><p>//1</p></span>", content)
40 | }
41 | 
42 | update_li_classes <- function(content){
43 |   gsub("<li>\\.(.*?) ", "<li class = '\\1'>", content)
44 | }
45 | 
46 | update_li_classes <- function(content){
47 |   y = str_replace(content, regex("<ul>\n<li>\\.{2}(.*)\\.{2}"), 
48 |     "<ul class='\\1'>\n<li>")
49 |   y = str_replace_all(y, regex("<li>\\s*\\.([^\\s]*)\\s+"), "<li class='\\1'>")
50 |   return(y)
51 | }
52 | 
53 | 


--------------------------------------------------------------------------------
/R/urls.R:
--------------------------------------------------------------------------------
 1 | add_urls <- function(deck){
 2 |   deck$url[['lib']] = deck$url[['lib']] %||% system.file('libraries', package = 'slidifyLibraries')
 3 |   urls = with(deck, modifyList(url, list(
 4 |     widgets    = file.path(url$lib, 'widgets'),
 5 |     framework = file.path(url$lib, 'frameworks', framework),
 6 |     theme = file.path(url$lib, 'frameworks', framework, theme),
 7 |     highlighters = file.path(url$lib, 'highlighters')
 8 |   )))
 9 |   urls$layouts = with(urls, c(
10 |     file.path(framework, 'layouts'),
11 |     file.path(assets, 'layouts'),
12 |     file.path(widgets, deck$widgets, 'layouts')
13 |   ))
14 |   urls$highlighter = file.path(urls$highlighters, deck$highlighter)
15 |   deck$url = urls
16 |   return(deck)
17 | }
18 | 


--------------------------------------------------------------------------------
/R/utils.R:
--------------------------------------------------------------------------------
  1 | #' Run a slide Deck
  2 | runDeck <- function(deckDir = ".", appDir = file.path(deckDir, "apps"), 
  3 |   shiny = TRUE, ...){
  4 |   require(shiny)
  5 |   require(slidifyLibraries)
  6 |   .slidifyEnv = new.env()
  7 |   make_interactive()
  8 |   myDeckDir = file.path(deckDir, "libraries")
  9 |   if (!file.exists(myDeckDir)){
 10 |     dir.create(myDeckDir)
 11 |   }
 12 |   addResourcePath('libraries', file.path(deckDir, "libraries"))
 13 |   addResourcePath('assets', file.path(deckDir, "assets"))
 14 |   
 15 |   deckDir = normalizePath(deckDir)
 16 |   if (file.exists(appDir)){
 17 |     appDir  = normalizePath(appDir)
 18 |   }
 19 |   
 20 |   render_markdown()
 21 |   
 22 |   shiny::runApp(list(
 23 |     ui = includeDeck(file.path(deckDir, 'index.Rmd')), 
 24 |     server = function(input, output){
 25 |       apps = dir(appDir, pattern = '^app', full = T)
 26 |       for (app in apps){
 27 |         source(app, local = TRUE)
 28 |       }
 29 |       if (shiny){
 30 |         renderCodeCells(input, output, env = .slidifyEnv, deckDir)
 31 |       }
 32 |     }
 33 |   ), ...)
 34 | }
 35 | 
 36 | #' Include a slidify created html document in Shiny
 37 | #' @noRd
 38 | includeDeck <- function(path){
 39 |   shiny:::dependsOnFile(path)
 40 |   slidifyLibraries::make_interactive()
 41 |   slidify(path)
 42 |   html_file <- gsub('.Rmd$', '.html', path)
 43 |   lines <- c(
 44 |     readLines(html_file, warn=FALSE, encoding='UTF-8'),
 45 |     "<script type='text/javascript'>
 46 |       // snippet required to activate shiny outputs, since slides are hidden
 47 |     // thanks to @jcheng
 48 |     $('slide').on('slideenter', function(){
 49 |       $(this).trigger('shown');
 50 |     })
 51 |     </script>"
 52 |   )
 53 |   return(HTML(paste(lines, collapse='\r\n')))
 54 |   # includeHTML(html_file)
 55 | }
 56 | 
 57 | #' Check for equality only if variable exists
 58 | #' 
 59 | #' @noRd
 60 | `%?=%` <- function(x, y){
 61 |   if (!is.null(x) && x == y){
 62 |     TRUE
 63 |   } else {
 64 |     FALSE
 65 |   }
 66 | }
 67 | 
 68 | #' Embed local images using base64
 69 | #'
 70 | #' @keywords internal
 71 | #' @param html_in path to input html file
 72 | #' @param html_out path to output html file
 73 | #' @noRd
 74 | embed_images <- function(html_in){
 75 |   html <- paste(readLines(html_in, warn = F), collapse = "\n")
 76 |   html <- markdown:::.b64EncodeImages(html)
 77 |   return(html)
 78 | }
 79 | 
 80 | #' Enable library files to be served from CDN
 81 | #' 
 82 | #' @noRd
 83 | enable_cdn <- function(html){
 84 |   cdn  = 'http://slidifylibraries2.googlecode.com/git/inst/libraries/'
 85 |   html = gsub("libraries/", cdn, html, fixed = TRUE)
 86 | }
 87 | 
 88 | #' Zip vectors into a single list
 89 | #' 
 90 | #' @noRd
 91 | zip_vectors <- function(...){
 92 |   x = list(...)
 93 |   lapply(seq_along(x[[1]]), function(i) lapply(x, pluck(i)))
 94 | }
 95 | 
 96 | #' Stolen from Hadley's HOF package
 97 | #' 
 98 | #' @keywords internal
 99 | #' @noRd
100 | pluck <- function (element){
101 |   function(x) x[[element]]
102 | }
103 | 
104 | #' Combine stylesheets in a directory
105 | #' 
106 | #' @param css_dir directory containing stylesheets
107 | #' @noRd
108 | combine_css <- function(css_dir){
109 |   css_files = dir(css_dir, pattern = '*.css', full.names = T)
110 |   out_file = file.path(css_dir, 'user.css')
111 |   css = paste(lapply(css_files, read_file), collapse = '\n')
112 |   writeLines(css, out_file)
113 |   return(out_file)
114 | }
115 | 
116 | #' Minify stylesheet using YUI Compressor
117 | #' 
118 | #' @param css_file path to css file
119 | #' @noRd
120 | minify_css <- function(css_file){
121 |   yui = system.file('libraries', 'utilities', 'yuicompressor-2.4.7.jar', 
122 |     package = 'slidifyLibraries')
123 |   min_css_file = gsub('.css', '.min.css', css_file)
124 |   cmd = 'java -jar %s %s -o %s' 
125 |   system(sprintf(cmd, yui, css_file, min_css_file))
126 |   return(min_css_file)
127 | }
128 | 
129 | #' Binary operator useful for function composition
130 | #' 
131 | #' @keywords internal
132 | #' @noRd
133 | `%|%` <- function(x, f){
134 |   f(x)
135 | }
136 | 
137 | #' Binary operator useful from hadley's staticdocs package
138 | #' 
139 | #' @keywords internal
140 | #' @noRd
141 | "%||%" <- function(a, b) {
142 |   if (!is.null(a)) a else b
143 | }
144 | 
145 | 
146 | #' Read a text file into a single string
147 | #' 
148 | #' @param doc path to text document
149 | #' @return string with document contents
150 | #' @keywords internal
151 | #' @noRd
152 | read_file <- function(doc, ...){
153 |   paste(readLines(doc, ...), collapse = '\n')
154 | }
155 | 
156 | #' Capture patterns matched by regular expression
157 | #'
158 | #' @keywords internal
159 | #' @noRd
160 | re_capture <- function(pattern, string, ...) {
161 |   rex = list(src = string, names  = list(),
162 |     result = regexpr(pattern, string, perl = TRUE, ...))
163 |   
164 |   for (.name in attr(rex$result, 'capture.name')) {
165 |     rex$names[[.name]] = substr(rex$src, 
166 |       attr(rex$result, 'capture.start')[,.name], 
167 |       attr(rex$result, 'capture.start')[,.name]
168 |       + attr(rex$result, 'capture.length')[,.name]
169 |       - 1)
170 |    }
171 |   return(rex)
172 | }
173 | 
174 | #' Convert markdown document into html
175 | #' 
176 | #' @import markdown
177 | #' @keywords internal
178 | #' @noRd
179 | md2html <- function(md){
180 |   renderMarkdown(text = md, renderer.options = markdownExtensions())
181 | }
182 | 
183 | #' Merge two lists by name
184 | #'
185 | #' This is a method that merges the contents of one list with another by 
186 | #' adding the named elements in the second that are not in the first. 
187 | #' In other words, the first list is the target template, and the second 
188 | #' one adds any extra elements that it has
189 | #'
190 | #' @param x the list to which elements will be added
191 | #' @param y the list from which elements will be added to x, if they are not 
192 | #'    already there by name
193 | #' @keywords internal
194 | #' @noRd
195 | merge_list <- function (x, y, ...){
196 |   if (length(x) == 0) 
197 |     return(y)
198 |   if (length(y) == 0) 
199 |     return(x)
200 |   i = match(names(y), names(x))
201 |   i = is.na(i)
202 |   if (any(i)) 
203 |     x[names(y)[which(i)]] = y[which(i)]
204 |   return(x)
205 | }
206 | 
207 | #' Filter blanks 
208 | #' 
209 | #' @keywords internal
210 | #' @noRd
211 | filter_blank <- function(x){
212 |   Filter(function(y) y != '', x)
213 | }
214 | 
215 | #' Check if a package is installed
216 | #' 
217 | #' @noRd
218 | is_installed <- function(mypkg) {
219 |   is.element(mypkg, installed.packages()[,1]) 
220 | }
221 | 
222 | #' Execute code in  specified directory
223 | #' 
224 | #' @noRd
225 | in_dir <- function(dir, expr) {
226 |   if (is.null(getOption('slidify.changedir'))){
227 |      owd = setwd(dir); on.exit(setwd(owd))
228 |   }
229 |   force(expr)
230 | }
231 | 
232 | #' Multiple substitutions using gsub
233 | #' 
234 | #' @noRd
235 | #' @keywords internal
236 | mgsub <- function(myrepl, mystring){
237 |   gsub_ <- function(l, x){
238 |     do.call('gsub', list(x = x, pattern = l[1], replacement = l[2]))
239 |   }
240 |   Reduce(gsub_, myrepl, init = mystring, right = T) 
241 | }
242 | 
243 | #' Create a standalone version of an HTML File
244 | #' 
245 | #' It works by embedding all images, switching links to use Slidify's googlecode
246 | #' repository and inlining all user assets.
247 | #' 
248 | #' @param deck parsed deck
249 | #' @param html_in html file with library files linked locally
250 | #' @noRd
251 | #' @keywords internal
252 | make_standalone <- function(deck, html_in){
253 |   lib_cdn = paste0(deck$lib_cdn %||% 'http://slidifylibraries2.googlecode.com/git/inst/libraries', '/')
254 |   lib_url = paste0(deck$url$lib, '/')
255 |   html = read_file(html_in, warn = FALSE) %|% markdown:::.b64EncodeImages
256 |   html = gsub(lib_url, lib_cdn, html)
257 |   # html_out = sprintf('%s.html', basename(getwd()))
258 |   cat(html, file = html_in)
259 |   return(html_in)
260 | }
261 | 
262 | 
263 | #' Get the rmd source for each slide
264 | #' 
265 | #' @keywords internal
266 | #' @noRd
267 | #  Still repeats code and is hence not DRY
268 | get_slide_rmd <- function(doc){
269 |   paste('---', (doc %|% to_deck)$slides %|% split_slides)
270 | }
271 | 
272 | #' Combine two lists, component by component
273 | #' 
274 | #' @keywords internal
275 | #' @noRd
276 | combine_lists <- function(x, y){
277 |   nms = union(names(x), names(y))
278 |   lapply(nms, function(nm){c(x[[nm]], y[[nm]])
279 |   })
280 | }
281 | 
282 | view_deck <- function(dir = "."){
283 |   td <- file.path(tempdir(), basename(tempfile(pattern = 'slidify')))
284 |   suppressMessages(copy_dir(".", td))
285 |   tf <- file.path(td, 'index.html')
286 |   rstudio::viewer(tf)
287 | }
288 | 
289 | ## This app requires OpenCPU 1.0.1 or higher !!!! 
290 | ##
291 | 
292 | #' @export
293 | slidify_text <- function(text){
294 |   writeLines(text, con="output.Rmd");
295 |   # knit2html("input.Rmd", output="output.html");
296 |   options(slidify.changedir = FALSE)
297 |   slidify('output.Rmd')
298 |   invisible();
299 | }
300 | 


--------------------------------------------------------------------------------
/R/widgets.R:
--------------------------------------------------------------------------------
 1 | #' Read widget configuration
 2 | #' 
 3 | #' @keywords internal
 4 | #' @noRd
 5 | read_config <- function(widget, url_widgets){
 6 |   get_full_path <- function(x){
 7 |     res = wconfig[[1]][[x]]
 8 |     if (!is.null(res) && x != 'cdn' && x!= 'ready'){
 9 |       # change this so that paths with a trailing / are appended with wpath.
10 |       # allows for specifications like shiny which uses a shared directory
11 |       # note that this requires changes to all config.yml files.
12 |       res <- ifelse(grepl("^http", res), res, file.path(wpath, res))
13 |     }
14 |     return(res)
15 |   }
16 |   wpath = file.path(url_widgets, widget)
17 |   cfile = file.path(wpath, 'config.yml')
18 |   if (file.exists(cfile)){
19 |     wconfig <- yaml::yaml.load_file(cfile)
20 |     w <- setNames(lapply(names(wconfig[[1]]), get_full_path), names(wconfig[[1]]))
21 |   } else {
22 |     css = dir(file.path(wpath, 'css'), pattern = '.css$', full = TRUE)
23 |     js = dir(file.path(wpath, 'js'), pattern = '.js$', full = TRUE)
24 |     w <- list(css = css, js = js)
25 |   }
26 |   setNames(list(w), widget)
27 | }
28 | 
29 | 
30 | 
31 | #' Read widget configuration for all selected widgets
32 | #' 
33 | #' @keywords internal 
34 | #' @noRd
35 | read_configs <- function(widgets, url_widgets){
36 |   if (length(widgets) != 0){
37 |     configs = lapply(widgets, read_config, url_widgets)
38 |     Reduce('modifyList', configs)
39 |   } else {
40 |     return(list())
41 |   }
42 | }
43 | 
44 | 
45 | get_assets = function(asset_type, widget_configs, custom_config = "", standalone = F){
46 |   assets = unlist(sapply(widget_configs, pluck(asset_type)), use.names = F)
47 |   if (length(assets) > 1){
48 |     assets = remove_duplicates(assets)
49 |   }
50 |   if (standalone && asset_type != "ready"){
51 |     mime_type = ifelse(asset_type == "css", "text/css", "application/javascript")
52 |     assets = sapply(assets, function(x) {
53 |       make_standalone_(file = x, mime = mime_type)
54 |     })
55 |   }
56 |   names(assets) = NULL
57 |   tpl <- switch(asset_type, 
58 |     css =  '{{# assets }}<link rel=stylesheet href="{{.}}"></link>\n{{/ assets }}',
59 |     ready = '{{ assets }}',
60 |     '{{# assets }}<script src="{{{.}}}"></script>\n{{/assets}}'         
61 |   )
62 |   whisker.render(tpl)
63 | }
64 | 
65 | make_standalone_ <- function(file, mime){
66 |   prefix = paste0('data:', mime, ',')
67 |   paste(prefix, URLencode(read_file(file)), collapse = "")
68 | }
69 | 
70 | remove_duplicates <- function(assets){
71 |   return(assets[!duplicated(basename(assets))])
72 | }
73 | 
74 | # widgets = c('nvd3', 'bootstrap', 'scianimator')
75 | # url_widgets = "~/Documents/Projects/dev/slidifyLibraries/inst/libraries/widgets"
76 | # widget_configs = read_configs(widgets, url_widgets)
77 | # myassets = as.list(sapply(c('css', 'js', 'jshead'), get_assets, widget_configs))


--------------------------------------------------------------------------------
/R/zzz.R:
--------------------------------------------------------------------------------
 1 | .onLoad <- function(libname, pkgname){
 2 |   options(rstudio.markdownToHTML = function(inputFile, outputFile){
 3 |     if (readLines(inputFile)[1] == '---'){
 4 |       slidify(inputFile, knit_deck = FALSE)
 5 |     } else {
 6 |       markdownToHTML(inputFile, outputFile)
 7 |     }
 8 |   })
 9 | }
10 | 


--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
 1 | ![slidify_logo](https://f.cloud.github.com/assets/346288/650134/894eadd0-d455-11e2-8be5-8d463050f4ef.png) 
 2 | 
 3 | Slidify helps you create and publish beautiful HTML5 presentations from [RMarkdown](http://goo.gl/KKdaf)
 4 | 
 5 | ## Getting Started
 6 | 
 7 | 
 8 | ### Install ###
 9 | 
10 | Slidify is still under heavy development. You can install it from `github` using the `devtools` package. You will also need `slidifyLibraries` which contains all external libraries required by `slidify`.
11 | 
12 | ```r
13 | install_github('ramnathv/slidify')
14 | install_github('ramnathv/slidifyLibraries')
15 | ```
16 | 
17 | ### Initialize ###
18 | 
19 | You can initialize a presentation by running `create`. This will create a scaffold for your presentation and open an Rmd file for you to edit. 
20 | 
21 | ```r
22 | library(slidify)
23 | author('mydeck')
24 | ```
25 | 
26 | ### Author ###
27 | 
28 | Write your presentation in RMarkdown, using a newline followed by three dashes to separate slides. You can mix markdown with code chunks to create a reproducible slide deck. 
29 | 
30 | ### Generate ###
31 | 
32 | Generate your presentation by running `slidify`. This will create a static HTML5 presentation that you can open locally in your browser.
33 | 
34 | ```r
35 | slidify('index.Rmd')
36 | ```
37 | 
38 | ### Publish ###
39 | 
40 | ```r
41 | # publish to github
42 | # create an empty repo on github. replace USER and REPO with your repo details
43 | publish(user = USER, repo = REPO) 
44 | 
45 | # publish to rpubs
46 | publish(title = 'My Deck', 'index.html', host = 'rpubs')
47 | ```
48 | 
49 | ---
50 | 
51 | ## Customize ##
52 | 
53 | Slidify is designed to be modular and provides a high degree of customization for the more advanced user. You can access the defaults using `slidifyDefaults()`. It is possible to override options by passing it to `slidify` as a named list or as a `yaml` file.
54 | 
55 | ```text
56 | framework      : slide generation framework to use
57 | theme          : theme to use for styling slide content
58 | highlighter    : tool to use for syntax highlighting
59 | hitheme        : style to use for syntax highlighting
60 | mode           : selfcontained, standalone, draft
61 | url            : paths to lib
62 | widgets        : widgets to include
63 | ```
64 | 
65 | 
66 | Slidify makes it easy to create, customize and publish, reproducible HTML5 slide decks from [`R Markdown`](http://goo.gl/KKdaf). 
67 | 
68 | It is designed to make it very easy for a HTML novice to generate a crisp, visually appealing `HTML5` slide deck, while at the same time giving advanced users several options to customize their presentation.
69 | 
70 | The guiding philosophy of `slidify` is to completely separate writing of content from its rendering, so that content can be written once in `R Markdown`, and rendered as an `HTML5` presentation using any of the `HTML5` slide frameworks supported.
71 | 
72 | 


--------------------------------------------------------------------------------
/inst/skeleton/assets/css/.gitkeep:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/ramnathv/slidify/1dd41a3023b20efb35d601a7d3fb248930bf076d/inst/skeleton/assets/css/.gitkeep


--------------------------------------------------------------------------------
/inst/skeleton/assets/css/ribbons.css:
--------------------------------------------------------------------------------
 1 | /*Github Ribbon Test*/
 2 | /* Source: https://github.com/dciccale/css3-github-ribbon */
 3 | /* Define classes for example, definition, problem etc. */
 4 | /* Choose meaningful colors for background and text */
 5 | 
 6 | .example {
 7 |   background-color: #121621;
 8 |   top: 1.2em;
 9 |   right: -3.2em;
10 |   -webkit-transform: rotate(45deg);
11 |   -moz-transform: rotate(45deg);
12 |   transform: rotate(45deg);
13 |   -webkit-box-shadow: 0 0 0 1px #1d212e inset,0 0 2px 1px #fff inset,0 0 1em #888;
14 |   -moz-box-shadow: 0 0 0 1px #1d212e inset,0 0 2px 1px #fff inset,0 0 1em #888;
15 |   box-shadow: 0 0 0 1px #1d212e inset,0 0 2px 1px #fff inset,0 0 1em #888;
16 |   color: #FF0;
17 |   display: block;
18 |   padding: .6em 3.5em;
19 |   position: absolute;
20 |   font: bold .82em sans-serif;
21 |   text-align: center;
22 |   text-decoration: none;
23 |   text-shadow: 1px -1px 8px rgba(0,0,0,0.60);
24 |   -webkit-user-select: none;
25 |   -moz-user-select: none;
26 |   user-select: none;
27 | }
28 | 
29 | .definition {
30 |   background-color: #a00;
31 |   top: 1.2em;
32 |   right: -3.2em;
33 |   -webkit-transform: rotate(45deg);
34 |   -moz-transform: rotate(45deg);
35 |   transform: rotate(45deg);
36 |   -webkit-box-shadow: 0 0 0 1px #1d212e inset,0 0 2px 1px #fff inset,0 0 1em #888;
37 |   -moz-box-shadow: 0 0 0 1px #1d212e inset,0 0 2px 1px #fff inset,0 0 1em #888;
38 |   box-shadow: 0 0 0 1px #1d212e inset,0 0 2px 1px #fff inset,0 0 1em #888;
39 |   color: #FFF;
40 |   display: block;
41 |   padding: .6em 3.5em;
42 |   position: absolute;
43 |   font: bold .82em sans-serif;
44 |   text-align: center;
45 |   text-decoration: none;
46 |   text-shadow: 1px -1px 8px rgba(0,0,0,0.60);
47 |   -webkit-user-select: none;
48 |   -moz-user-select: none;
49 |   user-select: none;
50 | }


--------------------------------------------------------------------------------
/inst/skeleton/assets/img/.gitkeep:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/ramnathv/slidify/1dd41a3023b20efb35d601a7d3fb248930bf076d/inst/skeleton/assets/img/.gitkeep


--------------------------------------------------------------------------------
/inst/skeleton/assets/js/.gitkeep:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/ramnathv/slidify/1dd41a3023b20efb35d601a7d3fb248930bf076d/inst/skeleton/assets/js/.gitkeep


--------------------------------------------------------------------------------
/inst/skeleton/assets/layouts/.gitkeep:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/ramnathv/slidify/1dd41a3023b20efb35d601a7d3fb248930bf076d/inst/skeleton/assets/layouts/.gitkeep


--------------------------------------------------------------------------------
/inst/skeleton/index.Rmd:
--------------------------------------------------------------------------------
 1 | ---
 2 | title       : 
 3 | subtitle    : 
 4 | author      : 
 5 | job         : 
 6 | framework   : io2012        # {io2012, html5slides, shower, dzslides, ...}
 7 | highlighter : highlight.js  # {highlight.js, prettify, highlight}
 8 | hitheme     : tomorrow      # 
 9 | widgets     : []            # {mathjax, quiz, bootstrap}
10 | mode        : selfcontained # {standalone, draft}
11 | knit        : slidify::knit2slides
12 | ---
13 | 
14 | ## Read-And-Delete
15 | 
16 | 1. Edit YAML front matter
17 | 2. Write using R Markdown
18 | 3. Use an empty line followed by three dashes to separate slides!
19 | 
20 | --- .class #id 
21 | 
22 | ## Slide 2
23 | 
24 | 
25 | 
26 | 
27 | 


--------------------------------------------------------------------------------
/inst/tests/decks/deck1.Rmd:
--------------------------------------------------------------------------------
 1 | ## Slide 1
 2 | 
 3 | Contents
 4 | 
 5 | ---
 6 | 
 7 | ## Slide 2
 8 | 
 9 | Contents
10 | 


--------------------------------------------------------------------------------
/inst/tests/decks/deck2.Rmd:
--------------------------------------------------------------------------------
 1 | ## Slide 1
 2 | 
 3 | Contents
 4 | 
 5 | ---
 6 | 
 7 | ## Slide 2
 8 | 
 9 | Subheading
10 | ----
11 | 
12 | Contents
13 | 


--------------------------------------------------------------------------------
/inst/tests/test-split-slides.R:
--------------------------------------------------------------------------------
 1 | context('Splitting Slides')
 2 | 
 3 | test_that("Slides are split on --- preceded by an empty newline", {
 4 | 	deck = read_file('decks/deck1.Rmd') 
 5 | 	out   = c("## Slide 1\n\nContents", "\n\n## Slide 2\n\nContents")
 6 | 	expect_equal(split_slides(deck), out)
 7 | })
 8 | 
 9 | test_that("Slides are NOT split on --- NOT preceded by an empty newline", {
10 | 	deck = read_file('decks/deck2.Rmd') 
11 | 	out = c("## Slide 1\n\nContents", "\n\n## Slide 2\n\nSubheading\n----\n\nContents")
12 | 	expect_equal(split_slides(deck), out)
13 | })
14 | 


--------------------------------------------------------------------------------
/inst/www/favicon.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/ramnathv/slidify/1dd41a3023b20efb35d601a7d3fb248930bf076d/inst/www/favicon.png


--------------------------------------------------------------------------------
/inst/www/index.html:
--------------------------------------------------------------------------------
  1 | <!DOCTYPE html>
  2 | <html lang="en">
  3 | <head>
  4 | <title>Slidify Playground</title>
  5 | <link rel="icon" 
  6 |       type="image/png" 
  7 |       href="favicon.png">
  8 |     
  9 | <script src="underscore-min.js"></script>    
 10 | <script src="jquery-1.10.2.min.js"></script>
 11 | <script src="opencpu-0.4.js"></script>
 12 | <script src="http://slidify.github.io/ile/libraries/widgets/interactive/js/ace/js/ace.js" type="text/javascript" charset="utf-8"></script>
 13 | 
 14 | <script>
 15 | $(function(){
 16 |   var editor = ace.edit("editor");
 17 |   editor.setTheme("ace/theme/solarized_light");
 18 |   editor.getSession().setMode("ace/mode/r");
 19 |   editor.getSession().setUseWrapMode(true)
 20 |   editor.setFontSize("14px");
 21 | 
 22 |   //This app requires OpenCPU 1.0.1 or higher!
 23 |   
 24 |   function domarkdown(e){
 25 |     var req = ocpu.call("slidify_text", {
 26 |       text : editor.getSession().getValue()
 27 |     }, function(session){
 28 |       $("iframe").attr('src', session.getFileURL("output.html"));     
 29 |     }).fail(function(text){
 30 |       alert("Error: " + req.responseText);
 31 |     });
 32 |   }
 33 | 
 34 |   //auto run after 3 seconds of no activity
 35 |   var update = _.debounce(domarkdown, 3000);
 36 |   
 37 |   //register event
 38 |   editor.on("change", update);
 39 |   
 40 |   //init on start
 41 |   domarkdown();  
 42 | });
 43 | </script>
 44 | 
 45 | <style type="text/css" media="screen">
 46 |  
 47 | #editor { 
 48 |   position: absolute;
 49 |   top: 0px;
 50 |   left: 0px;
 51 |   width: 400px;
 52 |   height: 100%;
 53 | }
 54 | 
 55 | iframe { 
 56 |   position: absolute;
 57 |   top: 0px;
 58 |   right: 0px;
 59 |   width: 1030px;
 60 |   height: 100%;
 61 |   border: 0;
 62 |   margin: 0;
 63 |   z-index: 999999;
 64 | }
 65 | 
 66 | </style>
 67 | </head>
 68 | <body>
 69 | 
 70 | <div id="editor">---
 71 | title: Slidify Playground
 72 | subtitle: Adapted from OpenCPU MarkdownApp
 73 | author: Ramnath Vaidyanathan
 74 | framework: io2012
 75 | widgets: [mathjax]
 76 | ---
 77 | 
 78 | ## Normal Distribution
 79 | 
 80 | The normal (or Gaussian) distribution is defined as follows:
 81 | 
 82 | $$latex
 83 | f(x;\mu,\sigma^2) = \frac{1}{\sigma\sqrt{2\pi}} 
 84 | e^{ -\frac{1}{2}\left(\frac{x-\mu}{\sigma}\right)^2 }
 85 | $$
 86 | 
 87 | ---
 88 | 
 89 | ## Density Plot
 90 | 
 91 | To generate random draws from a normal distribution we use the **rnorm** function:
 92 | 
 93 | ```{r block1}
 94 | output <- rnorm(1000, 100, 15);
 95 | ```
 96 | 
 97 | ---
 98 | 
 99 | ## Bell Shape
100 | 
101 | The normal distribution has the typical bell shape:
102 | 
103 | ```{r block2, fig.width=8, fig.height=5}
104 | library(ggplot2)
105 | qplot(output)
106 | ```
107 | 
108 | ---
109 | 
110 | ## Kernel density estimation
111 | 
112 | We can perform density estimation on the sample:
113 | 
114 | ```{r block3, fig.width=8, fig.height=5}
115 | plot(density(output))
116 | ``` 
117 | 
118 | ---
119 | 
120 | ## Carl Friedrich Gauß
121 | 
122 | This little guy had something to do with it
123 | 
124 | !['Gauss'](http://goo.gl/ZwTTXv)
125 | </div>
126 | 
127 | <iframe src="about:blank"></iframe>
128 | 
129 | </body>
130 | </html>
131 | 


--------------------------------------------------------------------------------
/inst/www/opencpu-0.4.js:
--------------------------------------------------------------------------------
  1 | /**
  2 |  * Javascript client library for OpenCPU
  3 |  * Version 0.4.1
  4 |  * Depends: jQuery
  5 |  * Requires HTML5 FormData support for file uploads
  6 |  * http://github.com/jeroenooms/opencpu.js
  7 |  * 
  8 |  * Include this file in your apps and packages. 
  9 |  * You only need to use ocpu.seturl if this page is hosted outside of the OpenCPU package. For example:
 10 |  *
 11 |  * ocpu.seturl("../R") //default, use for apps
 12 |  * ocpu.seturl("//public.opencpu.org/ocpu/library/mypackage/R") //CORS
 13 |  * ocpu.seturl("/ocpu/library/mypackage/R") //hardcode path
 14 |  */
 15 | 
 16 | (function ( $ ) {
 17 | 
 18 |   //global variable 
 19 |   var r_cors = false;
 20 |   var r_path = document.createElement('a');
 21 |   r_path.href = "../R";
 22 | 
 23 | 
 24 |   //new Session()
 25 |   function Session(loc, key, txt){
 26 |     this.loc = loc;
 27 |     this.key = key; 
 28 |     this.txt = txt;
 29 |     this.output = txt.split(/\r\n|\r|\n/g);
 30 | 
 31 |     this.getKey = function(){
 32 |       return key;
 33 |     };
 34 |     
 35 |     this.getLoc = function(){
 36 |       return loc;
 37 |     };
 38 | 
 39 |     this.getFileURL = function(path){
 40 |       return this.getLoc() + "files/" + path;
 41 |     };
 42 | 
 43 |     this.getFile = function(path, success){
 44 |       var url = this.getFileURL(path);
 45 |       return $.get(url, success);
 46 |     };
 47 | 
 48 |     this.getObject = function(name, data, success){
 49 |       //in case of no arguments
 50 |       name = name || ".val";
 51 | 
 52 |       //first arg is a function
 53 |       if(name instanceof Function){
 54 |         //pass on to second arg
 55 |         success = name;
 56 |         name = ".val";
 57 |       }
 58 | 
 59 |       var url = this.getLoc() + "R/" + name + "/json";
 60 |       return $.get(url, data, success);
 61 |     };
 62 | 
 63 |     this.getStdout = function(success){
 64 |       var url = this.getLoc() + "stdout/text";
 65 |       return $.get(url, success);
 66 |     };
 67 | 
 68 |     this.getConsole = function(success){
 69 |       var url = this.getLoc() + "console/text";
 70 |       return $.get(url, success);
 71 |     };
 72 |   }
 73 |   
 74 |   //for POSTing raw code snippets
 75 |   //new Snippet("rnorm(100)")
 76 |   function Snippet(code){
 77 |     this.code = code || "NULL";
 78 |     
 79 |     this.getCode = function(){
 80 |       return code;
 81 |     };
 82 |   }
 83 |   
 84 |   //for POSTing files
 85 |   //new Upload($('#file')[0].files)
 86 |   function Upload(file){
 87 |     if(file instanceof File){
 88 |       this.file = file;
 89 |     } else if(file instanceof FileList){
 90 |       this.file = file[0];
 91 |     } else if (file.files instanceof FileList){
 92 |       this.file = file.files[0];
 93 |     } else if (file.length > 0 && file[0].files instanceof FileList){
 94 |       this.file = file[0].files[0];
 95 |     } else {
 96 |       throw 'invalid new Upload(file). Argument file must be a HTML <input type="file"></input>';
 97 |     }
 98 |     
 99 |     this.getFile = function(){
100 |       return file;
101 |     };
102 |   }
103 |   
104 |   function stringify(x){
105 |     if(x instanceof Session){
106 |       return x.getKey();
107 |     } else if(x instanceof Snippet){
108 |       return x.getCode();
109 |     } else if(x instanceof Upload){
110 |       return x.getFile();
111 |     } else if(x instanceof File){
112 |       return x; 
113 |     } else if(x instanceof FileList){
114 |       return x[0];
115 |     } else if(x && x.files instanceof FileList){
116 |       return x.files[0];
117 |     } else if(x && x.length && x[0].files instanceof FileList){
118 |       return x[0].files[0];
119 |     } else {
120 |       return JSON.stringify(x);
121 |     }
122 |   }
123 |   
124 |   //low level call
125 |   function r_fun_ajax(fun, settings, handler){
126 |     //validate input
127 |     if(!fun) throw "r_fun_call called without fun";
128 |     settings = settings || {};
129 |     handler = handler || function(){};
130 |     
131 |     //set global settings
132 |     settings.url = settings.url || (r_path.href + "/" + fun);
133 |     settings.type = settings.type || "POST";
134 |     settings.data = settings.data || {};
135 |     settings.dataType = settings.dataType || "text";
136 |     
137 |     //ajax call
138 |     var jqxhr = $.ajax(settings).done(function(){
139 |       var loc = jqxhr.getResponseHeader('Location') || console.log("Location response header missing.");
140 |       var key = jqxhr.getResponseHeader('X-ocpu-session') || console.log("X-ocpu-session response header missing.");
141 |       var txt = jqxhr.responseText;
142 |       
143 |       //in case of cors we translate the relative path
144 |       if(r_cors){
145 |         loc = r_path.protocol + "//" + r_path.host + loc;
146 |       }
147 |       handler(new Session(loc, key, txt));
148 |     }).fail(function(){
149 |       console.log("OpenCPU error HTTP " + jqxhr.status + "\n" + jqxhr.responseText);
150 |     });
151 |     
152 |     //function chaining
153 |     return jqxhr;
154 |   }  
155 | 
156 |   //call a function using uson arguments
157 |   function r_fun_call_json(fun, args, handler){
158 |     return r_fun_ajax(fun, {
159 |       data: JSON.stringify(args || {}),
160 |       contentType : 'application/json',      
161 |     }, handler);
162 |   }   
163 |   
164 |   //call function using url encoding
165 |   //needs to wrap arguments in quotes, etc
166 |   function r_fun_call_urlencoded(fun, args, handler){
167 |     var data = {};
168 |     $.each(args, function(key, val){
169 |       data[key] = stringify(val);
170 |     });
171 |     return r_fun_ajax(fun, {
172 |       data: $.param(data)      
173 |     }, handler);    
174 |   }
175 |   
176 |   //call a function using multipart/form-data
177 |   //use for file uploads. Requires HTML5
178 |   function r_fun_call_multipart(fun, args, handler){
179 |     testhtml5();
180 |     var formdata = new FormData();
181 |     $.each(args, function(key, value) {
182 |       formdata.append(key, stringify(value));
183 |     });
184 |     return r_fun_ajax(fun, {
185 |       data: formdata,
186 |       cache: false,
187 |       contentType: false,
188 |       processData: false      
189 |     }, handler);       
190 |   }
191 |   
192 |   //Automatically determines type based on argument classes.
193 |   function r_fun_call(fun, args, handler){
194 |     args = args || {};
195 |     var hasfiles = false;
196 |     var hascode = false;
197 |     
198 |     //find argument types
199 |     $.each(args, function(key, value){
200 |       if(value instanceof File || value instanceof Upload || value instanceof FileList){
201 |         hasfiles = true;
202 |       } else if (value instanceof Snippet || value instanceof Session){
203 |         hascode = true;
204 |       }
205 |     });
206 |     
207 |     //determine type
208 |     if(hasfiles){
209 |       return r_fun_call_multipart(fun, args, handler);
210 |     } else if(hascode){
211 |       return r_fun_call_urlencoded(fun, args, handler);
212 |     } else {
213 |       return r_fun_call_json(fun, args, handler); 
214 |     }
215 |   }    
216 |   
217 |   //call a function and return JSON
218 |   function rpc(fun, args, handler){
219 |     return r_fun_call(fun, args, function(session){
220 |       session.getObject(function(data){
221 |         if(handler) handler(data);
222 |       }).fail(function(){
223 |         console.log("Failed to get JSON response for " + session.getLoc());
224 |       });
225 |     });
226 |   }
227 |   
228 |   //plotting widget
229 |   //to be called on an (empty) div.
230 |   $.fn.rplot = function(fun, args) {
231 |     var targetdiv = this;
232 |     var myplot = initplot(targetdiv);
233 | 
234 |     //reset state
235 |     myplot.setlocation();
236 |     myplot.spinner.show();
237 | 
238 |     // call the function
239 |     return r_fun_call(fun, args, function(tmp) {
240 |       myplot.setlocation(tmp.getLoc());
241 |     }).always(function(){
242 |       myplot.spinner.hide();      
243 |     });
244 |   };
245 |   
246 |   function initplot(targetdiv){
247 |     if(targetdiv.data("ocpuplot")){
248 |       return targetdiv.data("ocpuplot");
249 |     }
250 |     var ocpuplot = function(){
251 |       //local variables
252 |       var Location;
253 |       var pngwidth;
254 |       var pngheight;
255 |       
256 |       var plotdiv = $('<div />').attr({
257 |         style: "width: 100%; height:100%; min-width: 100px; min-height: 100px; position:absolute; background-repeat:no-repeat; background-size: 100% 100%;"
258 |       }).appendTo(targetdiv).css("background-image", "none");
259 |       
260 |       var spinner = $('<span />').attr({
261 |         style : "position: absolute; top: 20px; left: 20px; z-index:1000; font-family: monospace;" 
262 |       }).text("loading...").appendTo(plotdiv);
263 | 
264 |       var pdf = $('<a />').attr({
265 |         target: "_blank",        
266 |         style: "position: absolute; top: 10px; right: 10px; z-index:1000; text-decoration:underline; font-family: monospace;"
267 |       }).text("pdf").appendTo(plotdiv);
268 | 
269 |       var svg = $('<a />').attr({
270 |         target: "_blank",
271 |         style: "position: absolute; top: 30px; right: 10px; z-index:1000; text-decoration:underline; font-family: monospace;"
272 |       }).text("svg").appendTo(plotdiv);
273 | 
274 |       var png = $('<a />').attr({
275 |         target: "_blank",
276 |         style: "position: absolute; top: 50px; right: 10px; z-index:1000; text-decoration:underline; font-family: monospace;"
277 |       }).text("png").appendTo(plotdiv);  
278 |       
279 |       function updatepng(){
280 |         if(!Location) return;
281 |         pngwidth = plotdiv.width();
282 |         pngheight = plotdiv.height();
283 |         plotdiv.css("background-image", "url(" + Location + "graphics/last/png?width=" + pngwidth + "&height=" + pngheight + ")");       
284 |       }
285 |       
286 |       function setlocation(newloc){
287 |         Location = newloc;
288 |         if(!Location){
289 |           pdf.hide();
290 |           svg.hide();
291 |           png.hide();
292 |           plotdiv.css("background-image", "");
293 |         } else {
294 |           pdf.attr("href", Location + "graphics/last/pdf?width=11.69&height=8.27&paper=a4r").show();
295 |           svg.attr("href", Location + "graphics/last/svg?width=11.69&height=8.27").show();
296 |           png.attr("href", Location + "graphics/last/png?width=800&height=600").show(); 
297 |           updatepng();
298 |         }
299 |       }
300 | 
301 |       // function to update the png image
302 |       var onresize = debounce(function(e) {
303 |         if(pngwidth == plotdiv.width() && pngheight == plotdiv.height()){
304 |           return;
305 |         }
306 |         if(plotdiv.is(":visible")){
307 |           updatepng();
308 |         }        
309 |       }, 500);   
310 |       
311 |       // register update handlers
312 |       plotdiv.on("resize", onresize);
313 |       $(window).on("resize", onresize);  
314 |       
315 |       //return objects      
316 |       return {
317 |         setlocation: setlocation,
318 |         spinner : spinner
319 |       };
320 |     }();
321 |     
322 |     targetdiv.data("ocpuplot", ocpuplot);
323 |     return ocpuplot;
324 |   }
325 | 
326 |   // from understore.js
327 |   function debounce(func, wait, immediate) {
328 |     var result;
329 |     var timeout = null;
330 |     return function() {
331 |       var context = this, args = arguments;
332 |       var later = function() {
333 |         timeout = null;
334 |         if (!immediate)
335 |           result = func.apply(context, args);
336 |       };
337 |       var callNow = immediate && !timeout;
338 |       clearTimeout(timeout);
339 |       timeout = setTimeout(later, wait);
340 |       if (callNow)
341 |         result = func.apply(context, args);
342 |       return result;
343 |     };
344 |   }
345 |   
346 |   function testhtml5(){
347 |     if( window.FormData === undefined ) {
348 |       alert("Uploading of files requires HTML5. It looks like you are using an outdated browser that does not support this. Please install Firefox, Chrome or Internet Explorer 10+");
349 |       throw "HTML5 required.";
350 |     }    
351 |   }
352 |   
353 |   //export
354 |   window.ocpu = window.ocpu || {};
355 |   var ocpu = window.ocpu;
356 |   
357 |   //global settings
358 |   function seturl(newpath){
359 |     if(!newpath.match("/R$")){
360 |       alert("ERROR! Trying to set R url to: " + newpath +". Path to an OpenCPU R package must end with '/R'");
361 |     } else {
362 |       r_path = document.createElement('a');
363 |       r_path.href = newpath;
364 |       r_path.href = r_path.href; //IE needs this
365 | 
366 |       if(location.protocol != r_path.protocol || location.host != r_path.host){
367 |         r_cors = true;
368 |         if (!('withCredentials' in new XMLHttpRequest())) {
369 |           alert("This browser does not support CORS. Try using Firefox or Chrome.");
370 |         }
371 |       }
372 | 
373 |       if(location.protocol == "https:" && r_path.protocol != "https:"){
374 |         alert("Page is hosted on HTTPS but using a (non-SSL) HTTP OpenCPU server. This is insecure and most browsers will not allow this.")
375 |       }
376 | 
377 |       if(r_cors){
378 |         console.log("Setting path to CORS server " + r_path.href);
379 |       } else {
380 |         console.log("Setting path to local (non-CORS) server " + r_path.href);
381 |       }
382 | 
383 |       //we use trycatch because javascript will throw an error in case CORS is refused.
384 |       $.get(r_path.href, function(resdata){
385 |         console.log("Path updated. Available objects/functions:\n" + resdata);
386 |       }).fail(function(xhr, textStatus, errorThrown){
387 |         alert("Connection to OpenCPU failed:\n" + textStatus + "\n" + xhr.responseText + "\n" + errorThrown);
388 |       });
389 |     }
390 |   }
391 | 
392 |   //exported functions
393 |   ocpu.call = r_fun_call;
394 |   ocpu.rpc = rpc;
395 |   ocpu.seturl = seturl;
396 |   
397 |   //exported constructors
398 |   ocpu.Snippet = Snippet;
399 |   ocpu.Upload = Upload;
400 |   
401 |   //for innernetz exploder
402 |   if (typeof console == "undefined") {
403 |     this.console = {log: function() {}};
404 |   }  
405 | 
406 | }( jQuery ));
407 | 


--------------------------------------------------------------------------------
/inst/www/src-min-noconflict/mode-markdown.js:
--------------------------------------------------------------------------------
1 | ace.define("ace/mode/markdown",["require","exports","module","ace/lib/oop","ace/mode/text","ace/mode/javascript","ace/mode/xml","ace/mode/html","ace/tokenizer","ace/mode/markdown_highlight_rules","ace/mode/folding/markdown"],function(e,t,n){var r=e("../lib/oop"),i=e("./text").Mode,s=e("./javascript").Mode,o=e("./xml").Mode,u=e("./html").Mode,a=e("../tokenizer").Tokenizer,f=e("./markdown_highlight_rules").MarkdownHighlightRules,l=e("./folding/markdown").FoldMode,c=function(){var e=new f;this.$tokenizer=new a(e.getRules()),this.$embeds=e.getEmbeds(),this.createModeDelegates({"js-":s,"xml-":o,"html-":u}),this.foldingRules=new l};r.inherits(c,i),function(){this.lineCommentStart=">",this.getNextLineIndent=function(e,t,n){if(e=="listblock"){var r=/^(\s*)(?:([-+*])|(\d+)\.)(\s+)/.exec(t);if(!r)return"";var i=r[2];return i||(i=parseInt(r[3],10)+1+"."),r[1]+i+r[4]}return this.$getIndent(t)}}.call(c.prototype),t.Mode=c}),ace.define("ace/mode/javascript",["require","exports","module","ace/lib/oop","ace/mode/text","ace/tokenizer","ace/mode/javascript_highlight_rules","ace/mode/matching_brace_outdent","ace/range","ace/worker/worker_client","ace/mode/behaviour/cstyle","ace/mode/folding/cstyle"],function(e,t,n){var r=e("../lib/oop"),i=e("./text").Mode,s=e("../tokenizer").Tokenizer,o=e("./javascript_highlight_rules").JavaScriptHighlightRules,u=e("./matching_brace_outdent").MatchingBraceOutdent,a=e("../range").Range,f=e("../worker/worker_client").WorkerClient,l=e("./behaviour/cstyle").CstyleBehaviour,c=e("./folding/cstyle").FoldMode,h=function(){var e=new o;this.$tokenizer=new s(e.getRules()),this.$outdent=new u,this.$behaviour=new l,this.$keywordList=e.$keywordList,this.foldingRules=new c};r.inherits(h,i),function(){this.lineCommentStart="//",this.blockComment={start:"/*",end:"*/"},this.getNextLineIndent=function(e,t,n){var r=this.$getIndent(t),i=this.$tokenizer.getLineTokens(t,e),s=i.tokens,o=i.state;if(s.length&&s[s.length-1].type=="comment")return r;if(e=="start"||e=="no_regex"){var u=t.match(/^.*(?:\bcase\b.*\:|[\{\(\[])\s*$/);u&&(r+=n)}else if(e=="doc-start"){if(o=="start"||o=="no_regex")return"";var u=t.match(/^\s*(\/?)\*/);u&&(u[1]&&(r+=" "),r+="* ")}return r},this.checkOutdent=function(e,t,n){return this.$outdent.checkOutdent(t,n)},this.autoOutdent=function(e,t,n){this.$outdent.autoOutdent(t,n)},this.createWorker=function(e){var t=new f(["ace"],"ace/mode/javascript_worker","JavaScriptWorker");return t.attachToDocument(e.getDocument()),t.on("jslint",function(t){e.setAnnotations(t.data)}),t.on("terminate",function(){e.clearAnnotations()}),t}}.call(h.prototype),t.Mode=h}),ace.define("ace/mode/javascript_highlight_rules",["require","exports","module","ace/lib/oop","ace/mode/doc_comment_highlight_rules","ace/mode/text_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("./doc_comment_highlight_rules").DocCommentHighlightRules,s=e("./text_highlight_rules").TextHighlightRules,o=function(){var e=this.createKeywordMapper({"variable.language":"Array|Boolean|Date|Function|Iterator|Number|Object|RegExp|String|Proxy|Namespace|QName|XML|XMLList|ArrayBuffer|Float32Array|Float64Array|Int16Array|Int32Array|Int8Array|Uint16Array|Uint32Array|Uint8Array|Uint8ClampedArray|Error|EvalError|InternalError|RangeError|ReferenceError|StopIteration|SyntaxError|TypeError|URIError|decodeURI|decodeURIComponent|encodeURI|encodeURIComponent|eval|isFinite|isNaN|parseFloat|parseInt|JSON|Math|this|arguments|prototype|window|document",keyword:"const|yield|import|get|set|break|case|catch|continue|default|delete|do|else|finally|for|function|if|in|instanceof|new|return|switch|throw|try|typeof|let|var|while|with|debugger|__parent__|__count__|escape|unescape|with|__proto__|class|enum|extends|super|export|implements|private|public|interface|package|protected|static","storage.type":"const|let|var|function","constant.language":"null|Infinity|NaN|undefined","support.function":"alert","constant.language.boolean":"true|false"},"identifier"),t="case|do|else|finally|in|instanceof|return|throw|try|typeof|yield|void",n="[a-zA-Z\\$_¡-￿][a-zA-Z\\d\\$_¡-￿]*\\b",r="\\\\(?:x[0-9a-fA-F]{2}|u[0-9a-fA-F]{4}|[0-2][0-7]{0,2}|3[0-6][0-7]?|37[0-7]?|[4-7][0-7]?|.)";this.$rules={no_regex:[{token:"comment",regex:"\\/\\/",next:"line_comment"},i.getStartRule("doc-start"),{token:"comment",regex:/\/\*/,next:"comment"},{token:"string",regex:"'(?=.)",next:"qstring"},{token:"string",regex:'"(?=.)',next:"qqstring"},{token:"constant.numeric",regex:/0[xX][0-9a-fA-F]+\b/},{token:"constant.numeric",regex:/[+-]?\d+(?:(?:\.\d*)?(?:[eE][+-]?\d+)?)?\b/},{token:["storage.type","punctuation.operator","support.function","punctuation.operator","entity.name.function","text","keyword.operator"],regex:"("+n+")(\\.)(prototype)(\\.)("+n+")(\\s*)(=)",next:"function_arguments"},{token:["storage.type","punctuation.operator","entity.name.function","text","keyword.operator","text","storage.type","text","paren.lparen"],regex:"("+n+")(\\.)("+n+")(\\s*)(=)(\\s*)(function)(\\s*)(\\()",next:"function_arguments"},{token:["entity.name.function","text","keyword.operator","text","storage.type","text","paren.lparen"],regex:"("+n+")(\\s*)(=)(\\s*)(function)(\\s*)(\\()",next:"function_arguments"},{token:["storage.type","punctuation.operator","entity.name.function","text","keyword.operator","text","storage.type","text","entity.name.function","text","paren.lparen"],regex:"("+n+")(\\.)("+n+")(\\s*)(=)(\\s*)(function)(\\s+)(\\w+)(\\s*)(\\()",next:"function_arguments"},{token:["storage.type","text","entity.name.function","text","paren.lparen"],regex:"(function)(\\s+)("+n+")(\\s*)(\\()",next:"function_arguments"},{token:["entity.name.function","text","punctuation.operator","text","storage.type","text","paren.lparen"],regex:"("+n+")(\\s*)(:)(\\s*)(function)(\\s*)(\\()",next:"function_arguments"},{token:["text","text","storage.type","text","paren.lparen"],regex:"(:)(\\s*)(function)(\\s*)(\\()",next:"function_arguments"},{token:"keyword",regex:"(?:"+t+")\\b",next:"start"},{token:["punctuation.operator","support.function"],regex:/(\.)(s(?:h(?:ift|ow(?:Mod(?:elessDialog|alDialog)|Help))|croll(?:X|By(?:Pages|Lines)?|Y|To)?|t(?:op|rike)|i(?:n|zeToContent|debar|gnText)|ort|u(?:p|b(?:str(?:ing)?)?)|pli(?:ce|t)|e(?:nd|t(?:Re(?:sizable|questHeader)|M(?:i(?:nutes|lliseconds)|onth)|Seconds|Ho(?:tKeys|urs)|Year|Cursor|Time(?:out)?|Interval|ZOptions|Date|UTC(?:M(?:i(?:nutes|lliseconds)|onth)|Seconds|Hours|Date|FullYear)|FullYear|Active)|arch)|qrt|lice|avePreferences|mall)|h(?:ome|andleEvent)|navigate|c(?:har(?:CodeAt|At)|o(?:s|n(?:cat|textual|firm)|mpile)|eil|lear(?:Timeout|Interval)?|a(?:ptureEvents|ll)|reate(?:StyleSheet|Popup|EventObject))|t(?:o(?:GMTString|S(?:tring|ource)|U(?:TCString|pperCase)|Lo(?:caleString|werCase))|est|a(?:n|int(?:Enabled)?))|i(?:s(?:NaN|Finite)|ndexOf|talics)|d(?:isableExternalCapture|ump|etachEvent)|u(?:n(?:shift|taint|escape|watch)|pdateCommands)|j(?:oin|avaEnabled)|p(?:o(?:p|w)|ush|lugins.refresh|a(?:ddings|rse(?:Int|Float)?)|r(?:int|ompt|eference))|e(?:scape|nableExternalCapture|val|lementFromPoint|x(?:p|ec(?:Script|Command)?))|valueOf|UTC|queryCommand(?:State|Indeterm|Enabled|Value)|f(?:i(?:nd|le(?:ModifiedDate|Size|CreatedDate|UpdatedDate)|xed)|o(?:nt(?:size|color)|rward)|loor|romCharCode)|watch|l(?:ink|o(?:ad|g)|astIndexOf)|a(?:sin|nchor|cos|t(?:tachEvent|ob|an(?:2)?)|pply|lert|b(?:s|ort))|r(?:ou(?:nd|teEvents)|e(?:size(?:By|To)|calc|turnValue|place|verse|l(?:oad|ease(?:Capture|Events)))|andom)|g(?:o|et(?:ResponseHeader|M(?:i(?:nutes|lliseconds)|onth)|Se(?:conds|lection)|Hours|Year|Time(?:zoneOffset)?|Da(?:y|te)|UTC(?:M(?:i(?:nutes|lliseconds)|onth)|Seconds|Hours|Da(?:y|te)|FullYear)|FullYear|A(?:ttention|llResponseHeaders)))|m(?:in|ove(?:B(?:y|elow)|To(?:Absolute)?|Above)|ergeAttributes|a(?:tch|rgins|x))|b(?:toa|ig|o(?:ld|rderWidths)|link|ack))\b(?=\()/},{token:["punctuation.operator","support.function.dom"],regex:/(\.)(s(?:ub(?:stringData|mit)|plitText|e(?:t(?:NamedItem|Attribute(?:Node)?)|lect))|has(?:ChildNodes|Feature)|namedItem|c(?:l(?:ick|o(?:se|neNode))|reate(?:C(?:omment|DATASection|aption)|T(?:Head|extNode|Foot)|DocumentFragment|ProcessingInstruction|E(?:ntityReference|lement)|Attribute))|tabIndex|i(?:nsert(?:Row|Before|Cell|Data)|tem)|open|delete(?:Row|C(?:ell|aption)|T(?:Head|Foot)|Data)|focus|write(?:ln)?|a(?:dd|ppend(?:Child|Data))|re(?:set|place(?:Child|Data)|move(?:NamedItem|Child|Attribute(?:Node)?)?)|get(?:NamedItem|Element(?:sBy(?:Name|TagName)|ById)|Attribute(?:Node)?)|blur)\b(?=\()/},{token:["punctuation.operator","support.constant"],regex:/(\.)(s(?:ystemLanguage|cr(?:ipts|ollbars|een(?:X|Y|Top|Left))|t(?:yle(?:Sheets)?|atus(?:Text|bar)?)|ibling(?:Below|Above)|ource|uffixes|e(?:curity(?:Policy)?|l(?:ection|f)))|h(?:istory|ost(?:name)?|as(?:h|Focus))|y|X(?:MLDocument|SLDocument)|n(?:ext|ame(?:space(?:s|URI)|Prop))|M(?:IN_VALUE|AX_VALUE)|c(?:haracterSet|o(?:n(?:structor|trollers)|okieEnabled|lorDepth|mp(?:onents|lete))|urrent|puClass|l(?:i(?:p(?:boardData)?|entInformation)|osed|asses)|alle(?:e|r)|rypto)|t(?:o(?:olbar|p)|ext(?:Transform|Indent|Decoration|Align)|ags)|SQRT(?:1_2|2)|i(?:n(?:ner(?:Height|Width)|put)|ds|gnoreCase)|zIndex|o(?:scpu|n(?:readystatechange|Line)|uter(?:Height|Width)|p(?:sProfile|ener)|ffscreenBuffering)|NEGATIVE_INFINITY|d(?:i(?:splay|alog(?:Height|Top|Width|Left|Arguments)|rectories)|e(?:scription|fault(?:Status|Ch(?:ecked|arset)|View)))|u(?:ser(?:Profile|Language|Agent)|n(?:iqueID|defined)|pdateInterval)|_content|p(?:ixelDepth|ort|ersonalbar|kcs11|l(?:ugins|atform)|a(?:thname|dding(?:Right|Bottom|Top|Left)|rent(?:Window|Layer)?|ge(?:X(?:Offset)?|Y(?:Offset)?))|r(?:o(?:to(?:col|type)|duct(?:Sub)?|mpter)|e(?:vious|fix)))|e(?:n(?:coding|abledPlugin)|x(?:ternal|pando)|mbeds)|v(?:isibility|endor(?:Sub)?|Linkcolor)|URLUnencoded|P(?:I|OSITIVE_INFINITY)|f(?:ilename|o(?:nt(?:Size|Family|Weight)|rmName)|rame(?:s|Element)|gColor)|E|whiteSpace|l(?:i(?:stStyleType|n(?:eHeight|kColor))|o(?:ca(?:tion(?:bar)?|lName)|wsrc)|e(?:ngth|ft(?:Context)?)|a(?:st(?:M(?:odified|atch)|Index|Paren)|yer(?:s|X)|nguage))|a(?:pp(?:MinorVersion|Name|Co(?:deName|re)|Version)|vail(?:Height|Top|Width|Left)|ll|r(?:ity|guments)|Linkcolor|bove)|r(?:ight(?:Context)?|e(?:sponse(?:XML|Text)|adyState))|global|x|m(?:imeTypes|ultiline|enubar|argin(?:Right|Bottom|Top|Left))|L(?:N(?:10|2)|OG(?:10E|2E))|b(?:o(?:ttom|rder(?:Width|RightWidth|BottomWidth|Style|Color|TopWidth|LeftWidth))|ufferDepth|elow|ackground(?:Color|Image)))\b/},{token:["storage.type","punctuation.operator","support.function.firebug"],regex:/(console)(\.)(warn|info|log|error|time|timeEnd|assert)\b/},{token:e,regex:n},{token:"keyword.operator",regex:/--|\+\+|[!$%&*+\-~]|===|==|=|!=|!==|<=|>=|<<=|>>=|>>>=|<>|<|>|!|&&|\|\||\?\:|\*=|%=|\+=|\-=|&=|\^=/,next:"start"},{token:"punctuation.operator",regex:/\?|\:|\,|\;|\./,next:"start"},{token:"paren.lparen",regex:/[\[({]/,next:"start"},{token:"paren.rparen",regex:/[\])}]/},{token:"keyword.operator",regex:/\/=?/,next:"start"},{token:"comment",regex:/^#!.*$/}],start:[i.getStartRule("doc-start"),{token:"comment",regex:"\\/\\*",next:"comment_regex_allowed"},{token:"comment",regex:"\\/\\/",next:"line_comment_regex_allowed"},{token:"string.regexp",regex:"\\/",next:"regex"},{token:"text",regex:"\\s+|^$",next:"start"},{token:"empty",regex:"",next:"no_regex"}],regex:[{token:"regexp.keyword.operator",regex:"\\\\(?:u[\\da-fA-F]{4}|x[\\da-fA-F]{2}|.)"},{token:"string.regexp",regex:"/\\w*",next:"no_regex"},{token:"invalid",regex:/\{\d+\b,?\d*\}[+*]|[+*$^?][+*]|[$^][?]|\?{3,}/},{token:"constant.language.escape",regex:/\(\?[:=!]|\)|\{\d+\b,?\d*\}|[+*]\?|[()$^+*?]/},{token:"constant.language.delimiter",regex:/\|/},{token:"constant.language.escape",regex:/\[\^?/,next:"regex_character_class"},{token:"empty",regex:"$",next:"no_regex"},{defaultToken:"string.regexp"}],regex_character_class:[{token:"regexp.keyword.operator",regex:"\\\\(?:u[\\da-fA-F]{4}|x[\\da-fA-F]{2}|.)"},{token:"constant.language.escape",regex:"]",next:"regex"},{token:"constant.language.escape",regex:"-"},{token:"empty",regex:"$",next:"no_regex"},{defaultToken:"string.regexp.charachterclass"}],function_arguments:[{token:"variable.parameter",regex:n},{token:"punctuation.operator",regex:"[, ]+"},{token:"punctuation.operator",regex:"$"},{token:"empty",regex:"",next:"no_regex"}],comment_regex_allowed:[{token:"comment",regex:"\\*\\/",next:"start"},{defaultToken:"comment"}],comment:[{token:"comment",regex:"\\*\\/",next:"no_regex"},{defaultToken:"comment"}],line_comment_regex_allowed:[{token:"comment",regex:"$|^",next:"start"},{defaultToken:"comment"}],line_comment:[{token:"comment",regex:"$|^",next:"no_regex"},{defaultToken:"comment"}],qqstring:[{token:"constant.language.escape",regex:r},{token:"string",regex:"\\\\$",next:"qqstring"},{token:"string",regex:'"|$',next:"no_regex"},{defaultToken:"string"}],qstring:[{token:"constant.language.escape",regex:r},{token:"string",regex:"\\\\$",next:"qstring"},{token:"string",regex:"'|$",next:"no_regex"},{defaultToken:"string"}]},this.embedRules(i,"doc-",[i.getEndRule("no_regex")])};r.inherits(o,s),t.JavaScriptHighlightRules=o}),ace.define("ace/mode/doc_comment_highlight_rules",["require","exports","module","ace/lib/oop","ace/mode/text_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("./text_highlight_rules").TextHighlightRules,s=function(){this.$rules={start:[{token:"comment.doc.tag",regex:"@[\\w\\d_]+"},{token:"comment.doc.tag",regex:"\\bTODO\\b"},{defaultToken:"comment.doc"}]}};r.inherits(s,i),s.getStartRule=function(e){return{token:"comment.doc",regex:"\\/\\*(?=\\*)",next:e}},s.getEndRule=function(e){return{token:"comment.doc",regex:"\\*\\/",next:e}},t.DocCommentHighlightRules=s}),ace.define("ace/mode/matching_brace_outdent",["require","exports","module","ace/range"],function(e,t,n){var r=e("../range").Range,i=function(){};(function(){this.checkOutdent=function(e,t){return/^\s+$/.test(e)?/^\s*\}/.test(t):!1},this.autoOutdent=function(e,t){var n=e.getLine(t),i=n.match(/^(\s*\})/);if(!i)return 0;var s=i[1].length,o=e.findMatchingBracket({row:t,column:s});if(!o||o.row==t)return 0;var u=this.$getIndent(e.getLine(o.row));e.replace(new r(t,0,t,s-1),u)},this.$getIndent=function(e){return e.match(/^\s*/)[0]}}).call(i.prototype),t.MatchingBraceOutdent=i}),ace.define("ace/mode/behaviour/cstyle",["require","exports","module","ace/lib/oop","ace/mode/behaviour","ace/token_iterator","ace/lib/lang"],function(e,t,n){var r=e("../../lib/oop"),i=e("../behaviour").Behaviour,s=e("../../token_iterator").TokenIterator,o=e("../../lib/lang"),u=["text","paren.rparen","punctuation.operator"],a=["text","paren.rparen","punctuation.operator","comment"],f=0,l=-1,c="",h=0,p=-1,d="",v="",m=function(){m.isSaneInsertion=function(e,t){var n=e.getCursorPosition(),r=new s(t,n.row,n.column);if(!this.$matchTokenType(r.getCurrentToken()||"text",u)){var i=new s(t,n.row,n.column+1);if(!this.$matchTokenType(i.getCurrentToken()||"text",u))return!1}return r.stepForward(),r.getCurrentTokenRow()!==n.row||this.$matchTokenType(r.getCurrentToken()||"text",a)},m.$matchTokenType=function(e,t){return t.indexOf(e.type||e)>-1},m.recordAutoInsert=function(e,t,n){var r=e.getCursorPosition(),i=t.doc.getLine(r.row);this.isAutoInsertedClosing(r,i,c[0])||(f=0),l=r.row,c=n+i.substr(r.column),f++},m.recordMaybeInsert=function(e,t,n){var r=e.getCursorPosition(),i=t.doc.getLine(r.row);this.isMaybeInsertedClosing(r,i)||(h=0),p=r.row,d=i.substr(0,r.column)+n,v=i.substr(r.column),h++},m.isAutoInsertedClosing=function(e,t,n){return f>0&&e.row===l&&n===c[0]&&t.substr(e.column)===c},m.isMaybeInsertedClosing=function(e,t){return h>0&&e.row===p&&t.substr(e.column)===v&&t.substr(0,e.column)==d},m.popAutoInsertedClosing=function(){c=c.substr(1),f--},m.clearMaybeInsertedClosing=function(){h=0,p=-1},this.add("braces","insertion",function(e,t,n,r,i){var s=n.getCursorPosition(),u=r.doc.getLine(s.row);if(i=="{"){var a=n.getSelectionRange(),f=r.doc.getTextRange(a);if(f!==""&&f!=="{"&&n.getWrapBehavioursEnabled())return{text:"{"+f+"}",selection:!1};if(m.isSaneInsertion(n,r))return/[\]\}\)]/.test(u[s.column])?(m.recordAutoInsert(n,r,"}"),{text:"{}",selection:[1,1]}):(m.recordMaybeInsert(n,r,"{"),{text:"{",selection:[1,1]})}else if(i=="}"){var l=u.substring(s.column,s.column+1);if(l=="}"){var c=r.$findOpeningBracket("}",{column:s.column+1,row:s.row});if(c!==null&&m.isAutoInsertedClosing(s,u,i))return m.popAutoInsertedClosing(),{text:"",selection:[1,1]}}}else if(i=="\n"||i=="\r\n"){var p="";m.isMaybeInsertedClosing(s,u)&&(p=o.stringRepeat("}",h),m.clearMaybeInsertedClosing());var l=u.substring(s.column,s.column+1);if(l=="}"||p!==""){var d=r.findMatchingBracket({row:s.row,column:s.column},"}");if(!d)return null;var v=this.getNextLineIndent(e,u.substring(0,s.column),r.getTabString()),g=this.$getIndent(u);return{text:"\n"+v+"\n"+g+p,selection:[1,v.length,1,v.length]}}}}),this.add("braces","deletion",function(e,t,n,r,i){var s=r.doc.getTextRange(i);if(!i.isMultiLine()&&s=="{"){var o=r.doc.getLine(i.start.row),u=o.substring(i.end.column,i.end.column+1);if(u=="}")return i.end.column++,i;h--}}),this.add("parens","insertion",function(e,t,n,r,i){if(i=="("){var s=n.getSelectionRange(),o=r.doc.getTextRange(s);if(o!==""&&n.getWrapBehavioursEnabled())return{text:"("+o+")",selection:!1};if(m.isSaneInsertion(n,r))return m.recordAutoInsert(n,r,")"),{text:"()",selection:[1,1]}}else if(i==")"){var u=n.getCursorPosition(),a=r.doc.getLine(u.row),f=a.substring(u.column,u.column+1);if(f==")"){var l=r.$findOpeningBracket(")",{column:u.column+1,row:u.row});if(l!==null&&m.isAutoInsertedClosing(u,a,i))return m.popAutoInsertedClosing(),{text:"",selection:[1,1]}}}}),this.add("parens","deletion",function(e,t,n,r,i){var s=r.doc.getTextRange(i);if(!i.isMultiLine()&&s=="("){var o=r.doc.getLine(i.start.row),u=o.substring(i.start.column+1,i.start.column+2);if(u==")")return i.end.column++,i}}),this.add("brackets","insertion",function(e,t,n,r,i){if(i=="["){var s=n.getSelectionRange(),o=r.doc.getTextRange(s);if(o!==""&&n.getWrapBehavioursEnabled())return{text:"["+o+"]",selection:!1};if(m.isSaneInsertion(n,r))return m.recordAutoInsert(n,r,"]"),{text:"[]",selection:[1,1]}}else if(i=="]"){var u=n.getCursorPosition(),a=r.doc.getLine(u.row),f=a.substring(u.column,u.column+1);if(f=="]"){var l=r.$findOpeningBracket("]",{column:u.column+1,row:u.row});if(l!==null&&m.isAutoInsertedClosing(u,a,i))return m.popAutoInsertedClosing(),{text:"",selection:[1,1]}}}}),this.add("brackets","deletion",function(e,t,n,r,i){var s=r.doc.getTextRange(i);if(!i.isMultiLine()&&s=="["){var o=r.doc.getLine(i.start.row),u=o.substring(i.start.column+1,i.start.column+2);if(u=="]")return i.end.column++,i}}),this.add("string_dquotes","insertion",function(e,t,n,r,i){if(i=='"'||i=="'"){var s=i,o=n.getSelectionRange(),u=r.doc.getTextRange(o);if(u!==""&&u!=="'"&&u!='"'&&n.getWrapBehavioursEnabled())return{text:s+u+s,selection:!1};var a=n.getCursorPosition(),f=r.doc.getLine(a.row),l=f.substring(a.column-1,a.column);if(l=="\\")return null;var c=r.getTokens(o.start.row),h=0,p,d=-1;for(var v=0;v<c.length;v++){p=c[v],p.type=="string"?d=-1:d<0&&(d=p.value.indexOf(s));if(p.value.length+h>o.start.column)break;h+=c[v].value.length}if(!p||d<0&&p.type!=="comment"&&(p.type!=="string"||o.start.column!==p.value.length+h-1&&p.value.lastIndexOf(s)===p.value.length-1)){if(!m.isSaneInsertion(n,r))return;return{text:s+s,selection:[1,1]}}if(p&&p.type==="string"){var g=f.substring(a.column,a.column+1);if(g==s)return{text:"",selection:[1,1]}}}}),this.add("string_dquotes","deletion",function(e,t,n,r,i){var s=r.doc.getTextRange(i);if(!i.isMultiLine()&&(s=='"'||s=="'")){var o=r.doc.getLine(i.start.row),u=o.substring(i.start.column+1,i.start.column+2);if(u==s)return i.end.column++,i}})};r.inherits(m,i),t.CstyleBehaviour=m}),ace.define("ace/mode/folding/cstyle",["require","exports","module","ace/lib/oop","ace/range","ace/mode/folding/fold_mode"],function(e,t,n){var r=e("../../lib/oop"),i=e("../../range").Range,s=e("./fold_mode").FoldMode,o=t.FoldMode=function(e){e&&(this.foldingStartMarker=new RegExp(this.foldingStartMarker.source.replace(/\|[^|]*?$/,"|"+e.start)),this.foldingStopMarker=new RegExp(this.foldingStopMarker.source.replace(/\|[^|]*?$/,"|"+e.end)))};r.inherits(o,s),function(){this.foldingStartMarker=/(\{|\[)[^\}\]]*$|^\s*(\/\*)/,this.foldingStopMarker=/^[^\[\{]*(\}|\])|^[\s\*]*(\*\/)/,this.getFoldWidgetRange=function(e,t,n){var r=e.getLine(n),i=r.match(this.foldingStartMarker);if(i){var s=i.index;return i[1]?this.openingBracketBlock(e,i[1],n,s):e.getCommentFoldRange(n,s+i[0].length,1)}if(t!=="markbeginend")return;var i=r.match(this.foldingStopMarker);if(i){var s=i.index+i[0].length;return i[1]?this.closingBracketBlock(e,i[1],n,s):e.getCommentFoldRange(n,s,-1)}}}.call(o.prototype)}),ace.define("ace/mode/xml",["require","exports","module","ace/lib/oop","ace/mode/text","ace/tokenizer","ace/mode/xml_highlight_rules","ace/mode/behaviour/xml","ace/mode/folding/xml"],function(e,t,n){var r=e("../lib/oop"),i=e("./text").Mode,s=e("../tokenizer").Tokenizer,o=e("./xml_highlight_rules").XmlHighlightRules,u=e("./behaviour/xml").XmlBehaviour,a=e("./folding/xml").FoldMode,f=function(){this.$tokenizer=new s((new o).getRules()),this.$behaviour=new u,this.foldingRules=new a};r.inherits(f,i),function(){this.blockComment={start:"<!--",end:"-->"}}.call(f.prototype),t.Mode=f}),ace.define("ace/mode/xml_highlight_rules",["require","exports","module","ace/lib/oop","ace/mode/xml_util","ace/mode/text_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("./xml_util"),s=e("./text_highlight_rules").TextHighlightRules,o=function(e){this.$rules={start:[{token:"punctuation.string.begin",regex:"<\\!\\[CDATA\\[",next:"cdata"},{token:["punctuation.instruction.begin","keyword.instruction"],regex:"(<\\?)(xml)(?=[\\s])",next:"xml_declaration"},{token:["punctuation.instruction.begin","keyword.instruction"],regex:"(<\\?)([-_a-zA-Z0-9]+)",next:"instruction"},{token:"comment",regex:"<\\!--",next:"comment"},{token:["punctuation.doctype.begin","meta.tag.doctype"],regex:"(<\\!)(DOCTYPE)(?=[\\s])",next:"doctype"},{include:"tag"},{include:"reference"}],xml_declaration:[{include:"attributes"},{include:"instruction"}],instruction:[{token:"punctuation.instruction.end",regex:"\\?>",next:"start"}],doctype:[{include:"space"},{include:"string"},{token:"punctuation.doctype.end",regex:">",next:"start"},{token:"xml-pe",regex:"[-_a-zA-Z0-9:]+"},{token:"punctuation.begin",regex:"\\[",push:"declarations"}],declarations:[{token:"text",regex:"\\s+"},{token:"punctuation.end",regex:"]",next:"pop"},{token:["punctuation.begin","keyword"],regex:"(<\\!)([-_a-zA-Z0-9]+)",push:[{token:"text",regex:"\\s+"},{token:"punctuation.end",regex:">",next:"pop"},{include:"string"}]}],cdata:[{token:"string.end",regex:"\\]\\]>",next:"start"},{token:"text",regex:"\\s+"},{token:"text",regex:"(?:[^\\]]|\\](?!\\]>))+"}],comment:[{token:"comment",regex:"-->",next:"start"},{defaultToken:"comment"}],tag:[{token:["meta.tag.punctuation.begin","meta.tag.name"],regex:"(<)((?:[-_a-zA-Z0-9]+:)?[-_a-zA-Z0-9]+)",next:[{include:"attributes"},{token:"meta.tag.punctuation.end",regex:"/?>",next:"start"}]},{token:["meta.tag.punctuation.begin","meta.tag.name"],regex:"(</)((?:[-_a-zA-Z0-9]+:)?[-_a-zA-Z0-9]+)",next:[{include:"space"},{token:"meta.tag.punctuation.end",regex:">",next:"start"}]}],space:[{token:"text",regex:"\\s+"}],reference:[{token:"constant.language.escape",regex:"(?:&#[0-9]+;)|(?:&#x[0-9a-fA-F]+;)|(?:&[a-zA-Z0-9_:\\.-]+;)"},{token:"invalid.illegal",regex:"&"}],string:[{token:"string",regex:"'",push:"qstring_inner"},{token:"string",regex:'"',push:"qqstring_inner"}],qstring_inner:[{token:"string",regex:"'",next:"pop"},{include:"reference"},{defaultToken:"string"}],qqstring_inner:[{token:"string",regex:'"',next:"pop"},{include:"reference"},{defaultToken:"string"}],attributes:[{token:"entity.other.attribute-name",regex:"(?:[-_a-zA-Z0-9]+:)?[-_a-zA-Z0-9]+"},{token:"keyword.operator.separator",regex:"="},{include:"space"},{include:"string"}]},this.constructor===o&&this.normalizeRules()};(function(){this.embedTagRules=function(e,t,n){this.$rules.tag.unshift({token:["meta.tag.punctuation.begin","meta.tag.name."+n],regex:"(<)("+n+")",next:[{include:"space"},{include:"attributes"},{token:"meta.tag.punctuation.end",regex:"/?>",next:t+"start"}]}),this.$rules[n+"-end"]=[{include:"space"},{token:"meta.tag.punctuation.end",regex:">",next:"start",onMatch:function(e,t,n){return n.splice(0),this.token}}],this.embedRules(e,t,[{token:["meta.tag.punctuation.begin","meta.tag.name."+n],regex:"(</)("+n+")",next:n+"-end"},{token:"string.begin",regex:"<\\!\\[CDATA\\["},{token:"string.end",regex:"\\]\\]>"}])}}).call(s.prototype),r.inherits(o,s),t.XmlHighlightRules=o}),ace.define("ace/mode/xml_util",["require","exports","module"],function(e,t,n){function r(e){return[{token:"string",regex:'"',next:e+"_qqstring"},{token:"string",regex:"'",next:e+"_qstring"}]}function i(e,t){return[{token:"string",regex:e,next:t},{token:"constant.language.escape",regex:"(?:&#[0-9]+;)|(?:&#x[0-9a-fA-F]+;)|(?:&[a-zA-Z0-9_:\\.-]+;)"},{defaultToken:"string"}]}t.tag=function(e,t,n,s){e[t]=[{token:"text",regex:"\\s+"},{token:s?function(e){return s[e]?"meta.tag.tag-name."+s[e]:"meta.tag.tag-name"}:"meta.tag.tag-name",regex:"[-_a-zA-Z0-9:]+",next:t+"_embed_attribute_list"},{token:"empty",regex:"",next:t+"_embed_attribute_list"}],e[t+"_qstring"]=i("'",t+"_embed_attribute_list"),e[t+"_qqstring"]=i('"',t+"_embed_attribute_list"),e[t+"_embed_attribute_list"]=[{token:"meta.tag.r",regex:"/?>",next:n},{token:"keyword.operator",regex:"="},{token:"entity.other.attribute-name",regex:"[-_a-zA-Z0-9:]+"},{token:"constant.numeric",regex:"[+-]?\\d+(?:(?:\\.\\d*)?(?:[eE][+-]?\\d+)?)?\\b"},{token:"text",regex:"\\s+"}].concat(r(t))}}),ace.define("ace/mode/behaviour/xml",["require","exports","module","ace/lib/oop","ace/mode/behaviour","ace/mode/behaviour/cstyle","ace/token_iterator"],function(e,t,n){function u(e,t){var n=e.type.split(".");return t.split(".").every(function(e){return n.indexOf(e)!==-1})}var r=e("../../lib/oop"),i=e("../behaviour").Behaviour,s=e("./cstyle").CstyleBehaviour,o=e("../../token_iterator").TokenIterator,a=function(){this.inherit(s,["string_dquotes"]),this.add("autoclosing","insertion",function(e,t,n,r,i){if(i==">"){var s=n.getCursorPosition(),a=new o(r,s.row,s.column),f=a.getCurrentToken();if(f&&u(f,"string")&&a.getCurrentTokenColumn()+f.value.length>s.column)return;var l=!1;if(!f||!u(f,"meta.tag")&&(!u(f,"text")||!f.value.match("/"))){do f=a.stepBackward();while(f&&(u(f,"string")||u(f,"keyword.operator")||u(f,"entity.attribute-name")||u(f,"text")))}else l=!0;if(!f||!u(f,"meta.tag.name")||a.stepBackward().value.match("/"))return;var c=f.value;if(l)var c=c.substring(0,s.column-f.start);return{text:"></"+c+">",selection:[1,1]}}}),this.add("autoindent","insertion",function(e,t,n,r,i){if(i=="\n"){var s=n.getCursorPosition(),o=r.getLine(s.row),u=o.substring(s.column,s.column+2);if(u=="</"){var a=this.$getIndent(o),f=a+r.getTabString();return{text:"\n"+f+"\n"+a,selection:[1,f.length,1,f.length]}}}})};r.inherits(a,i),t.XmlBehaviour=a}),ace.define("ace/mode/folding/xml",["require","exports","module","ace/lib/oop","ace/lib/lang","ace/range","ace/mode/folding/fold_mode","ace/token_iterator"],function(e,t,n){var r=e("../../lib/oop"),i=e("../../lib/lang"),s=e("../../range").Range,o=e("./fold_mode").FoldMode,u=e("../../token_iterator").TokenIterator,a=t.FoldMode=function(e){o.call(this),this.voidElements=e||{}};r.inherits(a,o),function(){this.getFoldWidget=function(e,t,n){var r=this._getFirstTagInLine(e,n);return r.closing?t=="markbeginend"?"end":"":!r.tagName||this.voidElements[r.tagName.toLowerCase()]?"":r.selfClosing?"":r.value.indexOf("/"+r.tagName)!==-1?"":"start"},this._getFirstTagInLine=function(e,t){var n=e.getTokens(t),r="";for(var s=0;s<n.length;s++){var o=n[s];o.type.lastIndexOf("meta.tag",0)===0?r+=o.value:r+=i.stringRepeat(" ",o.value.length)}return this._parseTag(r)},this.tagRe=/^(\s*)(<?(\/?)([-_a-zA-Z0-9:!]*)\s*(\/?)>?)/,this._parseTag=function(e){var t=e.match(this.tagRe),n=0;return{value:e,match:t?t[2]:"",closing:t?!!t[3]:!1,selfClosing:t?!!t[5]||t[2]=="/>":!1,tagName:t?t[4]:"",column:t[1]?n+t[1].length:n}},this._readTagForward=function(e){var t=e.getCurrentToken();if(!t)return null;var n="",r;do if(t.type.lastIndexOf("meta.tag",0)===0){if(!r)var r={row:e.getCurrentTokenRow(),column:e.getCurrentTokenColumn()};n+=t.value;if(n.indexOf(">")!==-1){var i=this._parseTag(n);return i.start=r,i.end={row:e.getCurrentTokenRow(),column:e.getCurrentTokenColumn()+t.value.length},e.stepForward(),i}}while(t=e.stepForward());return null},this._readTagBackward=function(e){var t=e.getCurrentToken();if(!t)return null;var n="",r;do if(t.type.lastIndexOf("meta.tag",0)===0){r||(r={row:e.getCurrentTokenRow(),column:e.getCurrentTokenColumn()+t.value.length}),n=t.value+n;if(n.indexOf("<")!==-1){var i=this._parseTag(n);return i.end=r,i.start={row:e.getCurrentTokenRow(),column:e.getCurrentTokenColumn()},e.stepBackward(),i}}while(t=e.stepBackward());return null},this._pop=function(e,t){while(e.length){var n=e[e.length-1];if(!t||n.tagName==t.tagName)return e.pop();if(this.voidElements[t.tagName])return;if(this.voidElements[n.tagName]){e.pop();continue}return null}},this.getFoldWidgetRange=function(e,t,n){var r=this._getFirstTagInLine(e,n);if(!r.match)return null;var i=r.closing||r.selfClosing,o=[],a;if(!i){var f=new u(e,n,r.column),l={row:n,column:r.column+r.tagName.length+2};while(a=this._readTagForward(f)){if(a.selfClosing){if(!o.length)return a.start.column+=a.tagName.length+2,a.end.column-=2,s.fromPoints(a.start,a.end);continue}if(a.closing){this._pop(o,a);if(o.length==0)return s.fromPoints(l,a.start)}else o.push(a)}}else{var f=new u(e,n,r.column+r.match.length),c={row:n,column:r.column};while(a=this._readTagBackward(f)){if(a.selfClosing){if(!o.length)return a.start.column+=a.tagName.length+2,a.end.column-=2,s.fromPoints(a.start,a.end);continue}if(!a.closing){this._pop(o,a);if(o.length==0)return a.start.column+=a.tagName.length+2,s.fromPoints(a.start,c)}else o.push(a)}}}}.call(a.prototype)}),ace.define("ace/mode/html",["require","exports","module","ace/lib/oop","ace/mode/text","ace/mode/javascript","ace/mode/css","ace/tokenizer","ace/mode/html_highlight_rules","ace/mode/behaviour/html","ace/mode/folding/html"],function(e,t,n){var r=e("../lib/oop"),i=e("./text").Mode,s=e("./javascript").Mode,o=e("./css").Mode,u=e("../tokenizer").Tokenizer,a=e("./html_highlight_rules").HtmlHighlightRules,f=e("./behaviour/html").HtmlBehaviour,l=e("./folding/html").FoldMode,c=function(){var e=new a;this.$tokenizer=new u(e.getRules()),this.$behaviour=new f,this.$embeds=e.getEmbeds(),this.createModeDelegates({"js-":s,"css-":o}),this.foldingRules=new l};r.inherits(c,i),function(){this.blockComment={start:"<!--",end:"-->"},this.getNextLineIndent=function(e,t,n){return this.$getIndent(t)},this.checkOutdent=function(e,t,n){return!1}}.call(c.prototype),t.Mode=c}),ace.define("ace/mode/css",["require","exports","module","ace/lib/oop","ace/mode/text","ace/tokenizer","ace/mode/css_highlight_rules","ace/mode/matching_brace_outdent","ace/worker/worker_client","ace/mode/behaviour/css","ace/mode/folding/cstyle"],function(e,t,n){var r=e("../lib/oop"),i=e("./text").Mode,s=e("../tokenizer").Tokenizer,o=e("./css_highlight_rules").CssHighlightRules,u=e("./matching_brace_outdent").MatchingBraceOutdent,a=e("../worker/worker_client").WorkerClient,f=e("./behaviour/css").CssBehaviour,l=e("./folding/cstyle").FoldMode,c=function(){var e=new o;this.$tokenizer=new s(e.getRules()),this.$outdent=new u,this.$behaviour=new f,this.$keywordList=e.$keywordList,this.foldingRules=new l};r.inherits(c,i),function(){this.foldingRules="cStyle",this.blockComment={start:"/*",end:"*/"},this.getNextLineIndent=function(e,t,n){var r=this.$getIndent(t),i=this.$tokenizer.getLineTokens(t,e).tokens;if(i.length&&i[i.length-1].type=="comment")return r;var s=t.match(/^.*\{\s*$/);return s&&(r+=n),r},this.checkOutdent=function(e,t,n){return this.$outdent.checkOutdent(t,n)},this.autoOutdent=function(e,t,n){this.$outdent.autoOutdent(t,n)},this.createWorker=function(e){var t=new a(["ace"],"ace/mode/css_worker","Worker");return t.attachToDocument(e.getDocument()),t.on("csslint",function(t){e.setAnnotations(t.data)}),t.on("terminate",function(){e.clearAnnotations()}),t}}.call(c.prototype),t.Mode=c}),ace.define("ace/mode/css_highlight_rules",["require","exports","module","ace/lib/oop","ace/lib/lang","ace/mode/text_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("../lib/lang"),s=e("./text_highlight_rules").TextHighlightRules,o=t.supportType="animation-fill-mode|alignment-adjust|alignment-baseline|animation-delay|animation-direction|animation-duration|animation-iteration-count|animation-name|animation-play-state|animation-timing-function|animation|appearance|azimuth|backface-visibility|background-attachment|background-break|background-clip|background-color|background-image|background-origin|background-position|background-repeat|background-size|background|baseline-shift|binding|bleed|bookmark-label|bookmark-level|bookmark-state|bookmark-target|border-bottom|border-bottom-color|border-bottom-left-radius|border-bottom-right-radius|border-bottom-style|border-bottom-width|border-collapse|border-color|border-image|border-image-outset|border-image-repeat|border-image-slice|border-image-source|border-image-width|border-left|border-left-color|border-left-style|border-left-width|border-radius|border-right|border-right-color|border-right-style|border-right-width|border-spacing|border-style|border-top|border-top-color|border-top-left-radius|border-top-right-radius|border-top-style|border-top-width|border-width|border|bottom|box-align|box-decoration-break|box-direction|box-flex-group|box-flex|box-lines|box-ordinal-group|box-orient|box-pack|box-shadow|box-sizing|break-after|break-before|break-inside|caption-side|clear|clip|color-profile|color|column-count|column-fill|column-gap|column-rule|column-rule-color|column-rule-style|column-rule-width|column-span|column-width|columns|content|counter-increment|counter-reset|crop|cue-after|cue-before|cue|cursor|direction|display|dominant-baseline|drop-initial-after-adjust|drop-initial-after-align|drop-initial-before-adjust|drop-initial-before-align|drop-initial-size|drop-initial-value|elevation|empty-cells|fit|fit-position|float-offset|float|font-family|font-size|font-size-adjust|font-stretch|font-style|font-variant|font-weight|font|grid-columns|grid-rows|hanging-punctuation|height|hyphenate-after|hyphenate-before|hyphenate-character|hyphenate-lines|hyphenate-resource|hyphens|icon|image-orientation|image-rendering|image-resolution|inline-box-align|left|letter-spacing|line-height|line-stacking-ruby|line-stacking-shift|line-stacking-strategy|line-stacking|list-style-image|list-style-position|list-style-type|list-style|margin-bottom|margin-left|margin-right|margin-top|margin|mark-after|mark-before|mark|marks|marquee-direction|marquee-play-count|marquee-speed|marquee-style|max-height|max-width|min-height|min-width|move-to|nav-down|nav-index|nav-left|nav-right|nav-up|opacity|orphans|outline-color|outline-offset|outline-style|outline-width|outline|overflow-style|overflow-x|overflow-y|overflow|padding-bottom|padding-left|padding-right|padding-top|padding|page-break-after|page-break-before|page-break-inside|page-policy|page|pause-after|pause-before|pause|perspective-origin|perspective|phonemes|pitch-range|pitch|play-during|position|presentation-level|punctuation-trim|quotes|rendering-intent|resize|rest-after|rest-before|rest|richness|right|rotation-point|rotation|ruby-align|ruby-overhang|ruby-position|ruby-span|size|speak-header|speak-numeral|speak-punctuation|speak|speech-rate|stress|string-set|table-layout|target-name|target-new|target-position|target|text-align-last|text-align|text-decoration|text-emphasis|text-height|text-indent|text-justify|text-outline|text-shadow|text-transform|text-wrap|top|transform-origin|transform-style|transform|transition-delay|transition-duration|transition-property|transition-timing-function|transition|unicode-bidi|vertical-align|visibility|voice-balance|voice-duration|voice-family|voice-pitch-range|voice-pitch|voice-rate|voice-stress|voice-volume|volume|white-space-collapse|white-space|widows|width|word-break|word-spacing|word-wrap|z-index",u=t.supportFunction="rgb|rgba|url|attr|counter|counters",a=t.supportConstant="absolute|after-edge|after|all-scroll|all|alphabetic|always|antialiased|armenian|auto|avoid-column|avoid-page|avoid|balance|baseline|before-edge|before|below|bidi-override|block-line-height|block|bold|bolder|border-box|both|bottom|box|break-all|break-word|capitalize|caps-height|caption|center|central|char|circle|cjk-ideographic|clone|close-quote|col-resize|collapse|column|consider-shifts|contain|content-box|cover|crosshair|cubic-bezier|dashed|decimal-leading-zero|decimal|default|disabled|disc|disregard-shifts|distribute-all-lines|distribute-letter|distribute-space|distribute|dotted|double|e-resize|ease-in|ease-in-out|ease-out|ease|ellipsis|end|exclude-ruby|fill|fixed|georgian|glyphs|grid-height|groove|hand|hanging|hebrew|help|hidden|hiragana-iroha|hiragana|horizontal|icon|ideograph-alpha|ideograph-numeric|ideograph-parenthesis|ideograph-space|ideographic|inactive|include-ruby|inherit|initial|inline-block|inline-box|inline-line-height|inline-table|inline|inset|inside|inter-ideograph|inter-word|invert|italic|justify|katakana-iroha|katakana|keep-all|last|left|lighter|line-edge|line-through|line|linear|list-item|local|loose|lower-alpha|lower-greek|lower-latin|lower-roman|lowercase|lr-tb|ltr|mathematical|max-height|max-size|medium|menu|message-box|middle|move|n-resize|ne-resize|newspaper|no-change|no-close-quote|no-drop|no-open-quote|no-repeat|none|normal|not-allowed|nowrap|nw-resize|oblique|open-quote|outset|outside|overline|padding-box|page|pointer|pre-line|pre-wrap|pre|preserve-3d|progress|relative|repeat-x|repeat-y|repeat|replaced|reset-size|ridge|right|round|row-resize|rtl|s-resize|scroll|se-resize|separate|slice|small-caps|small-caption|solid|space|square|start|static|status-bar|step-end|step-start|steps|stretch|strict|sub|super|sw-resize|table-caption|table-cell|table-column-group|table-column|table-footer-group|table-header-group|table-row-group|table-row|table|tb-rl|text-after-edge|text-before-edge|text-bottom|text-size|text-top|text|thick|thin|transparent|underline|upper-alpha|upper-latin|upper-roman|uppercase|use-script|vertical-ideographic|vertical-text|visible|w-resize|wait|whitespace|z-index|zero",f=t.supportConstantColor="aqua|black|blue|fuchsia|gray|green|lime|maroon|navy|olive|orange|purple|red|silver|teal|white|yellow",l=t.supportConstantFonts="arial|century|comic|courier|garamond|georgia|helvetica|impact|lucida|symbol|system|tahoma|times|trebuchet|utopia|verdana|webdings|sans-serif|serif|monospace",c=t.numRe="\\-?(?:(?:[0-9]+)|(?:[0-9]*\\.[0-9]+))",h=t.pseudoElements="(\\:+)\\b(after|before|first-letter|first-line|moz-selection|selection)\\b",p=t.pseudoClasses="(:)\\b(active|checked|disabled|empty|enabled|first-child|first-of-type|focus|hover|indeterminate|invalid|last-child|last-of-type|link|not|nth-child|nth-last-child|nth-last-of-type|nth-of-type|only-child|only-of-type|required|root|target|valid|visited)\\b",d=function(){var e=this.createKeywordMapper({"support.function":u,"support.constant":a,"support.type":o,"support.constant.color":f,"support.constant.fonts":l},"text",!0);this.$rules={start:[{token:"comment",regex:"\\/\\*",push:"comment"},{token:"paren.lparen",regex:"\\{",push:"ruleset"},{token:"string",regex:"@.*?{",push:"media"},{token:"keyword",regex:"#[a-z0-9-_]+"},{token:"variable",regex:"\\.[a-z0-9-_]+"},{token:"string",regex:":[a-z0-9-_]+"},{token:"constant",regex:"[a-z0-9-_]+"},{caseInsensitive:!0}],media:[{token:"comment",regex:"\\/\\*",push:"comment"},{token:"paren.lparen",regex:"\\{",push:"ruleset"},{token:"string",regex:"\\}",next:"pop"},{token:"keyword",regex:"#[a-z0-9-_]+"},{token:"variable",regex:"\\.[a-z0-9-_]+"},{token:"string",regex:":[a-z0-9-_]+"},{token:"constant",regex:"[a-z0-9-_]+"},{caseInsensitive:!0}],comment:[{token:"comment",regex:"\\*\\/",next:"pop"},{defaultToken:"comment"}],ruleset:[{token:"paren.rparen",regex:"\\}",next:"pop"},{token:"comment",regex:"\\/\\*",push:"comment"},{token:"string",regex:'["](?:(?:\\\\.)|(?:[^"\\\\]))*?["]'},{token:"string",regex:"['](?:(?:\\\\.)|(?:[^'\\\\]))*?[']"},{token:["constant.numeric","keyword"],regex:"("+c+")(ch|cm|deg|em|ex|fr|gd|grad|Hz|in|kHz|mm|ms|pc|pt|px|rad|rem|s|turn|vh|vm|vw|%)"},{token:"constant.numeric",regex:c},{token:"constant.numeric",regex:"#[a-f0-9]{6}"},{token:"constant.numeric",regex:"#[a-f0-9]{3}"},{token:["punctuation","entity.other.attribute-name.pseudo-element.css"],regex:h},{token:["punctuation","entity.other.attribute-name.pseudo-class.css"],regex:p},{token:["support.function","string","support.function"],regex:"(url\\()(.*)(\\))"},{token:e,regex:"\\-?[a-zA-Z_][a-zA-Z0-9_\\-]*"},{caseInsensitive:!0}]},this.normalizeRules()};r.inherits(d,s),t.CssHighlightRules=d}),ace.define("ace/mode/behaviour/css",["require","exports","module","ace/lib/oop","ace/mode/behaviour","ace/mode/behaviour/cstyle","ace/token_iterator"],function(e,t,n){var r=e("../../lib/oop"),i=e("../behaviour").Behaviour,s=e("./cstyle").CstyleBehaviour,o=e("../../token_iterator").TokenIterator,u=function(){this.inherit(s),this.add("colon","insertion",function(e,t,n,r,i){if(i===":"){var s=n.getCursorPosition(),u=new o(r,s.row,s.column),a=u.getCurrentToken();a&&a.value.match(/\s+/)&&(a=u.stepBackward());if(a&&a.type==="support.type"){var f=r.doc.getLine(s.row),l=f.substring(s.column,s.column+1);if(l===":")return{text:"",selection:[1,1]};if(!f.substring(s.column).match(/^\s*;/))return{text:":;",selection:[1,1]}}}}),this.add("colon","deletion",function(e,t,n,r,i){var s=r.doc.getTextRange(i);if(!i.isMultiLine()&&s===":"){var u=n.getCursorPosition(),a=new o(r,u.row,u.column),f=a.getCurrentToken();f&&f.value.match(/\s+/)&&(f=a.stepBackward());if(f&&f.type==="support.type"){var l=r.doc.getLine(i.start.row),c=l.substring(i.end.column,i.end.column+1);if(c===";")return i.end.column++,i}}}),this.add("semicolon","insertion",function(e,t,n,r,i){if(i===";"){var s=n.getCursorPosition(),o=r.doc.getLine(s.row),u=o.substring(s.column,s.column+1);if(u===";")return{text:"",selection:[1,1]}}})};r.inherits(u,s),t.CssBehaviour=u}),ace.define("ace/mode/html_highlight_rules",["require","exports","module","ace/lib/oop","ace/lib/lang","ace/mode/css_highlight_rules","ace/mode/javascript_highlight_rules","ace/mode/xml_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("../lib/lang"),s=e("./css_highlight_rules").CssHighlightRules,o=e("./javascript_highlight_rules").JavaScriptHighlightRules,u=e("./xml_highlight_rules").XmlHighlightRules,a=i.createMap({a:"anchor",button:"form",form:"form",img:"image",input:"form",label:"form",script:"script",select:"form",textarea:"form",style:"style",table:"table",tbody:"table",td:"table",tfoot:"table",th:"table",tr:"table"}),f=function(){u.call(this),this.addRules({attributes:[{include:"space"},{token:"entity.other.attribute-name",regex:"[-_a-zA-Z0-9:]+"},{token:"keyword.operator.separator",regex:"=",push:[{include:"space"},{token:"string",regex:"[^<>='\"`\\s]+",next:"pop"},{token:"empty",regex:"",next:"pop"}]},{include:"string"}],tag:[{token:function(e,t){var n=a[t];return["meta.tag.punctuation.begin","meta.tag.name"+(n?"."+n:"")]},regex:"(<)([-_a-zA-Z0-9:]+)",next:"start_tag_stuff"},{token:function(e,t){var n=a[t];return["meta.tag.punctuation.begin","meta.tag.name"+(n?"."+n:"")]},regex:"(</)([-_a-zA-Z0-9:]+)",next:"end_tag_stuff"}],start_tag_stuff:[{include:"attributes"},{token:"meta.tag.punctuation.end",regex:"/?>",next:"start"}],end_tag_stuff:[{include:"space"},{token:"meta.tag.punctuation.end",regex:">",next:"start"}]}),this.embedTagRules(s,"css-","style"),this.embedTagRules(o,"js-","script"),this.constructor===f&&this.normalizeRules()};r.inherits(f,u),t.HtmlHighlightRules=f}),ace.define("ace/mode/behaviour/html",["require","exports","module","ace/lib/oop","ace/mode/behaviour/xml","ace/mode/behaviour/cstyle","ace/token_iterator"],function(e,t,n){function a(e,t){var n=e.type.split(".");return t.split(".").every(function(e){return n.indexOf(e)!==-1})}var r=e("../../lib/oop"),i=e("../behaviour/xml").XmlBehaviour,s=e("./cstyle").CstyleBehaviour,o=e("../../token_iterator").TokenIterator,u=["area","base","br","col","command","embed","hr","img","input","keygen","link","meta","param","source","track","wbr"],f=function(){this.inherit(i),this.add("autoclosing","insertion",function(e,t,n,r,i){if(i==">"){var s=n.getCursorPosition(),f=new o(r,s.row,s.column),l=f.getCurrentToken();if(l&&a(l,"string")&&f.getCurrentTokenColumn()+l.value.length>s.column)return;var c=!1;if(!l||!a(l,"meta.tag")&&(!a(l,"text")||!l.value.match("/"))){do l=f.stepBackward();while(l&&(a(l,"string")||a(l,"keyword.operator")||a(l,"entity.attribute-name")||a(l,"text")))}else c=!0;if(!l||!a(l,"meta.tag.name")||f.stepBackward().value.match("/"))return;var h=l.value;if(c)var h=h.substring(0,s.column-l.start);if(u.indexOf(h)!==-1)return;return{text:"></"+h+">",selection:[1,1]}}})};r.inherits(f,i),t.HtmlBehaviour=f}),ace.define("ace/mode/folding/html",["require","exports","module","ace/lib/oop","ace/mode/folding/mixed","ace/mode/folding/xml","ace/mode/folding/cstyle"],function(e,t,n){var r=e("../../lib/oop"),i=e("./mixed").FoldMode,s=e("./xml").FoldMode,o=e("./cstyle").FoldMode,u=t.FoldMode=function(){i.call(this,new s({area:1,base:1,br:1,col:1,command:1,embed:1,hr:1,img:1,input:1,keygen:1,link:1,meta:1,param:1,source:1,track:1,wbr:1,li:1,dt:1,dd:1,p:1,rt:1,rp:1,optgroup:1,option:1,colgroup:1,td:1,th:1}),{"js-":new o,"css-":new o})};r.inherits(u,i)}),ace.define("ace/mode/folding/mixed",["require","exports","module","ace/lib/oop","ace/mode/folding/fold_mode"],function(e,t,n){var r=e("../../lib/oop"),i=e("./fold_mode").FoldMode,s=t.FoldMode=function(e,t){this.defaultMode=e,this.subModes=t};r.inherits(s,i),function(){this.$getMode=function(e){typeof e!="string"&&(e=e[0]);for(var t in this.subModes)if(e.indexOf(t)===0)return this.subModes[t];return null},this.$tryMode=function(e,t,n,r){var i=this.$getMode(e);return i?i.getFoldWidget(t,n,r):""},this.getFoldWidget=function(e,t,n){return this.$tryMode(e.getState(n-1),e,t,n)||this.$tryMode(e.getState(n),e,t,n)||this.defaultMode.getFoldWidget(e,t,n)},this.getFoldWidgetRange=function(e,t,n){var r=this.$getMode(e.getState(n-1));if(!r||!r.getFoldWidget(e,t,n))r=this.$getMode(e.getState(n));if(!r||!r.getFoldWidget(e,t,n))r=this.defaultMode;return r.getFoldWidgetRange(e,t,n)}}.call(s.prototype)}),ace.define("ace/mode/markdown_highlight_rules",["require","exports","module","ace/lib/oop","ace/lib/lang","ace/mode/text_highlight_rules","ace/mode/javascript_highlight_rules","ace/mode/xml_highlight_rules","ace/mode/html_highlight_rules","ace/mode/css_highlight_rules"],function(e,t,n){function c(e,t){return{token:"support.function",regex:"^```"+e+"\\s*$",push:t+"start"}}var r=e("../lib/oop"),i=e("../lib/lang"),s=e("./text_highlight_rules").TextHighlightRules,o=e("./javascript_highlight_rules").JavaScriptHighlightRules,u=e("./xml_highlight_rules").XmlHighlightRules,a=e("./html_highlight_rules").HtmlHighlightRules,f=e("./css_highlight_rules").CssHighlightRules,l=function(e){return"(?:[^"+i.escapeRegExp(e)+"\\\\]|\\\\.)*"},h=function(){a.call(this),this.$rules.start.unshift({token:"empty_line",regex:"^$",next:"allowBlock"},{token:"markup.heading.1",regex:"^=+(?=\\s*$)"},{token:"markup.heading.2",regex:"^\\-+(?=\\s*$)"},{token:function(e){return"markup.heading."+e.length},regex:/^#{1,6}(?=\s*[^ #]|\s+#.)/,next:"header"},c("(?:javascript|js)","jscode-"),c("xml","xmlcode-"),c("html","htmlcode-"),c("css","csscode-"),{token:"support.function",regex:"^```\\s*[a-zA-Z]*(?:{.*?\\})?\\s*$",next:"githubblock"},{token:"string",regex:"^>[ ].+$",next:"blockquote"},{token:"constant",regex:"^ {0,2}(?:(?: ?\\* ?){3,}|(?: ?\\- ?){3,}|(?: ?\\_ ?){3,})\\s*$",next:"allowBlock"},{token:"markup.list",regex:"^\\s{0,3}(?:[*+-]|\\d+\\.)\\s+",next:"listblock-start"},{include:"basic"}),this.addRules({basic:[{token:"constant.language.escape",regex:/\\[\\`*_{}\[\]()#+\-.!]/},{token:"support.function",regex:"(`+)(.*?[^`])(\\1)"},{token:["text","constant","text","url","string","text"],regex:'^([ ]{0,3}\\[)([^\\]]+)(\\]:\\s*)([^ ]+)(\\s*(?:["][^"]+["])?(\\s*))$'},{token:["text","string","text","constant","text"],regex:"(\\[)("+l("]")+")(\\]s*\\[)("+l("]")+")(\\])"},{token:["text","string","text","markup.underline","string","text"],regex:"(\\[)("+l("]")+")(\\]\\()"+'((?:[^\\)\\s\\\\]|\\\\.|\\s(?=[^"]))*)'+'(\\s*"'+l('"')+'"\\s*)?'+"(\\))"},{token:"string",regex:"([*]{2}|[_]{2}(?=\\S))(.*?\\S[*_]*)(\\1)"},{token:"string",regex:"([*]|[_](?=\\S))(.*?\\S[*_]*)(\\1)"},{token:["text","url","text"],regex:"(<)((?:https?|ftp|dict):[^'\">\\s]+|(?:mailto:)?[-.\\w]+\\@[-a-z0-9]+(?:\\.[-a-z0-9]+)*\\.[a-z]+)(>)"}],allowBlock:[{token:"support.function",regex:"^ {4}.+",next:"allowBlock"},{token:"empty",regex:"",next:"start"}],header:[{regex:"$",next:"start"},{include:"basic"},{defaultToken:"heading"}],"listblock-start":[{token:"support.variable",regex:/(?:\[[ x]\])?/,next:"listblock"}],listblock:[{token:"empty_line",regex:"^$",next:"start"},{token:"markup.list",regex:"^\\s{0,3}(?:[*+-]|\\d+\\.)\\s+",next:"listblock-start"},{include:"basic",noEscape:!0},{defaultToken:"list"}],blockquote:[{token:"empty_line",regex:"^\\s*$",next:"start"},{token:"string",regex:".+"}],githubblock:[{token:"support.function",regex:"^```",next:"start"},{token:"support.function",regex:".+"}]}),this.embedRules(o,"jscode-",[{token:"support.function",regex:"^```",next:"pop"}]),this.embedRules(a,"htmlcode-",[{token:"support.function",regex:"^```",next:"pop"}]),this.embedRules(f,"csscode-",[{token:"support.function",regex:"^```",next:"pop"}]),this.embedRules(u,"xmlcode-",[{token:"support.function",regex:"^```",next:"pop"}]),this.normalizeRules()};r.inherits(h,s),t.MarkdownHighlightRules=h}),ace.define("ace/mode/folding/markdown",["require","exports","module","ace/lib/oop","ace/mode/folding/fold_mode","ace/range"],function(e,t,n){var r=e("../../lib/oop"),i=e("./fold_mode").FoldMode,s=e("../../range").Range,o=t.FoldMode=function(){};r.inherits(o,i),function(){this.foldingStartMarker=/^(?:[=-]+\s*$|#{1,6} |`{3})/,this.getFoldWidget=function(e,t,n){var r=e.getLine(n);return this.foldingStartMarker.test(r)?r[0]=="`"?e.bgTokenizer.getState(n)=="start"?"end":"start":"start":""},this.getFoldWidgetRange=function(e,t,n){function l(t){return f=e.getTokens(t)[0],f&&f.type.lastIndexOf(c,0)===0}function h(){var e=f.value[0];return e=="="?6:e=="-"?5:7-f.value.search(/[^#]/)}var r=e.getLine(n),i=r.length,o=e.getLength(),u=n,a=n;if(!r.match(this.foldingStartMarker))return;if(r[0]=="`"){if(e.bgTokenizer.getState(n)!=="start"){while(++n<o){r=e.getLine(n);if(r[0]=="`"&r.substring(0,3)=="```")break}return new s(u,i,n,0)}while(n-->0){r=e.getLine(n);if(r[0]=="`"&r.substring(0,3)=="```")break}return new s(n,r.length,u,0)}var f,c="markup.heading";if(l(n)){var p=h();while(++n<o){if(!l(n))continue;var d=h();if(d>=p)break}a=n-(!f||["=","-"].indexOf(f.value[0])==-1?1:2);if(a>u)while(a>u&&/^\s*$/.test(e.getLine(a)))a--;if(a>u){var v=e.getLine(a).length;return new s(u,i,a,v)}}}}.call(o.prototype)})


--------------------------------------------------------------------------------
/inst/www/src-min-noconflict/mode-r.js:
--------------------------------------------------------------------------------
1 | ace.define("ace/mode/r",["require","exports","module","ace/range","ace/lib/oop","ace/mode/text","ace/tokenizer","ace/mode/text_highlight_rules","ace/mode/r_highlight_rules","ace/mode/matching_brace_outdent","ace/unicode"],function(e,t,n){var r=e("../range").Range,i=e("../lib/oop"),s=e("./text").Mode,o=e("../tokenizer").Tokenizer,u=e("./text_highlight_rules").TextHighlightRules,a=e("./r_highlight_rules").RHighlightRules,f=e("./matching_brace_outdent").MatchingBraceOutdent,l=e("../unicode"),c=function(){this.$tokenizer=new o((new a).getRules()),this.$outdent=new f};i.inherits(c,s),function(){this.lineCommentStart="#"}.call(c.prototype),t.Mode=c}),ace.define("ace/mode/r_highlight_rules",["require","exports","module","ace/lib/oop","ace/lib/lang","ace/mode/text_highlight_rules","ace/mode/tex_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("../lib/lang"),s=e("./text_highlight_rules").TextHighlightRules,o=e("./tex_highlight_rules").TexHighlightRules,u=function(){var e=i.arrayToMap("function|if|in|break|next|repeat|else|for|return|switch|while|try|tryCatch|stop|warning|require|library|attach|detach|source|setMethod|setGeneric|setGroupGeneric|setClass".split("|")),t=i.arrayToMap("NULL|NA|TRUE|FALSE|T|F|Inf|NaN|NA_integer_|NA_real_|NA_character_|NA_complex_".split("|"));this.$rules={start:[{token:"comment.sectionhead",regex:"#+(?!').*(?:----|====|####)\\s*$"},{token:"comment",regex:"#+'",next:"rd-start"},{token:"comment",regex:"#.*$"},{token:"string",regex:'["]',next:"qqstring"},{token:"string",regex:"[']",next:"qstring"},{token:"constant.numeric",regex:"0[xX][0-9a-fA-F]+[Li]?\\b"},{token:"constant.numeric",regex:"\\d+L\\b"},{token:"constant.numeric",regex:"\\d+(?:\\.\\d*)?(?:[eE][+\\-]?\\d*)?i?\\b"},{token:"constant.numeric",regex:"\\.\\d+(?:[eE][+\\-]?\\d*)?i?\\b"},{token:"constant.language.boolean",regex:"(?:TRUE|FALSE|T|F)\\b"},{token:"identifier",regex:"`.*?`"},{onMatch:function(n){return e[n]?"keyword":t[n]?"constant.language":n=="..."||n.match(/^\.\.\d+$/)?"variable.language":"identifier"},regex:"[a-zA-Z.][a-zA-Z0-9._]*\\b"},{token:"keyword.operator",regex:"%%|>=|<=|==|!=|\\->|<\\-|\\|\\||&&|=|\\+|\\-|\\*|/|\\^|>|<|!|&|\\||~|\\$|:"},{token:"keyword.operator",regex:"%.*?%"},{token:"paren.keyword.operator",regex:"[[({]"},{token:"paren.keyword.operator",regex:"[\\])}]"},{token:"text",regex:"\\s+"}],qqstring:[{token:"string",regex:'(?:(?:\\\\.)|(?:[^"\\\\]))*?"',next:"start"},{token:"string",regex:".+"}],qstring:[{token:"string",regex:"(?:(?:\\\\.)|(?:[^'\\\\]))*?'",next:"start"},{token:"string",regex:".+"}]};var n=(new o("comment")).getRules();for(var r=0;r<n.start.length;r++)n.start[r].token+=".virtual-comment";this.addRules(n,"rd-"),this.$rules["rd-start"].unshift({token:"text",regex:"^",next:"start"}),this.$rules["rd-start"].unshift({token:"keyword",regex:"@(?!@)[^ ]*"}),this.$rules["rd-start"].unshift({token:"comment",regex:"@@"}),this.$rules["rd-start"].push({token:"comment",regex:"[^%\\\\[({\\])}]+"})};r.inherits(u,s),t.RHighlightRules=u}),ace.define("ace/mode/tex_highlight_rules",["require","exports","module","ace/lib/oop","ace/lib/lang","ace/mode/text_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("../lib/lang"),s=e("./text_highlight_rules").TextHighlightRules,o=function(e){e||(e="text"),this.$rules={start:[{token:"comment",regex:"%.*$"},{token:e,regex:"\\\\[$&%#\\{\\}]"},{token:"keyword",regex:"\\\\(?:documentclass|usepackage|newcounter|setcounter|addtocounter|value|arabic|stepcounter|newenvironment|renewenvironment|ref|vref|eqref|pageref|label|cite[a-zA-Z]*|tag|begin|end|bibitem)\\b",next:"nospell"},{token:"keyword",regex:"\\\\(?:[a-zA-z0-9]+|[^a-zA-z0-9])"},{token:"paren.keyword.operator",regex:"[[({]"},{token:"paren.keyword.operator",regex:"[\\])}]"},{token:e,regex:"\\s+"}],nospell:[{token:"comment",regex:"%.*$",next:"start"},{token:"nospell."+e,regex:"\\\\[$&%#\\{\\}]"},{token:"keyword",regex:"\\\\(?:documentclass|usepackage|newcounter|setcounter|addtocounter|value|arabic|stepcounter|newenvironment|renewenvironment|ref|vref|eqref|pageref|label|cite[a-zA-Z]*|tag|begin|end|bibitem)\\b"},{token:"keyword",regex:"\\\\(?:[a-zA-z0-9]+|[^a-zA-z0-9])",next:"start"},{token:"paren.keyword.operator",regex:"[[({]"},{token:"paren.keyword.operator",regex:"[\\])]"},{token:"paren.keyword.operator",regex:"}",next:"start"},{token:"nospell."+e,regex:"\\s+"},{token:"nospell."+e,regex:"\\w+"}]}};r.inherits(o,s),t.TexHighlightRules=o}),ace.define("ace/mode/matching_brace_outdent",["require","exports","module","ace/range"],function(e,t,n){var r=e("../range").Range,i=function(){};(function(){this.checkOutdent=function(e,t){return/^\s+$/.test(e)?/^\s*\}/.test(t):!1},this.autoOutdent=function(e,t){var n=e.getLine(t),i=n.match(/^(\s*\})/);if(!i)return 0;var s=i[1].length,o=e.findMatchingBracket({row:t,column:s});if(!o||o.row==t)return 0;var u=this.$getIndent(e.getLine(o.row));e.replace(new r(t,0,t,s-1),u)},this.$getIndent=function(e){return e.match(/^\s*/)[0]}}).call(i.prototype),t.MatchingBraceOutdent=i})


--------------------------------------------------------------------------------
/inst/www/src-min-noconflict/mode-rdoc.js:
--------------------------------------------------------------------------------
1 | ace.define("ace/mode/rdoc",["require","exports","module","ace/lib/oop","ace/mode/text","ace/tokenizer","ace/mode/text_highlight_rules","ace/mode/rdoc_highlight_rules","ace/mode/matching_brace_outdent"],function(e,t,n){var r=e("../lib/oop"),i=e("./text").Mode,s=e("../tokenizer").Tokenizer,o=e("./text_highlight_rules").TextHighlightRules,u=e("./rdoc_highlight_rules").RDocHighlightRules,a=e("./matching_brace_outdent").MatchingBraceOutdent,f=function(e){this.$tokenizer=new s((new u).getRules()),this.$outdent=new a};r.inherits(f,i),function(){this.getNextLineIndent=function(e,t,n){return this.$getIndent(t)}}.call(f.prototype),t.Mode=f}),ace.define("ace/mode/rdoc_highlight_rules",["require","exports","module","ace/lib/oop","ace/lib/lang","ace/mode/text_highlight_rules","ace/mode/latex_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("../lib/lang"),s=e("./text_highlight_rules").TextHighlightRules,o=e("./latex_highlight_rules"),u=function(){this.$rules={start:[{token:"comment",regex:"%.*$"},{token:"text",regex:"\\\\[$&%#\\{\\}]"},{token:"keyword",regex:"\\\\(?:name|alias|method|S3method|S4method|item|code|preformatted|kbd|pkg|var|env|option|command|author|email|url|source|cite|acronym|href|code|preformatted|link|eqn|deqn|keyword|usage|examples|dontrun|dontshow|figure|if|ifelse|Sexpr|RdOpts|inputencoding|usepackage)\\b",next:"nospell"},{token:"keyword",regex:"\\\\(?:[a-zA-z0-9]+|[^a-zA-z0-9])"},{token:"paren.keyword.operator",regex:"[[({]"},{token:"paren.keyword.operator",regex:"[\\])}]"},{token:"text",regex:"\\s+"}],nospell:[{token:"comment",regex:"%.*$",next:"start"},{token:"nospell.text",regex:"\\\\[$&%#\\{\\}]"},{token:"keyword",regex:"\\\\(?:name|alias|method|S3method|S4method|item|code|preformatted|kbd|pkg|var|env|option|command|author|email|url|source|cite|acronym|href|code|preformatted|link|eqn|deqn|keyword|usage|examples|dontrun|dontshow|figure|if|ifelse|Sexpr|RdOpts|inputencoding|usepackage)\\b"},{token:"keyword",regex:"\\\\(?:[a-zA-z0-9]+|[^a-zA-z0-9])",next:"start"},{token:"paren.keyword.operator",regex:"[[({]"},{token:"paren.keyword.operator",regex:"[\\])]"},{token:"paren.keyword.operator",regex:"}",next:"start"},{token:"nospell.text",regex:"\\s+"},{token:"nospell.text",regex:"\\w+"}]}};r.inherits(u,s),t.RDocHighlightRules=u}),ace.define("ace/mode/latex_highlight_rules",["require","exports","module","ace/lib/oop","ace/mode/text_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("./text_highlight_rules").TextHighlightRules,s=function(){this.$rules={start:[{token:"keyword",regex:"\\\\(?:[^a-zA-Z]|[a-zA-Z]+)"},{token:"lparen",regex:"[[({]"},{token:"rparen",regex:"[\\])}]"},{token:"string",regex:"\\$(?:(?:\\\\.)|(?:[^\\$\\\\]))*?\\$"},{token:"comment",regex:"%.*$"}]}};r.inherits(s,i),t.LatexHighlightRules=s}),ace.define("ace/mode/matching_brace_outdent",["require","exports","module","ace/range"],function(e,t,n){var r=e("../range").Range,i=function(){};(function(){this.checkOutdent=function(e,t){return/^\s+$/.test(e)?/^\s*\}/.test(t):!1},this.autoOutdent=function(e,t){var n=e.getLine(t),i=n.match(/^(\s*\})/);if(!i)return 0;var s=i[1].length,o=e.findMatchingBracket({row:t,column:s});if(!o||o.row==t)return 0;var u=this.$getIndent(e.getLine(o.row));e.replace(new r(t,0,t,s-1),u)},this.$getIndent=function(e){return e.match(/^\s*/)[0]}}).call(i.prototype),t.MatchingBraceOutdent=i})


--------------------------------------------------------------------------------
/inst/www/src-min-noconflict/mode-rhtml.js:
--------------------------------------------------------------------------------
1 | ace.define("ace/mode/rhtml",["require","exports","module","ace/lib/oop","ace/mode/html","ace/tokenizer","ace/mode/rhtml_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("./html").Mode,s=e("../tokenizer").Tokenizer,o=e("./rhtml_highlight_rules").RHtmlHighlightRules,u=function(e,t){this.$session=t,this.$tokenizer=new s((new o).getRules())};r.inherits(u,i),function(){this.insertChunkInfo={value:"<!--begin.rcode\n\nend.rcode-->\n",position:{row:0,column:15}},this.getLanguageMode=function(e){return this.$session.getState(e.row).match(/^r-/)?"R":"HTML"}}.call(u.prototype),t.Mode=u}),ace.define("ace/mode/html",["require","exports","module","ace/lib/oop","ace/mode/text","ace/mode/javascript","ace/mode/css","ace/tokenizer","ace/mode/html_highlight_rules","ace/mode/behaviour/html","ace/mode/folding/html"],function(e,t,n){var r=e("../lib/oop"),i=e("./text").Mode,s=e("./javascript").Mode,o=e("./css").Mode,u=e("../tokenizer").Tokenizer,a=e("./html_highlight_rules").HtmlHighlightRules,f=e("./behaviour/html").HtmlBehaviour,l=e("./folding/html").FoldMode,c=function(){var e=new a;this.$tokenizer=new u(e.getRules()),this.$behaviour=new f,this.$embeds=e.getEmbeds(),this.createModeDelegates({"js-":s,"css-":o}),this.foldingRules=new l};r.inherits(c,i),function(){this.blockComment={start:"<!--",end:"-->"},this.getNextLineIndent=function(e,t,n){return this.$getIndent(t)},this.checkOutdent=function(e,t,n){return!1}}.call(c.prototype),t.Mode=c}),ace.define("ace/mode/javascript",["require","exports","module","ace/lib/oop","ace/mode/text","ace/tokenizer","ace/mode/javascript_highlight_rules","ace/mode/matching_brace_outdent","ace/range","ace/worker/worker_client","ace/mode/behaviour/cstyle","ace/mode/folding/cstyle"],function(e,t,n){var r=e("../lib/oop"),i=e("./text").Mode,s=e("../tokenizer").Tokenizer,o=e("./javascript_highlight_rules").JavaScriptHighlightRules,u=e("./matching_brace_outdent").MatchingBraceOutdent,a=e("../range").Range,f=e("../worker/worker_client").WorkerClient,l=e("./behaviour/cstyle").CstyleBehaviour,c=e("./folding/cstyle").FoldMode,h=function(){var e=new o;this.$tokenizer=new s(e.getRules()),this.$outdent=new u,this.$behaviour=new l,this.$keywordList=e.$keywordList,this.foldingRules=new c};r.inherits(h,i),function(){this.lineCommentStart="//",this.blockComment={start:"/*",end:"*/"},this.getNextLineIndent=function(e,t,n){var r=this.$getIndent(t),i=this.$tokenizer.getLineTokens(t,e),s=i.tokens,o=i.state;if(s.length&&s[s.length-1].type=="comment")return r;if(e=="start"||e=="no_regex"){var u=t.match(/^.*(?:\bcase\b.*\:|[\{\(\[])\s*$/);u&&(r+=n)}else if(e=="doc-start"){if(o=="start"||o=="no_regex")return"";var u=t.match(/^\s*(\/?)\*/);u&&(u[1]&&(r+=" "),r+="* ")}return r},this.checkOutdent=function(e,t,n){return this.$outdent.checkOutdent(t,n)},this.autoOutdent=function(e,t,n){this.$outdent.autoOutdent(t,n)},this.createWorker=function(e){var t=new f(["ace"],"ace/mode/javascript_worker","JavaScriptWorker");return t.attachToDocument(e.getDocument()),t.on("jslint",function(t){e.setAnnotations(t.data)}),t.on("terminate",function(){e.clearAnnotations()}),t}}.call(h.prototype),t.Mode=h}),ace.define("ace/mode/javascript_highlight_rules",["require","exports","module","ace/lib/oop","ace/mode/doc_comment_highlight_rules","ace/mode/text_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("./doc_comment_highlight_rules").DocCommentHighlightRules,s=e("./text_highlight_rules").TextHighlightRules,o=function(){var e=this.createKeywordMapper({"variable.language":"Array|Boolean|Date|Function|Iterator|Number|Object|RegExp|String|Proxy|Namespace|QName|XML|XMLList|ArrayBuffer|Float32Array|Float64Array|Int16Array|Int32Array|Int8Array|Uint16Array|Uint32Array|Uint8Array|Uint8ClampedArray|Error|EvalError|InternalError|RangeError|ReferenceError|StopIteration|SyntaxError|TypeError|URIError|decodeURI|decodeURIComponent|encodeURI|encodeURIComponent|eval|isFinite|isNaN|parseFloat|parseInt|JSON|Math|this|arguments|prototype|window|document",keyword:"const|yield|import|get|set|break|case|catch|continue|default|delete|do|else|finally|for|function|if|in|instanceof|new|return|switch|throw|try|typeof|let|var|while|with|debugger|__parent__|__count__|escape|unescape|with|__proto__|class|enum|extends|super|export|implements|private|public|interface|package|protected|static","storage.type":"const|let|var|function","constant.language":"null|Infinity|NaN|undefined","support.function":"alert","constant.language.boolean":"true|false"},"identifier"),t="case|do|else|finally|in|instanceof|return|throw|try|typeof|yield|void",n="[a-zA-Z\\$_¡-￿][a-zA-Z\\d\\$_¡-￿]*\\b",r="\\\\(?:x[0-9a-fA-F]{2}|u[0-9a-fA-F]{4}|[0-2][0-7]{0,2}|3[0-6][0-7]?|37[0-7]?|[4-7][0-7]?|.)";this.$rules={no_regex:[{token:"comment",regex:"\\/\\/",next:"line_comment"},i.getStartRule("doc-start"),{token:"comment",regex:/\/\*/,next:"comment"},{token:"string",regex:"'(?=.)",next:"qstring"},{token:"string",regex:'"(?=.)',next:"qqstring"},{token:"constant.numeric",regex:/0[xX][0-9a-fA-F]+\b/},{token:"constant.numeric",regex:/[+-]?\d+(?:(?:\.\d*)?(?:[eE][+-]?\d+)?)?\b/},{token:["storage.type","punctuation.operator","support.function","punctuation.operator","entity.name.function","text","keyword.operator"],regex:"("+n+")(\\.)(prototype)(\\.)("+n+")(\\s*)(=)",next:"function_arguments"},{token:["storage.type","punctuation.operator","entity.name.function","text","keyword.operator","text","storage.type","text","paren.lparen"],regex:"("+n+")(\\.)("+n+")(\\s*)(=)(\\s*)(function)(\\s*)(\\()",next:"function_arguments"},{token:["entity.name.function","text","keyword.operator","text","storage.type","text","paren.lparen"],regex:"("+n+")(\\s*)(=)(\\s*)(function)(\\s*)(\\()",next:"function_arguments"},{token:["storage.type","punctuation.operator","entity.name.function","text","keyword.operator","text","storage.type","text","entity.name.function","text","paren.lparen"],regex:"("+n+")(\\.)("+n+")(\\s*)(=)(\\s*)(function)(\\s+)(\\w+)(\\s*)(\\()",next:"function_arguments"},{token:["storage.type","text","entity.name.function","text","paren.lparen"],regex:"(function)(\\s+)("+n+")(\\s*)(\\()",next:"function_arguments"},{token:["entity.name.function","text","punctuation.operator","text","storage.type","text","paren.lparen"],regex:"("+n+")(\\s*)(:)(\\s*)(function)(\\s*)(\\()",next:"function_arguments"},{token:["text","text","storage.type","text","paren.lparen"],regex:"(:)(\\s*)(function)(\\s*)(\\()",next:"function_arguments"},{token:"keyword",regex:"(?:"+t+")\\b",next:"start"},{token:["punctuation.operator","support.function"],regex:/(\.)(s(?:h(?:ift|ow(?:Mod(?:elessDialog|alDialog)|Help))|croll(?:X|By(?:Pages|Lines)?|Y|To)?|t(?:op|rike)|i(?:n|zeToContent|debar|gnText)|ort|u(?:p|b(?:str(?:ing)?)?)|pli(?:ce|t)|e(?:nd|t(?:Re(?:sizable|questHeader)|M(?:i(?:nutes|lliseconds)|onth)|Seconds|Ho(?:tKeys|urs)|Year|Cursor|Time(?:out)?|Interval|ZOptions|Date|UTC(?:M(?:i(?:nutes|lliseconds)|onth)|Seconds|Hours|Date|FullYear)|FullYear|Active)|arch)|qrt|lice|avePreferences|mall)|h(?:ome|andleEvent)|navigate|c(?:har(?:CodeAt|At)|o(?:s|n(?:cat|textual|firm)|mpile)|eil|lear(?:Timeout|Interval)?|a(?:ptureEvents|ll)|reate(?:StyleSheet|Popup|EventObject))|t(?:o(?:GMTString|S(?:tring|ource)|U(?:TCString|pperCase)|Lo(?:caleString|werCase))|est|a(?:n|int(?:Enabled)?))|i(?:s(?:NaN|Finite)|ndexOf|talics)|d(?:isableExternalCapture|ump|etachEvent)|u(?:n(?:shift|taint|escape|watch)|pdateCommands)|j(?:oin|avaEnabled)|p(?:o(?:p|w)|ush|lugins.refresh|a(?:ddings|rse(?:Int|Float)?)|r(?:int|ompt|eference))|e(?:scape|nableExternalCapture|val|lementFromPoint|x(?:p|ec(?:Script|Command)?))|valueOf|UTC|queryCommand(?:State|Indeterm|Enabled|Value)|f(?:i(?:nd|le(?:ModifiedDate|Size|CreatedDate|UpdatedDate)|xed)|o(?:nt(?:size|color)|rward)|loor|romCharCode)|watch|l(?:ink|o(?:ad|g)|astIndexOf)|a(?:sin|nchor|cos|t(?:tachEvent|ob|an(?:2)?)|pply|lert|b(?:s|ort))|r(?:ou(?:nd|teEvents)|e(?:size(?:By|To)|calc|turnValue|place|verse|l(?:oad|ease(?:Capture|Events)))|andom)|g(?:o|et(?:ResponseHeader|M(?:i(?:nutes|lliseconds)|onth)|Se(?:conds|lection)|Hours|Year|Time(?:zoneOffset)?|Da(?:y|te)|UTC(?:M(?:i(?:nutes|lliseconds)|onth)|Seconds|Hours|Da(?:y|te)|FullYear)|FullYear|A(?:ttention|llResponseHeaders)))|m(?:in|ove(?:B(?:y|elow)|To(?:Absolute)?|Above)|ergeAttributes|a(?:tch|rgins|x))|b(?:toa|ig|o(?:ld|rderWidths)|link|ack))\b(?=\()/},{token:["punctuation.operator","support.function.dom"],regex:/(\.)(s(?:ub(?:stringData|mit)|plitText|e(?:t(?:NamedItem|Attribute(?:Node)?)|lect))|has(?:ChildNodes|Feature)|namedItem|c(?:l(?:ick|o(?:se|neNode))|reate(?:C(?:omment|DATASection|aption)|T(?:Head|extNode|Foot)|DocumentFragment|ProcessingInstruction|E(?:ntityReference|lement)|Attribute))|tabIndex|i(?:nsert(?:Row|Before|Cell|Data)|tem)|open|delete(?:Row|C(?:ell|aption)|T(?:Head|Foot)|Data)|focus|write(?:ln)?|a(?:dd|ppend(?:Child|Data))|re(?:set|place(?:Child|Data)|move(?:NamedItem|Child|Attribute(?:Node)?)?)|get(?:NamedItem|Element(?:sBy(?:Name|TagName)|ById)|Attribute(?:Node)?)|blur)\b(?=\()/},{token:["punctuation.operator","support.constant"],regex:/(\.)(s(?:ystemLanguage|cr(?:ipts|ollbars|een(?:X|Y|Top|Left))|t(?:yle(?:Sheets)?|atus(?:Text|bar)?)|ibling(?:Below|Above)|ource|uffixes|e(?:curity(?:Policy)?|l(?:ection|f)))|h(?:istory|ost(?:name)?|as(?:h|Focus))|y|X(?:MLDocument|SLDocument)|n(?:ext|ame(?:space(?:s|URI)|Prop))|M(?:IN_VALUE|AX_VALUE)|c(?:haracterSet|o(?:n(?:structor|trollers)|okieEnabled|lorDepth|mp(?:onents|lete))|urrent|puClass|l(?:i(?:p(?:boardData)?|entInformation)|osed|asses)|alle(?:e|r)|rypto)|t(?:o(?:olbar|p)|ext(?:Transform|Indent|Decoration|Align)|ags)|SQRT(?:1_2|2)|i(?:n(?:ner(?:Height|Width)|put)|ds|gnoreCase)|zIndex|o(?:scpu|n(?:readystatechange|Line)|uter(?:Height|Width)|p(?:sProfile|ener)|ffscreenBuffering)|NEGATIVE_INFINITY|d(?:i(?:splay|alog(?:Height|Top|Width|Left|Arguments)|rectories)|e(?:scription|fault(?:Status|Ch(?:ecked|arset)|View)))|u(?:ser(?:Profile|Language|Agent)|n(?:iqueID|defined)|pdateInterval)|_content|p(?:ixelDepth|ort|ersonalbar|kcs11|l(?:ugins|atform)|a(?:thname|dding(?:Right|Bottom|Top|Left)|rent(?:Window|Layer)?|ge(?:X(?:Offset)?|Y(?:Offset)?))|r(?:o(?:to(?:col|type)|duct(?:Sub)?|mpter)|e(?:vious|fix)))|e(?:n(?:coding|abledPlugin)|x(?:ternal|pando)|mbeds)|v(?:isibility|endor(?:Sub)?|Linkcolor)|URLUnencoded|P(?:I|OSITIVE_INFINITY)|f(?:ilename|o(?:nt(?:Size|Family|Weight)|rmName)|rame(?:s|Element)|gColor)|E|whiteSpace|l(?:i(?:stStyleType|n(?:eHeight|kColor))|o(?:ca(?:tion(?:bar)?|lName)|wsrc)|e(?:ngth|ft(?:Context)?)|a(?:st(?:M(?:odified|atch)|Index|Paren)|yer(?:s|X)|nguage))|a(?:pp(?:MinorVersion|Name|Co(?:deName|re)|Version)|vail(?:Height|Top|Width|Left)|ll|r(?:ity|guments)|Linkcolor|bove)|r(?:ight(?:Context)?|e(?:sponse(?:XML|Text)|adyState))|global|x|m(?:imeTypes|ultiline|enubar|argin(?:Right|Bottom|Top|Left))|L(?:N(?:10|2)|OG(?:10E|2E))|b(?:o(?:ttom|rder(?:Width|RightWidth|BottomWidth|Style|Color|TopWidth|LeftWidth))|ufferDepth|elow|ackground(?:Color|Image)))\b/},{token:["storage.type","punctuation.operator","support.function.firebug"],regex:/(console)(\.)(warn|info|log|error|time|timeEnd|assert)\b/},{token:e,regex:n},{token:"keyword.operator",regex:/--|\+\+|[!$%&*+\-~]|===|==|=|!=|!==|<=|>=|<<=|>>=|>>>=|<>|<|>|!|&&|\|\||\?\:|\*=|%=|\+=|\-=|&=|\^=/,next:"start"},{token:"punctuation.operator",regex:/\?|\:|\,|\;|\./,next:"start"},{token:"paren.lparen",regex:/[\[({]/,next:"start"},{token:"paren.rparen",regex:/[\])}]/},{token:"keyword.operator",regex:/\/=?/,next:"start"},{token:"comment",regex:/^#!.*$/}],start:[i.getStartRule("doc-start"),{token:"comment",regex:"\\/\\*",next:"comment_regex_allowed"},{token:"comment",regex:"\\/\\/",next:"line_comment_regex_allowed"},{token:"string.regexp",regex:"\\/",next:"regex"},{token:"text",regex:"\\s+|^$",next:"start"},{token:"empty",regex:"",next:"no_regex"}],regex:[{token:"regexp.keyword.operator",regex:"\\\\(?:u[\\da-fA-F]{4}|x[\\da-fA-F]{2}|.)"},{token:"string.regexp",regex:"/\\w*",next:"no_regex"},{token:"invalid",regex:/\{\d+\b,?\d*\}[+*]|[+*$^?][+*]|[$^][?]|\?{3,}/},{token:"constant.language.escape",regex:/\(\?[:=!]|\)|\{\d+\b,?\d*\}|[+*]\?|[()$^+*?]/},{token:"constant.language.delimiter",regex:/\|/},{token:"constant.language.escape",regex:/\[\^?/,next:"regex_character_class"},{token:"empty",regex:"$",next:"no_regex"},{defaultToken:"string.regexp"}],regex_character_class:[{token:"regexp.keyword.operator",regex:"\\\\(?:u[\\da-fA-F]{4}|x[\\da-fA-F]{2}|.)"},{token:"constant.language.escape",regex:"]",next:"regex"},{token:"constant.language.escape",regex:"-"},{token:"empty",regex:"$",next:"no_regex"},{defaultToken:"string.regexp.charachterclass"}],function_arguments:[{token:"variable.parameter",regex:n},{token:"punctuation.operator",regex:"[, ]+"},{token:"punctuation.operator",regex:"$"},{token:"empty",regex:"",next:"no_regex"}],comment_regex_allowed:[{token:"comment",regex:"\\*\\/",next:"start"},{defaultToken:"comment"}],comment:[{token:"comment",regex:"\\*\\/",next:"no_regex"},{defaultToken:"comment"}],line_comment_regex_allowed:[{token:"comment",regex:"$|^",next:"start"},{defaultToken:"comment"}],line_comment:[{token:"comment",regex:"$|^",next:"no_regex"},{defaultToken:"comment"}],qqstring:[{token:"constant.language.escape",regex:r},{token:"string",regex:"\\\\$",next:"qqstring"},{token:"string",regex:'"|$',next:"no_regex"},{defaultToken:"string"}],qstring:[{token:"constant.language.escape",regex:r},{token:"string",regex:"\\\\$",next:"qstring"},{token:"string",regex:"'|$",next:"no_regex"},{defaultToken:"string"}]},this.embedRules(i,"doc-",[i.getEndRule("no_regex")])};r.inherits(o,s),t.JavaScriptHighlightRules=o}),ace.define("ace/mode/doc_comment_highlight_rules",["require","exports","module","ace/lib/oop","ace/mode/text_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("./text_highlight_rules").TextHighlightRules,s=function(){this.$rules={start:[{token:"comment.doc.tag",regex:"@[\\w\\d_]+"},{token:"comment.doc.tag",regex:"\\bTODO\\b"},{defaultToken:"comment.doc"}]}};r.inherits(s,i),s.getStartRule=function(e){return{token:"comment.doc",regex:"\\/\\*(?=\\*)",next:e}},s.getEndRule=function(e){return{token:"comment.doc",regex:"\\*\\/",next:e}},t.DocCommentHighlightRules=s}),ace.define("ace/mode/matching_brace_outdent",["require","exports","module","ace/range"],function(e,t,n){var r=e("../range").Range,i=function(){};(function(){this.checkOutdent=function(e,t){return/^\s+$/.test(e)?/^\s*\}/.test(t):!1},this.autoOutdent=function(e,t){var n=e.getLine(t),i=n.match(/^(\s*\})/);if(!i)return 0;var s=i[1].length,o=e.findMatchingBracket({row:t,column:s});if(!o||o.row==t)return 0;var u=this.$getIndent(e.getLine(o.row));e.replace(new r(t,0,t,s-1),u)},this.$getIndent=function(e){return e.match(/^\s*/)[0]}}).call(i.prototype),t.MatchingBraceOutdent=i}),ace.define("ace/mode/behaviour/cstyle",["require","exports","module","ace/lib/oop","ace/mode/behaviour","ace/token_iterator","ace/lib/lang"],function(e,t,n){var r=e("../../lib/oop"),i=e("../behaviour").Behaviour,s=e("../../token_iterator").TokenIterator,o=e("../../lib/lang"),u=["text","paren.rparen","punctuation.operator"],a=["text","paren.rparen","punctuation.operator","comment"],f=0,l=-1,c="",h=0,p=-1,d="",v="",m=function(){m.isSaneInsertion=function(e,t){var n=e.getCursorPosition(),r=new s(t,n.row,n.column);if(!this.$matchTokenType(r.getCurrentToken()||"text",u)){var i=new s(t,n.row,n.column+1);if(!this.$matchTokenType(i.getCurrentToken()||"text",u))return!1}return r.stepForward(),r.getCurrentTokenRow()!==n.row||this.$matchTokenType(r.getCurrentToken()||"text",a)},m.$matchTokenType=function(e,t){return t.indexOf(e.type||e)>-1},m.recordAutoInsert=function(e,t,n){var r=e.getCursorPosition(),i=t.doc.getLine(r.row);this.isAutoInsertedClosing(r,i,c[0])||(f=0),l=r.row,c=n+i.substr(r.column),f++},m.recordMaybeInsert=function(e,t,n){var r=e.getCursorPosition(),i=t.doc.getLine(r.row);this.isMaybeInsertedClosing(r,i)||(h=0),p=r.row,d=i.substr(0,r.column)+n,v=i.substr(r.column),h++},m.isAutoInsertedClosing=function(e,t,n){return f>0&&e.row===l&&n===c[0]&&t.substr(e.column)===c},m.isMaybeInsertedClosing=function(e,t){return h>0&&e.row===p&&t.substr(e.column)===v&&t.substr(0,e.column)==d},m.popAutoInsertedClosing=function(){c=c.substr(1),f--},m.clearMaybeInsertedClosing=function(){h=0,p=-1},this.add("braces","insertion",function(e,t,n,r,i){var s=n.getCursorPosition(),u=r.doc.getLine(s.row);if(i=="{"){var a=n.getSelectionRange(),f=r.doc.getTextRange(a);if(f!==""&&f!=="{"&&n.getWrapBehavioursEnabled())return{text:"{"+f+"}",selection:!1};if(m.isSaneInsertion(n,r))return/[\]\}\)]/.test(u[s.column])?(m.recordAutoInsert(n,r,"}"),{text:"{}",selection:[1,1]}):(m.recordMaybeInsert(n,r,"{"),{text:"{",selection:[1,1]})}else if(i=="}"){var l=u.substring(s.column,s.column+1);if(l=="}"){var c=r.$findOpeningBracket("}",{column:s.column+1,row:s.row});if(c!==null&&m.isAutoInsertedClosing(s,u,i))return m.popAutoInsertedClosing(),{text:"",selection:[1,1]}}}else if(i=="\n"||i=="\r\n"){var p="";m.isMaybeInsertedClosing(s,u)&&(p=o.stringRepeat("}",h),m.clearMaybeInsertedClosing());var l=u.substring(s.column,s.column+1);if(l=="}"||p!==""){var d=r.findMatchingBracket({row:s.row,column:s.column},"}");if(!d)return null;var v=this.getNextLineIndent(e,u.substring(0,s.column),r.getTabString()),g=this.$getIndent(u);return{text:"\n"+v+"\n"+g+p,selection:[1,v.length,1,v.length]}}}}),this.add("braces","deletion",function(e,t,n,r,i){var s=r.doc.getTextRange(i);if(!i.isMultiLine()&&s=="{"){var o=r.doc.getLine(i.start.row),u=o.substring(i.end.column,i.end.column+1);if(u=="}")return i.end.column++,i;h--}}),this.add("parens","insertion",function(e,t,n,r,i){if(i=="("){var s=n.getSelectionRange(),o=r.doc.getTextRange(s);if(o!==""&&n.getWrapBehavioursEnabled())return{text:"("+o+")",selection:!1};if(m.isSaneInsertion(n,r))return m.recordAutoInsert(n,r,")"),{text:"()",selection:[1,1]}}else if(i==")"){var u=n.getCursorPosition(),a=r.doc.getLine(u.row),f=a.substring(u.column,u.column+1);if(f==")"){var l=r.$findOpeningBracket(")",{column:u.column+1,row:u.row});if(l!==null&&m.isAutoInsertedClosing(u,a,i))return m.popAutoInsertedClosing(),{text:"",selection:[1,1]}}}}),this.add("parens","deletion",function(e,t,n,r,i){var s=r.doc.getTextRange(i);if(!i.isMultiLine()&&s=="("){var o=r.doc.getLine(i.start.row),u=o.substring(i.start.column+1,i.start.column+2);if(u==")")return i.end.column++,i}}),this.add("brackets","insertion",function(e,t,n,r,i){if(i=="["){var s=n.getSelectionRange(),o=r.doc.getTextRange(s);if(o!==""&&n.getWrapBehavioursEnabled())return{text:"["+o+"]",selection:!1};if(m.isSaneInsertion(n,r))return m.recordAutoInsert(n,r,"]"),{text:"[]",selection:[1,1]}}else if(i=="]"){var u=n.getCursorPosition(),a=r.doc.getLine(u.row),f=a.substring(u.column,u.column+1);if(f=="]"){var l=r.$findOpeningBracket("]",{column:u.column+1,row:u.row});if(l!==null&&m.isAutoInsertedClosing(u,a,i))return m.popAutoInsertedClosing(),{text:"",selection:[1,1]}}}}),this.add("brackets","deletion",function(e,t,n,r,i){var s=r.doc.getTextRange(i);if(!i.isMultiLine()&&s=="["){var o=r.doc.getLine(i.start.row),u=o.substring(i.start.column+1,i.start.column+2);if(u=="]")return i.end.column++,i}}),this.add("string_dquotes","insertion",function(e,t,n,r,i){if(i=='"'||i=="'"){var s=i,o=n.getSelectionRange(),u=r.doc.getTextRange(o);if(u!==""&&u!=="'"&&u!='"'&&n.getWrapBehavioursEnabled())return{text:s+u+s,selection:!1};var a=n.getCursorPosition(),f=r.doc.getLine(a.row),l=f.substring(a.column-1,a.column);if(l=="\\")return null;var c=r.getTokens(o.start.row),h=0,p,d=-1;for(var v=0;v<c.length;v++){p=c[v],p.type=="string"?d=-1:d<0&&(d=p.value.indexOf(s));if(p.value.length+h>o.start.column)break;h+=c[v].value.length}if(!p||d<0&&p.type!=="comment"&&(p.type!=="string"||o.start.column!==p.value.length+h-1&&p.value.lastIndexOf(s)===p.value.length-1)){if(!m.isSaneInsertion(n,r))return;return{text:s+s,selection:[1,1]}}if(p&&p.type==="string"){var g=f.substring(a.column,a.column+1);if(g==s)return{text:"",selection:[1,1]}}}}),this.add("string_dquotes","deletion",function(e,t,n,r,i){var s=r.doc.getTextRange(i);if(!i.isMultiLine()&&(s=='"'||s=="'")){var o=r.doc.getLine(i.start.row),u=o.substring(i.start.column+1,i.start.column+2);if(u==s)return i.end.column++,i}})};r.inherits(m,i),t.CstyleBehaviour=m}),ace.define("ace/mode/folding/cstyle",["require","exports","module","ace/lib/oop","ace/range","ace/mode/folding/fold_mode"],function(e,t,n){var r=e("../../lib/oop"),i=e("../../range").Range,s=e("./fold_mode").FoldMode,o=t.FoldMode=function(e){e&&(this.foldingStartMarker=new RegExp(this.foldingStartMarker.source.replace(/\|[^|]*?$/,"|"+e.start)),this.foldingStopMarker=new RegExp(this.foldingStopMarker.source.replace(/\|[^|]*?$/,"|"+e.end)))};r.inherits(o,s),function(){this.foldingStartMarker=/(\{|\[)[^\}\]]*$|^\s*(\/\*)/,this.foldingStopMarker=/^[^\[\{]*(\}|\])|^[\s\*]*(\*\/)/,this.getFoldWidgetRange=function(e,t,n){var r=e.getLine(n),i=r.match(this.foldingStartMarker);if(i){var s=i.index;return i[1]?this.openingBracketBlock(e,i[1],n,s):e.getCommentFoldRange(n,s+i[0].length,1)}if(t!=="markbeginend")return;var i=r.match(this.foldingStopMarker);if(i){var s=i.index+i[0].length;return i[1]?this.closingBracketBlock(e,i[1],n,s):e.getCommentFoldRange(n,s,-1)}}}.call(o.prototype)}),ace.define("ace/mode/css",["require","exports","module","ace/lib/oop","ace/mode/text","ace/tokenizer","ace/mode/css_highlight_rules","ace/mode/matching_brace_outdent","ace/worker/worker_client","ace/mode/behaviour/css","ace/mode/folding/cstyle"],function(e,t,n){var r=e("../lib/oop"),i=e("./text").Mode,s=e("../tokenizer").Tokenizer,o=e("./css_highlight_rules").CssHighlightRules,u=e("./matching_brace_outdent").MatchingBraceOutdent,a=e("../worker/worker_client").WorkerClient,f=e("./behaviour/css").CssBehaviour,l=e("./folding/cstyle").FoldMode,c=function(){var e=new o;this.$tokenizer=new s(e.getRules()),this.$outdent=new u,this.$behaviour=new f,this.$keywordList=e.$keywordList,this.foldingRules=new l};r.inherits(c,i),function(){this.foldingRules="cStyle",this.blockComment={start:"/*",end:"*/"},this.getNextLineIndent=function(e,t,n){var r=this.$getIndent(t),i=this.$tokenizer.getLineTokens(t,e).tokens;if(i.length&&i[i.length-1].type=="comment")return r;var s=t.match(/^.*\{\s*$/);return s&&(r+=n),r},this.checkOutdent=function(e,t,n){return this.$outdent.checkOutdent(t,n)},this.autoOutdent=function(e,t,n){this.$outdent.autoOutdent(t,n)},this.createWorker=function(e){var t=new a(["ace"],"ace/mode/css_worker","Worker");return t.attachToDocument(e.getDocument()),t.on("csslint",function(t){e.setAnnotations(t.data)}),t.on("terminate",function(){e.clearAnnotations()}),t}}.call(c.prototype),t.Mode=c}),ace.define("ace/mode/css_highlight_rules",["require","exports","module","ace/lib/oop","ace/lib/lang","ace/mode/text_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("../lib/lang"),s=e("./text_highlight_rules").TextHighlightRules,o=t.supportType="animation-fill-mode|alignment-adjust|alignment-baseline|animation-delay|animation-direction|animation-duration|animation-iteration-count|animation-name|animation-play-state|animation-timing-function|animation|appearance|azimuth|backface-visibility|background-attachment|background-break|background-clip|background-color|background-image|background-origin|background-position|background-repeat|background-size|background|baseline-shift|binding|bleed|bookmark-label|bookmark-level|bookmark-state|bookmark-target|border-bottom|border-bottom-color|border-bottom-left-radius|border-bottom-right-radius|border-bottom-style|border-bottom-width|border-collapse|border-color|border-image|border-image-outset|border-image-repeat|border-image-slice|border-image-source|border-image-width|border-left|border-left-color|border-left-style|border-left-width|border-radius|border-right|border-right-color|border-right-style|border-right-width|border-spacing|border-style|border-top|border-top-color|border-top-left-radius|border-top-right-radius|border-top-style|border-top-width|border-width|border|bottom|box-align|box-decoration-break|box-direction|box-flex-group|box-flex|box-lines|box-ordinal-group|box-orient|box-pack|box-shadow|box-sizing|break-after|break-before|break-inside|caption-side|clear|clip|color-profile|color|column-count|column-fill|column-gap|column-rule|column-rule-color|column-rule-style|column-rule-width|column-span|column-width|columns|content|counter-increment|counter-reset|crop|cue-after|cue-before|cue|cursor|direction|display|dominant-baseline|drop-initial-after-adjust|drop-initial-after-align|drop-initial-before-adjust|drop-initial-before-align|drop-initial-size|drop-initial-value|elevation|empty-cells|fit|fit-position|float-offset|float|font-family|font-size|font-size-adjust|font-stretch|font-style|font-variant|font-weight|font|grid-columns|grid-rows|hanging-punctuation|height|hyphenate-after|hyphenate-before|hyphenate-character|hyphenate-lines|hyphenate-resource|hyphens|icon|image-orientation|image-rendering|image-resolution|inline-box-align|left|letter-spacing|line-height|line-stacking-ruby|line-stacking-shift|line-stacking-strategy|line-stacking|list-style-image|list-style-position|list-style-type|list-style|margin-bottom|margin-left|margin-right|margin-top|margin|mark-after|mark-before|mark|marks|marquee-direction|marquee-play-count|marquee-speed|marquee-style|max-height|max-width|min-height|min-width|move-to|nav-down|nav-index|nav-left|nav-right|nav-up|opacity|orphans|outline-color|outline-offset|outline-style|outline-width|outline|overflow-style|overflow-x|overflow-y|overflow|padding-bottom|padding-left|padding-right|padding-top|padding|page-break-after|page-break-before|page-break-inside|page-policy|page|pause-after|pause-before|pause|perspective-origin|perspective|phonemes|pitch-range|pitch|play-during|position|presentation-level|punctuation-trim|quotes|rendering-intent|resize|rest-after|rest-before|rest|richness|right|rotation-point|rotation|ruby-align|ruby-overhang|ruby-position|ruby-span|size|speak-header|speak-numeral|speak-punctuation|speak|speech-rate|stress|string-set|table-layout|target-name|target-new|target-position|target|text-align-last|text-align|text-decoration|text-emphasis|text-height|text-indent|text-justify|text-outline|text-shadow|text-transform|text-wrap|top|transform-origin|transform-style|transform|transition-delay|transition-duration|transition-property|transition-timing-function|transition|unicode-bidi|vertical-align|visibility|voice-balance|voice-duration|voice-family|voice-pitch-range|voice-pitch|voice-rate|voice-stress|voice-volume|volume|white-space-collapse|white-space|widows|width|word-break|word-spacing|word-wrap|z-index",u=t.supportFunction="rgb|rgba|url|attr|counter|counters",a=t.supportConstant="absolute|after-edge|after|all-scroll|all|alphabetic|always|antialiased|armenian|auto|avoid-column|avoid-page|avoid|balance|baseline|before-edge|before|below|bidi-override|block-line-height|block|bold|bolder|border-box|both|bottom|box|break-all|break-word|capitalize|caps-height|caption|center|central|char|circle|cjk-ideographic|clone|close-quote|col-resize|collapse|column|consider-shifts|contain|content-box|cover|crosshair|cubic-bezier|dashed|decimal-leading-zero|decimal|default|disabled|disc|disregard-shifts|distribute-all-lines|distribute-letter|distribute-space|distribute|dotted|double|e-resize|ease-in|ease-in-out|ease-out|ease|ellipsis|end|exclude-ruby|fill|fixed|georgian|glyphs|grid-height|groove|hand|hanging|hebrew|help|hidden|hiragana-iroha|hiragana|horizontal|icon|ideograph-alpha|ideograph-numeric|ideograph-parenthesis|ideograph-space|ideographic|inactive|include-ruby|inherit|initial|inline-block|inline-box|inline-line-height|inline-table|inline|inset|inside|inter-ideograph|inter-word|invert|italic|justify|katakana-iroha|katakana|keep-all|last|left|lighter|line-edge|line-through|line|linear|list-item|local|loose|lower-alpha|lower-greek|lower-latin|lower-roman|lowercase|lr-tb|ltr|mathematical|max-height|max-size|medium|menu|message-box|middle|move|n-resize|ne-resize|newspaper|no-change|no-close-quote|no-drop|no-open-quote|no-repeat|none|normal|not-allowed|nowrap|nw-resize|oblique|open-quote|outset|outside|overline|padding-box|page|pointer|pre-line|pre-wrap|pre|preserve-3d|progress|relative|repeat-x|repeat-y|repeat|replaced|reset-size|ridge|right|round|row-resize|rtl|s-resize|scroll|se-resize|separate|slice|small-caps|small-caption|solid|space|square|start|static|status-bar|step-end|step-start|steps|stretch|strict|sub|super|sw-resize|table-caption|table-cell|table-column-group|table-column|table-footer-group|table-header-group|table-row-group|table-row|table|tb-rl|text-after-edge|text-before-edge|text-bottom|text-size|text-top|text|thick|thin|transparent|underline|upper-alpha|upper-latin|upper-roman|uppercase|use-script|vertical-ideographic|vertical-text|visible|w-resize|wait|whitespace|z-index|zero",f=t.supportConstantColor="aqua|black|blue|fuchsia|gray|green|lime|maroon|navy|olive|orange|purple|red|silver|teal|white|yellow",l=t.supportConstantFonts="arial|century|comic|courier|garamond|georgia|helvetica|impact|lucida|symbol|system|tahoma|times|trebuchet|utopia|verdana|webdings|sans-serif|serif|monospace",c=t.numRe="\\-?(?:(?:[0-9]+)|(?:[0-9]*\\.[0-9]+))",h=t.pseudoElements="(\\:+)\\b(after|before|first-letter|first-line|moz-selection|selection)\\b",p=t.pseudoClasses="(:)\\b(active|checked|disabled|empty|enabled|first-child|first-of-type|focus|hover|indeterminate|invalid|last-child|last-of-type|link|not|nth-child|nth-last-child|nth-last-of-type|nth-of-type|only-child|only-of-type|required|root|target|valid|visited)\\b",d=function(){var e=this.createKeywordMapper({"support.function":u,"support.constant":a,"support.type":o,"support.constant.color":f,"support.constant.fonts":l},"text",!0);this.$rules={start:[{token:"comment",regex:"\\/\\*",push:"comment"},{token:"paren.lparen",regex:"\\{",push:"ruleset"},{token:"string",regex:"@.*?{",push:"media"},{token:"keyword",regex:"#[a-z0-9-_]+"},{token:"variable",regex:"\\.[a-z0-9-_]+"},{token:"string",regex:":[a-z0-9-_]+"},{token:"constant",regex:"[a-z0-9-_]+"},{caseInsensitive:!0}],media:[{token:"comment",regex:"\\/\\*",push:"comment"},{token:"paren.lparen",regex:"\\{",push:"ruleset"},{token:"string",regex:"\\}",next:"pop"},{token:"keyword",regex:"#[a-z0-9-_]+"},{token:"variable",regex:"\\.[a-z0-9-_]+"},{token:"string",regex:":[a-z0-9-_]+"},{token:"constant",regex:"[a-z0-9-_]+"},{caseInsensitive:!0}],comment:[{token:"comment",regex:"\\*\\/",next:"pop"},{defaultToken:"comment"}],ruleset:[{token:"paren.rparen",regex:"\\}",next:"pop"},{token:"comment",regex:"\\/\\*",push:"comment"},{token:"string",regex:'["](?:(?:\\\\.)|(?:[^"\\\\]))*?["]'},{token:"string",regex:"['](?:(?:\\\\.)|(?:[^'\\\\]))*?[']"},{token:["constant.numeric","keyword"],regex:"("+c+")(ch|cm|deg|em|ex|fr|gd|grad|Hz|in|kHz|mm|ms|pc|pt|px|rad|rem|s|turn|vh|vm|vw|%)"},{token:"constant.numeric",regex:c},{token:"constant.numeric",regex:"#[a-f0-9]{6}"},{token:"constant.numeric",regex:"#[a-f0-9]{3}"},{token:["punctuation","entity.other.attribute-name.pseudo-element.css"],regex:h},{token:["punctuation","entity.other.attribute-name.pseudo-class.css"],regex:p},{token:["support.function","string","support.function"],regex:"(url\\()(.*)(\\))"},{token:e,regex:"\\-?[a-zA-Z_][a-zA-Z0-9_\\-]*"},{caseInsensitive:!0}]},this.normalizeRules()};r.inherits(d,s),t.CssHighlightRules=d}),ace.define("ace/mode/behaviour/css",["require","exports","module","ace/lib/oop","ace/mode/behaviour","ace/mode/behaviour/cstyle","ace/token_iterator"],function(e,t,n){var r=e("../../lib/oop"),i=e("../behaviour").Behaviour,s=e("./cstyle").CstyleBehaviour,o=e("../../token_iterator").TokenIterator,u=function(){this.inherit(s),this.add("colon","insertion",function(e,t,n,r,i){if(i===":"){var s=n.getCursorPosition(),u=new o(r,s.row,s.column),a=u.getCurrentToken();a&&a.value.match(/\s+/)&&(a=u.stepBackward());if(a&&a.type==="support.type"){var f=r.doc.getLine(s.row),l=f.substring(s.column,s.column+1);if(l===":")return{text:"",selection:[1,1]};if(!f.substring(s.column).match(/^\s*;/))return{text:":;",selection:[1,1]}}}}),this.add("colon","deletion",function(e,t,n,r,i){var s=r.doc.getTextRange(i);if(!i.isMultiLine()&&s===":"){var u=n.getCursorPosition(),a=new o(r,u.row,u.column),f=a.getCurrentToken();f&&f.value.match(/\s+/)&&(f=a.stepBackward());if(f&&f.type==="support.type"){var l=r.doc.getLine(i.start.row),c=l.substring(i.end.column,i.end.column+1);if(c===";")return i.end.column++,i}}}),this.add("semicolon","insertion",function(e,t,n,r,i){if(i===";"){var s=n.getCursorPosition(),o=r.doc.getLine(s.row),u=o.substring(s.column,s.column+1);if(u===";")return{text:"",selection:[1,1]}}})};r.inherits(u,s),t.CssBehaviour=u}),ace.define("ace/mode/html_highlight_rules",["require","exports","module","ace/lib/oop","ace/lib/lang","ace/mode/css_highlight_rules","ace/mode/javascript_highlight_rules","ace/mode/xml_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("../lib/lang"),s=e("./css_highlight_rules").CssHighlightRules,o=e("./javascript_highlight_rules").JavaScriptHighlightRules,u=e("./xml_highlight_rules").XmlHighlightRules,a=i.createMap({a:"anchor",button:"form",form:"form",img:"image",input:"form",label:"form",script:"script",select:"form",textarea:"form",style:"style",table:"table",tbody:"table",td:"table",tfoot:"table",th:"table",tr:"table"}),f=function(){u.call(this),this.addRules({attributes:[{include:"space"},{token:"entity.other.attribute-name",regex:"[-_a-zA-Z0-9:]+"},{token:"keyword.operator.separator",regex:"=",push:[{include:"space"},{token:"string",regex:"[^<>='\"`\\s]+",next:"pop"},{token:"empty",regex:"",next:"pop"}]},{include:"string"}],tag:[{token:function(e,t){var n=a[t];return["meta.tag.punctuation.begin","meta.tag.name"+(n?"."+n:"")]},regex:"(<)([-_a-zA-Z0-9:]+)",next:"start_tag_stuff"},{token:function(e,t){var n=a[t];return["meta.tag.punctuation.begin","meta.tag.name"+(n?"."+n:"")]},regex:"(</)([-_a-zA-Z0-9:]+)",next:"end_tag_stuff"}],start_tag_stuff:[{include:"attributes"},{token:"meta.tag.punctuation.end",regex:"/?>",next:"start"}],end_tag_stuff:[{include:"space"},{token:"meta.tag.punctuation.end",regex:">",next:"start"}]}),this.embedTagRules(s,"css-","style"),this.embedTagRules(o,"js-","script"),this.constructor===f&&this.normalizeRules()};r.inherits(f,u),t.HtmlHighlightRules=f}),ace.define("ace/mode/xml_highlight_rules",["require","exports","module","ace/lib/oop","ace/mode/xml_util","ace/mode/text_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("./xml_util"),s=e("./text_highlight_rules").TextHighlightRules,o=function(e){this.$rules={start:[{token:"punctuation.string.begin",regex:"<\\!\\[CDATA\\[",next:"cdata"},{token:["punctuation.instruction.begin","keyword.instruction"],regex:"(<\\?)(xml)(?=[\\s])",next:"xml_declaration"},{token:["punctuation.instruction.begin","keyword.instruction"],regex:"(<\\?)([-_a-zA-Z0-9]+)",next:"instruction"},{token:"comment",regex:"<\\!--",next:"comment"},{token:["punctuation.doctype.begin","meta.tag.doctype"],regex:"(<\\!)(DOCTYPE)(?=[\\s])",next:"doctype"},{include:"tag"},{include:"reference"}],xml_declaration:[{include:"attributes"},{include:"instruction"}],instruction:[{token:"punctuation.instruction.end",regex:"\\?>",next:"start"}],doctype:[{include:"space"},{include:"string"},{token:"punctuation.doctype.end",regex:">",next:"start"},{token:"xml-pe",regex:"[-_a-zA-Z0-9:]+"},{token:"punctuation.begin",regex:"\\[",push:"declarations"}],declarations:[{token:"text",regex:"\\s+"},{token:"punctuation.end",regex:"]",next:"pop"},{token:["punctuation.begin","keyword"],regex:"(<\\!)([-_a-zA-Z0-9]+)",push:[{token:"text",regex:"\\s+"},{token:"punctuation.end",regex:">",next:"pop"},{include:"string"}]}],cdata:[{token:"string.end",regex:"\\]\\]>",next:"start"},{token:"text",regex:"\\s+"},{token:"text",regex:"(?:[^\\]]|\\](?!\\]>))+"}],comment:[{token:"comment",regex:"-->",next:"start"},{defaultToken:"comment"}],tag:[{token:["meta.tag.punctuation.begin","meta.tag.name"],regex:"(<)((?:[-_a-zA-Z0-9]+:)?[-_a-zA-Z0-9]+)",next:[{include:"attributes"},{token:"meta.tag.punctuation.end",regex:"/?>",next:"start"}]},{token:["meta.tag.punctuation.begin","meta.tag.name"],regex:"(</)((?:[-_a-zA-Z0-9]+:)?[-_a-zA-Z0-9]+)",next:[{include:"space"},{token:"meta.tag.punctuation.end",regex:">",next:"start"}]}],space:[{token:"text",regex:"\\s+"}],reference:[{token:"constant.language.escape",regex:"(?:&#[0-9]+;)|(?:&#x[0-9a-fA-F]+;)|(?:&[a-zA-Z0-9_:\\.-]+;)"},{token:"invalid.illegal",regex:"&"}],string:[{token:"string",regex:"'",push:"qstring_inner"},{token:"string",regex:'"',push:"qqstring_inner"}],qstring_inner:[{token:"string",regex:"'",next:"pop"},{include:"reference"},{defaultToken:"string"}],qqstring_inner:[{token:"string",regex:'"',next:"pop"},{include:"reference"},{defaultToken:"string"}],attributes:[{token:"entity.other.attribute-name",regex:"(?:[-_a-zA-Z0-9]+:)?[-_a-zA-Z0-9]+"},{token:"keyword.operator.separator",regex:"="},{include:"space"},{include:"string"}]},this.constructor===o&&this.normalizeRules()};(function(){this.embedTagRules=function(e,t,n){this.$rules.tag.unshift({token:["meta.tag.punctuation.begin","meta.tag.name."+n],regex:"(<)("+n+")",next:[{include:"space"},{include:"attributes"},{token:"meta.tag.punctuation.end",regex:"/?>",next:t+"start"}]}),this.$rules[n+"-end"]=[{include:"space"},{token:"meta.tag.punctuation.end",regex:">",next:"start",onMatch:function(e,t,n){return n.splice(0),this.token}}],this.embedRules(e,t,[{token:["meta.tag.punctuation.begin","meta.tag.name."+n],regex:"(</)("+n+")",next:n+"-end"},{token:"string.begin",regex:"<\\!\\[CDATA\\["},{token:"string.end",regex:"\\]\\]>"}])}}).call(s.prototype),r.inherits(o,s),t.XmlHighlightRules=o}),ace.define("ace/mode/xml_util",["require","exports","module"],function(e,t,n){function r(e){return[{token:"string",regex:'"',next:e+"_qqstring"},{token:"string",regex:"'",next:e+"_qstring"}]}function i(e,t){return[{token:"string",regex:e,next:t},{token:"constant.language.escape",regex:"(?:&#[0-9]+;)|(?:&#x[0-9a-fA-F]+;)|(?:&[a-zA-Z0-9_:\\.-]+;)"},{defaultToken:"string"}]}t.tag=function(e,t,n,s){e[t]=[{token:"text",regex:"\\s+"},{token:s?function(e){return s[e]?"meta.tag.tag-name."+s[e]:"meta.tag.tag-name"}:"meta.tag.tag-name",regex:"[-_a-zA-Z0-9:]+",next:t+"_embed_attribute_list"},{token:"empty",regex:"",next:t+"_embed_attribute_list"}],e[t+"_qstring"]=i("'",t+"_embed_attribute_list"),e[t+"_qqstring"]=i('"',t+"_embed_attribute_list"),e[t+"_embed_attribute_list"]=[{token:"meta.tag.r",regex:"/?>",next:n},{token:"keyword.operator",regex:"="},{token:"entity.other.attribute-name",regex:"[-_a-zA-Z0-9:]+"},{token:"constant.numeric",regex:"[+-]?\\d+(?:(?:\\.\\d*)?(?:[eE][+-]?\\d+)?)?\\b"},{token:"text",regex:"\\s+"}].concat(r(t))}}),ace.define("ace/mode/behaviour/html",["require","exports","module","ace/lib/oop","ace/mode/behaviour/xml","ace/mode/behaviour/cstyle","ace/token_iterator"],function(e,t,n){function a(e,t){var n=e.type.split(".");return t.split(".").every(function(e){return n.indexOf(e)!==-1})}var r=e("../../lib/oop"),i=e("../behaviour/xml").XmlBehaviour,s=e("./cstyle").CstyleBehaviour,o=e("../../token_iterator").TokenIterator,u=["area","base","br","col","command","embed","hr","img","input","keygen","link","meta","param","source","track","wbr"],f=function(){this.inherit(i),this.add("autoclosing","insertion",function(e,t,n,r,i){if(i==">"){var s=n.getCursorPosition(),f=new o(r,s.row,s.column),l=f.getCurrentToken();if(l&&a(l,"string")&&f.getCurrentTokenColumn()+l.value.length>s.column)return;var c=!1;if(!l||!a(l,"meta.tag")&&(!a(l,"text")||!l.value.match("/"))){do l=f.stepBackward();while(l&&(a(l,"string")||a(l,"keyword.operator")||a(l,"entity.attribute-name")||a(l,"text")))}else c=!0;if(!l||!a(l,"meta.tag.name")||f.stepBackward().value.match("/"))return;var h=l.value;if(c)var h=h.substring(0,s.column-l.start);if(u.indexOf(h)!==-1)return;return{text:"></"+h+">",selection:[1,1]}}})};r.inherits(f,i),t.HtmlBehaviour=f}),ace.define("ace/mode/behaviour/xml",["require","exports","module","ace/lib/oop","ace/mode/behaviour","ace/mode/behaviour/cstyle","ace/token_iterator"],function(e,t,n){function u(e,t){var n=e.type.split(".");return t.split(".").every(function(e){return n.indexOf(e)!==-1})}var r=e("../../lib/oop"),i=e("../behaviour").Behaviour,s=e("./cstyle").CstyleBehaviour,o=e("../../token_iterator").TokenIterator,a=function(){this.inherit(s,["string_dquotes"]),this.add("autoclosing","insertion",function(e,t,n,r,i){if(i==">"){var s=n.getCursorPosition(),a=new o(r,s.row,s.column),f=a.getCurrentToken();if(f&&u(f,"string")&&a.getCurrentTokenColumn()+f.value.length>s.column)return;var l=!1;if(!f||!u(f,"meta.tag")&&(!u(f,"text")||!f.value.match("/"))){do f=a.stepBackward();while(f&&(u(f,"string")||u(f,"keyword.operator")||u(f,"entity.attribute-name")||u(f,"text")))}else l=!0;if(!f||!u(f,"meta.tag.name")||a.stepBackward().value.match("/"))return;var c=f.value;if(l)var c=c.substring(0,s.column-f.start);return{text:"></"+c+">",selection:[1,1]}}}),this.add("autoindent","insertion",function(e,t,n,r,i){if(i=="\n"){var s=n.getCursorPosition(),o=r.getLine(s.row),u=o.substring(s.column,s.column+2);if(u=="</"){var a=this.$getIndent(o),f=a+r.getTabString();return{text:"\n"+f+"\n"+a,selection:[1,f.length,1,f.length]}}}})};r.inherits(a,i),t.XmlBehaviour=a}),ace.define("ace/mode/folding/html",["require","exports","module","ace/lib/oop","ace/mode/folding/mixed","ace/mode/folding/xml","ace/mode/folding/cstyle"],function(e,t,n){var r=e("../../lib/oop"),i=e("./mixed").FoldMode,s=e("./xml").FoldMode,o=e("./cstyle").FoldMode,u=t.FoldMode=function(){i.call(this,new s({area:1,base:1,br:1,col:1,command:1,embed:1,hr:1,img:1,input:1,keygen:1,link:1,meta:1,param:1,source:1,track:1,wbr:1,li:1,dt:1,dd:1,p:1,rt:1,rp:1,optgroup:1,option:1,colgroup:1,td:1,th:1}),{"js-":new o,"css-":new o})};r.inherits(u,i)}),ace.define("ace/mode/folding/mixed",["require","exports","module","ace/lib/oop","ace/mode/folding/fold_mode"],function(e,t,n){var r=e("../../lib/oop"),i=e("./fold_mode").FoldMode,s=t.FoldMode=function(e,t){this.defaultMode=e,this.subModes=t};r.inherits(s,i),function(){this.$getMode=function(e){typeof e!="string"&&(e=e[0]);for(var t in this.subModes)if(e.indexOf(t)===0)return this.subModes[t];return null},this.$tryMode=function(e,t,n,r){var i=this.$getMode(e);return i?i.getFoldWidget(t,n,r):""},this.getFoldWidget=function(e,t,n){return this.$tryMode(e.getState(n-1),e,t,n)||this.$tryMode(e.getState(n),e,t,n)||this.defaultMode.getFoldWidget(e,t,n)},this.getFoldWidgetRange=function(e,t,n){var r=this.$getMode(e.getState(n-1));if(!r||!r.getFoldWidget(e,t,n))r=this.$getMode(e.getState(n));if(!r||!r.getFoldWidget(e,t,n))r=this.defaultMode;return r.getFoldWidgetRange(e,t,n)}}.call(s.prototype)}),ace.define("ace/mode/folding/xml",["require","exports","module","ace/lib/oop","ace/lib/lang","ace/range","ace/mode/folding/fold_mode","ace/token_iterator"],function(e,t,n){var r=e("../../lib/oop"),i=e("../../lib/lang"),s=e("../../range").Range,o=e("./fold_mode").FoldMode,u=e("../../token_iterator").TokenIterator,a=t.FoldMode=function(e){o.call(this),this.voidElements=e||{}};r.inherits(a,o),function(){this.getFoldWidget=function(e,t,n){var r=this._getFirstTagInLine(e,n);return r.closing?t=="markbeginend"?"end":"":!r.tagName||this.voidElements[r.tagName.toLowerCase()]?"":r.selfClosing?"":r.value.indexOf("/"+r.tagName)!==-1?"":"start"},this._getFirstTagInLine=function(e,t){var n=e.getTokens(t),r="";for(var s=0;s<n.length;s++){var o=n[s];o.type.lastIndexOf("meta.tag",0)===0?r+=o.value:r+=i.stringRepeat(" ",o.value.length)}return this._parseTag(r)},this.tagRe=/^(\s*)(<?(\/?)([-_a-zA-Z0-9:!]*)\s*(\/?)>?)/,this._parseTag=function(e){var t=e.match(this.tagRe),n=0;return{value:e,match:t?t[2]:"",closing:t?!!t[3]:!1,selfClosing:t?!!t[5]||t[2]=="/>":!1,tagName:t?t[4]:"",column:t[1]?n+t[1].length:n}},this._readTagForward=function(e){var t=e.getCurrentToken();if(!t)return null;var n="",r;do if(t.type.lastIndexOf("meta.tag",0)===0){if(!r)var r={row:e.getCurrentTokenRow(),column:e.getCurrentTokenColumn()};n+=t.value;if(n.indexOf(">")!==-1){var i=this._parseTag(n);return i.start=r,i.end={row:e.getCurrentTokenRow(),column:e.getCurrentTokenColumn()+t.value.length},e.stepForward(),i}}while(t=e.stepForward());return null},this._readTagBackward=function(e){var t=e.getCurrentToken();if(!t)return null;var n="",r;do if(t.type.lastIndexOf("meta.tag",0)===0){r||(r={row:e.getCurrentTokenRow(),column:e.getCurrentTokenColumn()+t.value.length}),n=t.value+n;if(n.indexOf("<")!==-1){var i=this._parseTag(n);return i.end=r,i.start={row:e.getCurrentTokenRow(),column:e.getCurrentTokenColumn()},e.stepBackward(),i}}while(t=e.stepBackward());return null},this._pop=function(e,t){while(e.length){var n=e[e.length-1];if(!t||n.tagName==t.tagName)return e.pop();if(this.voidElements[t.tagName])return;if(this.voidElements[n.tagName]){e.pop();continue}return null}},this.getFoldWidgetRange=function(e,t,n){var r=this._getFirstTagInLine(e,n);if(!r.match)return null;var i=r.closing||r.selfClosing,o=[],a;if(!i){var f=new u(e,n,r.column),l={row:n,column:r.column+r.tagName.length+2};while(a=this._readTagForward(f)){if(a.selfClosing){if(!o.length)return a.start.column+=a.tagName.length+2,a.end.column-=2,s.fromPoints(a.start,a.end);continue}if(a.closing){this._pop(o,a);if(o.length==0)return s.fromPoints(l,a.start)}else o.push(a)}}else{var f=new u(e,n,r.column+r.match.length),c={row:n,column:r.column};while(a=this._readTagBackward(f)){if(a.selfClosing){if(!o.length)return a.start.column+=a.tagName.length+2,a.end.column-=2,s.fromPoints(a.start,a.end);continue}if(!a.closing){this._pop(o,a);if(o.length==0)return a.start.column+=a.tagName.length+2,s.fromPoints(a.start,c)}else o.push(a)}}}}.call(a.prototype)}),ace.define("ace/mode/rhtml_highlight_rules",["require","exports","module","ace/lib/oop","ace/mode/r_highlight_rules","ace/mode/html_highlight_rules","ace/mode/text_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("./r_highlight_rules").RHighlightRules,s=e("./html_highlight_rules").HtmlHighlightRules,o=e("./text_highlight_rules").TextHighlightRules,u=function(){s.call(this),this.$rules.start.unshift({token:"support.function.codebegin",regex:"^<!--\\s*begin.rcode\\s*(?:.*)",next:"r-start"}),this.embedRules(i,"r-",[{token:"support.function.codeend",regex:"^\\s*end.rcode\\s*-->",next:"start"}],["start"]),this.normalizeRules()};r.inherits(u,o),t.RHtmlHighlightRules=u}),ace.define("ace/mode/r_highlight_rules",["require","exports","module","ace/lib/oop","ace/lib/lang","ace/mode/text_highlight_rules","ace/mode/tex_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("../lib/lang"),s=e("./text_highlight_rules").TextHighlightRules,o=e("./tex_highlight_rules").TexHighlightRules,u=function(){var e=i.arrayToMap("function|if|in|break|next|repeat|else|for|return|switch|while|try|tryCatch|stop|warning|require|library|attach|detach|source|setMethod|setGeneric|setGroupGeneric|setClass".split("|")),t=i.arrayToMap("NULL|NA|TRUE|FALSE|T|F|Inf|NaN|NA_integer_|NA_real_|NA_character_|NA_complex_".split("|"));this.$rules={start:[{token:"comment.sectionhead",regex:"#+(?!').*(?:----|====|####)\\s*$"},{token:"comment",regex:"#+'",next:"rd-start"},{token:"comment",regex:"#.*$"},{token:"string",regex:'["]',next:"qqstring"},{token:"string",regex:"[']",next:"qstring"},{token:"constant.numeric",regex:"0[xX][0-9a-fA-F]+[Li]?\\b"},{token:"constant.numeric",regex:"\\d+L\\b"},{token:"constant.numeric",regex:"\\d+(?:\\.\\d*)?(?:[eE][+\\-]?\\d*)?i?\\b"},{token:"constant.numeric",regex:"\\.\\d+(?:[eE][+\\-]?\\d*)?i?\\b"},{token:"constant.language.boolean",regex:"(?:TRUE|FALSE|T|F)\\b"},{token:"identifier",regex:"`.*?`"},{onMatch:function(n){return e[n]?"keyword":t[n]?"constant.language":n=="..."||n.match(/^\.\.\d+$/)?"variable.language":"identifier"},regex:"[a-zA-Z.][a-zA-Z0-9._]*\\b"},{token:"keyword.operator",regex:"%%|>=|<=|==|!=|\\->|<\\-|\\|\\||&&|=|\\+|\\-|\\*|/|\\^|>|<|!|&|\\||~|\\$|:"},{token:"keyword.operator",regex:"%.*?%"},{token:"paren.keyword.operator",regex:"[[({]"},{token:"paren.keyword.operator",regex:"[\\])}]"},{token:"text",regex:"\\s+"}],qqstring:[{token:"string",regex:'(?:(?:\\\\.)|(?:[^"\\\\]))*?"',next:"start"},{token:"string",regex:".+"}],qstring:[{token:"string",regex:"(?:(?:\\\\.)|(?:[^'\\\\]))*?'",next:"start"},{token:"string",regex:".+"}]};var n=(new o("comment")).getRules();for(var r=0;r<n.start.length;r++)n.start[r].token+=".virtual-comment";this.addRules(n,"rd-"),this.$rules["rd-start"].unshift({token:"text",regex:"^",next:"start"}),this.$rules["rd-start"].unshift({token:"keyword",regex:"@(?!@)[^ ]*"}),this.$rules["rd-start"].unshift({token:"comment",regex:"@@"}),this.$rules["rd-start"].push({token:"comment",regex:"[^%\\\\[({\\])}]+"})};r.inherits(u,s),t.RHighlightRules=u}),ace.define("ace/mode/tex_highlight_rules",["require","exports","module","ace/lib/oop","ace/lib/lang","ace/mode/text_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("../lib/lang"),s=e("./text_highlight_rules").TextHighlightRules,o=function(e){e||(e="text"),this.$rules={start:[{token:"comment",regex:"%.*$"},{token:e,regex:"\\\\[$&%#\\{\\}]"},{token:"keyword",regex:"\\\\(?:documentclass|usepackage|newcounter|setcounter|addtocounter|value|arabic|stepcounter|newenvironment|renewenvironment|ref|vref|eqref|pageref|label|cite[a-zA-Z]*|tag|begin|end|bibitem)\\b",next:"nospell"},{token:"keyword",regex:"\\\\(?:[a-zA-z0-9]+|[^a-zA-z0-9])"},{token:"paren.keyword.operator",regex:"[[({]"},{token:"paren.keyword.operator",regex:"[\\])}]"},{token:e,regex:"\\s+"}],nospell:[{token:"comment",regex:"%.*$",next:"start"},{token:"nospell."+e,regex:"\\\\[$&%#\\{\\}]"},{token:"keyword",regex:"\\\\(?:documentclass|usepackage|newcounter|setcounter|addtocounter|value|arabic|stepcounter|newenvironment|renewenvironment|ref|vref|eqref|pageref|label|cite[a-zA-Z]*|tag|begin|end|bibitem)\\b"},{token:"keyword",regex:"\\\\(?:[a-zA-z0-9]+|[^a-zA-z0-9])",next:"start"},{token:"paren.keyword.operator",regex:"[[({]"},{token:"paren.keyword.operator",regex:"[\\])]"},{token:"paren.keyword.operator",regex:"}",next:"start"},{token:"nospell."+e,regex:"\\s+"},{token:"nospell."+e,regex:"\\w+"}]}};r.inherits(o,s),t.TexHighlightRules=o})


--------------------------------------------------------------------------------
/inst/www/src-min-noconflict/theme-monokai.js:
--------------------------------------------------------------------------------
1 | ace.define("ace/theme/monokai",["require","exports","module","ace/lib/dom"],function(e,t,n){t.isDark=!0,t.cssClass="ace-monokai",t.cssText=".ace-monokai .ace_gutter {background: #2F3129;color: #8F908A}.ace-monokai .ace_print-margin {width: 1px;background: #555651}.ace-monokai {background-color: #272822;color: #F8F8F2}.ace-monokai .ace_cursor {border-left: 2px solid #F8F8F0}.ace-monokai .ace_overwrite-cursors .ace_cursor {border-left: 0px;border-bottom: 1px solid #F8F8F0}.ace-monokai .ace_marker-layer .ace_selection {background: #49483E}.ace-monokai.ace_multiselect .ace_selection.ace_start {box-shadow: 0 0 3px 0px #272822;border-radius: 2px}.ace-monokai .ace_marker-layer .ace_step {background: rgb(102, 82, 0)}.ace-monokai .ace_marker-layer .ace_bracket {margin: -1px 0 0 -1px;border: 1px solid #49483E}.ace-monokai .ace_marker-layer .ace_active-line {background: #202020}.ace-monokai .ace_gutter-active-line {background-color: #272727}.ace-monokai .ace_marker-layer .ace_selected-word {border: 1px solid #49483E}.ace-monokai .ace_invisible {color: #52524d}.ace-monokai .ace_entity.ace_name.ace_tag,.ace-monokai .ace_keyword,.ace-monokai .ace_meta.ace_tag,.ace-monokai .ace_storage {color: #F92672}.ace-monokai .ace_punctuation,.ace-monokai .ace_punctuation.ace_tag {color: #fff}.ace-monokai .ace_constant.ace_character,.ace-monokai .ace_constant.ace_language,.ace-monokai .ace_constant.ace_numeric,.ace-monokai .ace_constant.ace_other {color: #AE81FF}.ace-monokai .ace_invalid {color: #F8F8F0;background-color: #F92672}.ace-monokai .ace_invalid.ace_deprecated {color: #F8F8F0;background-color: #AE81FF}.ace-monokai .ace_support.ace_constant,.ace-monokai .ace_support.ace_function {color: #66D9EF}.ace-monokai .ace_fold {background-color: #A6E22E;border-color: #F8F8F2}.ace-monokai .ace_storage.ace_type,.ace-monokai .ace_support.ace_class,.ace-monokai .ace_support.ace_type {font-style: italic;color: #66D9EF}.ace-monokai .ace_entity.ace_name.ace_function,.ace-monokai .ace_entity.ace_other,.ace-monokai .ace_entity.ace_other.ace_attribute-name,.ace-monokai .ace_variable {color: #A6E22E}.ace-monokai .ace_variable.ace_parameter {font-style: italic;color: #FD971F}.ace-monokai .ace_string {color: #E6DB74}.ace-monokai .ace_comment {color: #75715E}.ace-monokai .ace_indent-guide {background: url(data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAACCAYAAACZgbYnAAAAEklEQVQImWPQ0FD0ZXBzd/wPAAjVAoxeSgNeAAAAAElFTkSuQmCC) right repeat-y;}";var r=e("../lib/dom");r.importCssString(t.cssText,t.cssClass)})


--------------------------------------------------------------------------------
/inst/www/underscore-min.js:
--------------------------------------------------------------------------------
1 | //     Underscore.js 1.5.1
2 | //     http://underscorejs.org
3 | //     (c) 2009-2013 Jeremy Ashkenas, DocumentCloud and Investigative Reporters & Editors
4 | //     Underscore may be freely distributed under the MIT license.
5 | !function(){var n=this,t=n._,r={},e=Array.prototype,u=Object.prototype,i=Function.prototype,a=e.push,o=e.slice,c=e.concat,l=u.toString,f=u.hasOwnProperty,s=e.forEach,p=e.map,v=e.reduce,h=e.reduceRight,d=e.filter,g=e.every,m=e.some,y=e.indexOf,b=e.lastIndexOf,x=Array.isArray,_=Object.keys,w=i.bind,j=function(n){return n instanceof j?n:this instanceof j?(this._wrapped=n,void 0):new j(n)};"undefined"!=typeof exports?("undefined"!=typeof module&&module.exports&&(exports=module.exports=j),exports._=j):n._=j,j.VERSION="1.5.1";var A=j.each=j.forEach=function(n,t,e){if(null!=n)if(s&&n.forEach===s)n.forEach(t,e);else if(n.length===+n.length){for(var u=0,i=n.length;i>u;u++)if(t.call(e,n[u],u,n)===r)return}else for(var a in n)if(j.has(n,a)&&t.call(e,n[a],a,n)===r)return};j.map=j.collect=function(n,t,r){var e=[];return null==n?e:p&&n.map===p?n.map(t,r):(A(n,function(n,u,i){e.push(t.call(r,n,u,i))}),e)};var E="Reduce of empty array with no initial value";j.reduce=j.foldl=j.inject=function(n,t,r,e){var u=arguments.length>2;if(null==n&&(n=[]),v&&n.reduce===v)return e&&(t=j.bind(t,e)),u?n.reduce(t,r):n.reduce(t);if(A(n,function(n,i,a){u?r=t.call(e,r,n,i,a):(r=n,u=!0)}),!u)throw new TypeError(E);return r},j.reduceRight=j.foldr=function(n,t,r,e){var u=arguments.length>2;if(null==n&&(n=[]),h&&n.reduceRight===h)return e&&(t=j.bind(t,e)),u?n.reduceRight(t,r):n.reduceRight(t);var i=n.length;if(i!==+i){var a=j.keys(n);i=a.length}if(A(n,function(o,c,l){c=a?a[--i]:--i,u?r=t.call(e,r,n[c],c,l):(r=n[c],u=!0)}),!u)throw new TypeError(E);return r},j.find=j.detect=function(n,t,r){var e;return O(n,function(n,u,i){return t.call(r,n,u,i)?(e=n,!0):void 0}),e},j.filter=j.select=function(n,t,r){var e=[];return null==n?e:d&&n.filter===d?n.filter(t,r):(A(n,function(n,u,i){t.call(r,n,u,i)&&e.push(n)}),e)},j.reject=function(n,t,r){return j.filter(n,function(n,e,u){return!t.call(r,n,e,u)},r)},j.every=j.all=function(n,t,e){t||(t=j.identity);var u=!0;return null==n?u:g&&n.every===g?n.every(t,e):(A(n,function(n,i,a){return(u=u&&t.call(e,n,i,a))?void 0:r}),!!u)};var O=j.some=j.any=function(n,t,e){t||(t=j.identity);var u=!1;return null==n?u:m&&n.some===m?n.some(t,e):(A(n,function(n,i,a){return u||(u=t.call(e,n,i,a))?r:void 0}),!!u)};j.contains=j.include=function(n,t){return null==n?!1:y&&n.indexOf===y?n.indexOf(t)!=-1:O(n,function(n){return n===t})},j.invoke=function(n,t){var r=o.call(arguments,2),e=j.isFunction(t);return j.map(n,function(n){return(e?t:n[t]).apply(n,r)})},j.pluck=function(n,t){return j.map(n,function(n){return n[t]})},j.where=function(n,t,r){return j.isEmpty(t)?r?void 0:[]:j[r?"find":"filter"](n,function(n){for(var r in t)if(t[r]!==n[r])return!1;return!0})},j.findWhere=function(n,t){return j.where(n,t,!0)},j.max=function(n,t,r){if(!t&&j.isArray(n)&&n[0]===+n[0]&&n.length<65535)return Math.max.apply(Math,n);if(!t&&j.isEmpty(n))return-1/0;var e={computed:-1/0,value:-1/0};return A(n,function(n,u,i){var a=t?t.call(r,n,u,i):n;a>e.computed&&(e={value:n,computed:a})}),e.value},j.min=function(n,t,r){if(!t&&j.isArray(n)&&n[0]===+n[0]&&n.length<65535)return Math.min.apply(Math,n);if(!t&&j.isEmpty(n))return 1/0;var e={computed:1/0,value:1/0};return A(n,function(n,u,i){var a=t?t.call(r,n,u,i):n;a<e.computed&&(e={value:n,computed:a})}),e.value},j.shuffle=function(n){var t,r=0,e=[];return A(n,function(n){t=j.random(r++),e[r-1]=e[t],e[t]=n}),e};var F=function(n){return j.isFunction(n)?n:function(t){return t[n]}};j.sortBy=function(n,t,r){var e=F(t);return j.pluck(j.map(n,function(n,t,u){return{value:n,index:t,criteria:e.call(r,n,t,u)}}).sort(function(n,t){var r=n.criteria,e=t.criteria;if(r!==e){if(r>e||r===void 0)return 1;if(e>r||e===void 0)return-1}return n.index<t.index?-1:1}),"value")};var k=function(n,t,r,e){var u={},i=F(null==t?j.identity:t);return A(n,function(t,a){var o=i.call(r,t,a,n);e(u,o,t)}),u};j.groupBy=function(n,t,r){return k(n,t,r,function(n,t,r){(j.has(n,t)?n[t]:n[t]=[]).push(r)})},j.countBy=function(n,t,r){return k(n,t,r,function(n,t){j.has(n,t)||(n[t]=0),n[t]++})},j.sortedIndex=function(n,t,r,e){r=null==r?j.identity:F(r);for(var u=r.call(e,t),i=0,a=n.length;a>i;){var o=i+a>>>1;r.call(e,n[o])<u?i=o+1:a=o}return i},j.toArray=function(n){return n?j.isArray(n)?o.call(n):n.length===+n.length?j.map(n,j.identity):j.values(n):[]},j.size=function(n){return null==n?0:n.length===+n.length?n.length:j.keys(n).length},j.first=j.head=j.take=function(n,t,r){return null==n?void 0:null==t||r?n[0]:o.call(n,0,t)},j.initial=function(n,t,r){return o.call(n,0,n.length-(null==t||r?1:t))},j.last=function(n,t,r){return null==n?void 0:null==t||r?n[n.length-1]:o.call(n,Math.max(n.length-t,0))},j.rest=j.tail=j.drop=function(n,t,r){return o.call(n,null==t||r?1:t)},j.compact=function(n){return j.filter(n,j.identity)};var R=function(n,t,r){return t&&j.every(n,j.isArray)?c.apply(r,n):(A(n,function(n){j.isArray(n)||j.isArguments(n)?t?a.apply(r,n):R(n,t,r):r.push(n)}),r)};j.flatten=function(n,t){return R(n,t,[])},j.without=function(n){return j.difference(n,o.call(arguments,1))},j.uniq=j.unique=function(n,t,r,e){j.isFunction(t)&&(e=r,r=t,t=!1);var u=r?j.map(n,r,e):n,i=[],a=[];return A(u,function(r,e){(t?e&&a[a.length-1]===r:j.contains(a,r))||(a.push(r),i.push(n[e]))}),i},j.union=function(){return j.uniq(j.flatten(arguments,!0))},j.intersection=function(n){var t=o.call(arguments,1);return j.filter(j.uniq(n),function(n){return j.every(t,function(t){return j.indexOf(t,n)>=0})})},j.difference=function(n){var t=c.apply(e,o.call(arguments,1));return j.filter(n,function(n){return!j.contains(t,n)})},j.zip=function(){for(var n=j.max(j.pluck(arguments,"length").concat(0)),t=new Array(n),r=0;n>r;r++)t[r]=j.pluck(arguments,""+r);return t},j.object=function(n,t){if(null==n)return{};for(var r={},e=0,u=n.length;u>e;e++)t?r[n[e]]=t[e]:r[n[e][0]]=n[e][1];return r},j.indexOf=function(n,t,r){if(null==n)return-1;var e=0,u=n.length;if(r){if("number"!=typeof r)return e=j.sortedIndex(n,t),n[e]===t?e:-1;e=0>r?Math.max(0,u+r):r}if(y&&n.indexOf===y)return n.indexOf(t,r);for(;u>e;e++)if(n[e]===t)return e;return-1},j.lastIndexOf=function(n,t,r){if(null==n)return-1;var e=null!=r;if(b&&n.lastIndexOf===b)return e?n.lastIndexOf(t,r):n.lastIndexOf(t);for(var u=e?r:n.length;u--;)if(n[u]===t)return u;return-1},j.range=function(n,t,r){arguments.length<=1&&(t=n||0,n=0),r=arguments[2]||1;for(var e=Math.max(Math.ceil((t-n)/r),0),u=0,i=new Array(e);e>u;)i[u++]=n,n+=r;return i};var M=function(){};j.bind=function(n,t){var r,e;if(w&&n.bind===w)return w.apply(n,o.call(arguments,1));if(!j.isFunction(n))throw new TypeError;return r=o.call(arguments,2),e=function(){if(!(this instanceof e))return n.apply(t,r.concat(o.call(arguments)));M.prototype=n.prototype;var u=new M;M.prototype=null;var i=n.apply(u,r.concat(o.call(arguments)));return Object(i)===i?i:u}},j.partial=function(n){var t=o.call(arguments,1);return function(){return n.apply(this,t.concat(o.call(arguments)))}},j.bindAll=function(n){var t=o.call(arguments,1);if(0===t.length)throw new Error("bindAll must be passed function names");return A(t,function(t){n[t]=j.bind(n[t],n)}),n},j.memoize=function(n,t){var r={};return t||(t=j.identity),function(){var e=t.apply(this,arguments);return j.has(r,e)?r[e]:r[e]=n.apply(this,arguments)}},j.delay=function(n,t){var r=o.call(arguments,2);return setTimeout(function(){return n.apply(null,r)},t)},j.defer=function(n){return j.delay.apply(j,[n,1].concat(o.call(arguments,1)))},j.throttle=function(n,t,r){var e,u,i,a=null,o=0;r||(r={});var c=function(){o=r.leading===!1?0:new Date,a=null,i=n.apply(e,u)};return function(){var l=new Date;o||r.leading!==!1||(o=l);var f=t-(l-o);return e=this,u=arguments,0>=f?(clearTimeout(a),a=null,o=l,i=n.apply(e,u)):a||r.trailing===!1||(a=setTimeout(c,f)),i}},j.debounce=function(n,t,r){var e,u=null;return function(){var i=this,a=arguments,o=function(){u=null,r||(e=n.apply(i,a))},c=r&&!u;return clearTimeout(u),u=setTimeout(o,t),c&&(e=n.apply(i,a)),e}},j.once=function(n){var t,r=!1;return function(){return r?t:(r=!0,t=n.apply(this,arguments),n=null,t)}},j.wrap=function(n,t){return function(){var r=[n];return a.apply(r,arguments),t.apply(this,r)}},j.compose=function(){var n=arguments;return function(){for(var t=arguments,r=n.length-1;r>=0;r--)t=[n[r].apply(this,t)];return t[0]}},j.after=function(n,t){return function(){return--n<1?t.apply(this,arguments):void 0}},j.keys=_||function(n){if(n!==Object(n))throw new TypeError("Invalid object");var t=[];for(var r in n)j.has(n,r)&&t.push(r);return t},j.values=function(n){var t=[];for(var r in n)j.has(n,r)&&t.push(n[r]);return t},j.pairs=function(n){var t=[];for(var r in n)j.has(n,r)&&t.push([r,n[r]]);return t},j.invert=function(n){var t={};for(var r in n)j.has(n,r)&&(t[n[r]]=r);return t},j.functions=j.methods=function(n){var t=[];for(var r in n)j.isFunction(n[r])&&t.push(r);return t.sort()},j.extend=function(n){return A(o.call(arguments,1),function(t){if(t)for(var r in t)n[r]=t[r]}),n},j.pick=function(n){var t={},r=c.apply(e,o.call(arguments,1));return A(r,function(r){r in n&&(t[r]=n[r])}),t},j.omit=function(n){var t={},r=c.apply(e,o.call(arguments,1));for(var u in n)j.contains(r,u)||(t[u]=n[u]);return t},j.defaults=function(n){return A(o.call(arguments,1),function(t){if(t)for(var r in t)n[r]===void 0&&(n[r]=t[r])}),n},j.clone=function(n){return j.isObject(n)?j.isArray(n)?n.slice():j.extend({},n):n},j.tap=function(n,t){return t(n),n};var S=function(n,t,r,e){if(n===t)return 0!==n||1/n==1/t;if(null==n||null==t)return n===t;n instanceof j&&(n=n._wrapped),t instanceof j&&(t=t._wrapped);var u=l.call(n);if(u!=l.call(t))return!1;switch(u){case"[object String]":return n==String(t);case"[object Number]":return n!=+n?t!=+t:0==n?1/n==1/t:n==+t;case"[object Date]":case"[object Boolean]":return+n==+t;case"[object RegExp]":return n.source==t.source&&n.global==t.global&&n.multiline==t.multiline&&n.ignoreCase==t.ignoreCase}if("object"!=typeof n||"object"!=typeof t)return!1;for(var i=r.length;i--;)if(r[i]==n)return e[i]==t;var a=n.constructor,o=t.constructor;if(a!==o&&!(j.isFunction(a)&&a instanceof a&&j.isFunction(o)&&o instanceof o))return!1;r.push(n),e.push(t);var c=0,f=!0;if("[object Array]"==u){if(c=n.length,f=c==t.length)for(;c--&&(f=S(n[c],t[c],r,e)););}else{for(var s in n)if(j.has(n,s)&&(c++,!(f=j.has(t,s)&&S(n[s],t[s],r,e))))break;if(f){for(s in t)if(j.has(t,s)&&!c--)break;f=!c}}return r.pop(),e.pop(),f};j.isEqual=function(n,t){return S(n,t,[],[])},j.isEmpty=function(n){if(null==n)return!0;if(j.isArray(n)||j.isString(n))return 0===n.length;for(var t in n)if(j.has(n,t))return!1;return!0},j.isElement=function(n){return!(!n||1!==n.nodeType)},j.isArray=x||function(n){return"[object Array]"==l.call(n)},j.isObject=function(n){return n===Object(n)},A(["Arguments","Function","String","Number","Date","RegExp"],function(n){j["is"+n]=function(t){return l.call(t)=="[object "+n+"]"}}),j.isArguments(arguments)||(j.isArguments=function(n){return!(!n||!j.has(n,"callee"))}),"function"!=typeof/./&&(j.isFunction=function(n){return"function"==typeof n}),j.isFinite=function(n){return isFinite(n)&&!isNaN(parseFloat(n))},j.isNaN=function(n){return j.isNumber(n)&&n!=+n},j.isBoolean=function(n){return n===!0||n===!1||"[object Boolean]"==l.call(n)},j.isNull=function(n){return null===n},j.isUndefined=function(n){return n===void 0},j.has=function(n,t){return f.call(n,t)},j.noConflict=function(){return n._=t,this},j.identity=function(n){return n},j.times=function(n,t,r){for(var e=Array(Math.max(0,n)),u=0;n>u;u++)e[u]=t.call(r,u);return e},j.random=function(n,t){return null==t&&(t=n,n=0),n+Math.floor(Math.random()*(t-n+1))};var I={escape:{"&":"&amp;","<":"&lt;",">":"&gt;",'"':"&quot;","'":"&#x27;","/":"&#x2F;"}};I.unescape=j.invert(I.escape);var T={escape:new RegExp("["+j.keys(I.escape).join("")+"]","g"),unescape:new RegExp("("+j.keys(I.unescape).join("|")+")","g")};j.each(["escape","unescape"],function(n){j[n]=function(t){return null==t?"":(""+t).replace(T[n],function(t){return I[n][t]})}}),j.result=function(n,t){if(null==n)return void 0;var r=n[t];return j.isFunction(r)?r.call(n):r},j.mixin=function(n){A(j.functions(n),function(t){var r=j[t]=n[t];j.prototype[t]=function(){var n=[this._wrapped];return a.apply(n,arguments),z.call(this,r.apply(j,n))}})};var N=0;j.uniqueId=function(n){var t=++N+"";return n?n+t:t},j.templateSettings={evaluate:/<%([\s\S]+?)%>/g,interpolate:/<%=([\s\S]+?)%>/g,escape:/<%-([\s\S]+?)%>/g};var q=/(.)^/,B={"'":"'","\\":"\\","\r":"r","\n":"n","	":"t","\u2028":"u2028","\u2029":"u2029"},D=/\\|'|\r|\n|\t|\u2028|\u2029/g;j.template=function(n,t,r){var e;r=j.defaults({},r,j.templateSettings);var u=new RegExp([(r.escape||q).source,(r.interpolate||q).source,(r.evaluate||q).source].join("|")+"|$","g"),i=0,a="__p+='";n.replace(u,function(t,r,e,u,o){return a+=n.slice(i,o).replace(D,function(n){return"\\"+B[n]}),r&&(a+="'+\n((__t=("+r+"))==null?'':_.escape(__t))+\n'"),e&&(a+="'+\n((__t=("+e+"))==null?'':__t)+\n'"),u&&(a+="';\n"+u+"\n__p+='"),i=o+t.length,t}),a+="';\n",r.variable||(a="with(obj||{}){\n"+a+"}\n"),a="var __t,__p='',__j=Array.prototype.join,"+"print=function(){__p+=__j.call(arguments,'');};\n"+a+"return __p;\n";try{e=new Function(r.variable||"obj","_",a)}catch(o){throw o.source=a,o}if(t)return e(t,j);var c=function(n){return e.call(this,n,j)};return c.source="function("+(r.variable||"obj")+"){\n"+a+"}",c},j.chain=function(n){return j(n).chain()};var z=function(n){return this._chain?j(n).chain():n};j.mixin(j),A(["pop","push","reverse","shift","sort","splice","unshift"],function(n){var t=e[n];j.prototype[n]=function(){var r=this._wrapped;return t.apply(r,arguments),"shift"!=n&&"splice"!=n||0!==r.length||delete r[0],z.call(this,r)}}),A(["concat","join","slice"],function(n){var t=e[n];j.prototype[n]=function(){return z.call(this,t.apply(this._wrapped,arguments))}}),j.extend(j.prototype,{chain:function(){return this._chain=!0,this},value:function(){return this._wrapped}})}.call(this);
6 | //# sourceMappingURL=underscore-min.map


--------------------------------------------------------------------------------
/man/author.Rd:
--------------------------------------------------------------------------------
 1 | \name{author}
 2 | \alias{author}
 3 | \title{Author a slide deck}
 4 | \usage{
 5 |   author(deckdir, use_git = TRUE, open_rmd = TRUE,
 6 |     scaffold = system.file("skeleton", package = "slidify"))
 7 | }
 8 | \arguments{
 9 |   \item{deckdir}{path to new slide directory}
10 | 
11 |   \item{use_git}{whether to initialize directory as git
12 |   repo}
13 | 
14 |   \item{open_rmd}{whether to open the rmd file created}
15 | 
16 |   \item{scaffold}{path to directory containing scaffold for
17 |   deck}
18 | }
19 | \description{
20 |   This function creates a slide directory, initializes it
21 |   as a git repo and opens index.Rmd for users to edit.
22 | }
23 | 
24 | 


--------------------------------------------------------------------------------
/man/publish.Rd:
--------------------------------------------------------------------------------
 1 | \name{publish}
 2 | \alias{publish}
 3 | \title{Publish slide deck}
 4 | \usage{
 5 |   publish(..., host = "github")
 6 | }
 7 | \arguments{
 8 |   \item{host}{where to publish presentation, Github, RPubs
 9 |   or Dropbox}
10 | 
11 |   \item{...}{parameters to be passed to
12 |   \code{\link{publish_github}}, \code{\link{publish_rpubs}}
13 |   or \code{\link{publish_dropbox}}}
14 | }
15 | \description{
16 |   This function makes it easy to publish your presentation.
17 |   Currently supported hosts include Github, RPubs and
18 |   Dropbox.
19 | }
20 | \seealso{
21 |   Other publish: \code{\link{publish_dropbox}},
22 |   \code{\link{publish_github}}
23 | }
24 | 
25 | 


--------------------------------------------------------------------------------
/man/publish_dropbox.Rd:
--------------------------------------------------------------------------------
 1 | \name{publish_dropbox}
 2 | \alias{publish_dropbox}
 3 | \title{Publish slide deck to Dropbox}
 4 | \usage{
 5 |   publish_dropbox(dirname)
 6 | }
 7 | \arguments{
 8 |   \item{dirname}{name of directory to publish to; defaults
 9 |   to slide directory}
10 | }
11 | \description{
12 |   Publish slide deck to Dropbox
13 | }
14 | \seealso{
15 |   Other publish: \code{\link{publish}},
16 |   \code{\link{publish_github}}
17 | }
18 | 
19 | 


--------------------------------------------------------------------------------
/man/publish_github.Rd:
--------------------------------------------------------------------------------
 1 | \name{publish_github}
 2 | \alias{publish_github}
 3 | \title{Publish slide deck to Github}
 4 | \usage{
 5 |   publish_github(repo, username = getOption("github.user"))
 6 | }
 7 | \arguments{
 8 |   \item{repo}{github reponame}
 9 | 
10 |   \item{username}{github username}
11 | }
12 | \description{
13 |   You will need \code{git} installed on your computer and a
14 |   \code{github} account. In addition, you will \code{SSH}
15 |   access to \code{github}. See
16 |   \url{https://help.github.com/articles/generating-ssh-keys}
17 |   on how to set up \code{SSH} access
18 | }
19 | \details{
20 |   Login with your github account and create a new
21 |   repository
22 |   \url{https://help.github.com/articles/creating-a-new-repository}.
23 |   Note that Github will prompt you to add a README file,
24 |   but just use the defaults so that your repo is empty. You
25 |   will need to have \code{git} installed on your computer
26 |   and be able to push to \code{github} using SSH
27 | }
28 | \seealso{
29 |   Other publish: \code{\link{publish}},
30 |   \code{\link{publish_dropbox}}
31 | }
32 | 
33 | 


--------------------------------------------------------------------------------
/man/publish_rpubs.Rd:
--------------------------------------------------------------------------------
 1 | \name{publish_rpubs}
 2 | \alias{publish_rpubs}
 3 | \title{Publish slide deck to rPubs}
 4 | \usage{
 5 |   publish_rpubs(title, html_file = "index.html")
 6 | }
 7 | \arguments{
 8 |   \item{title}{title of the presentation}
 9 | 
10 |   \item{html_file}{path to html file to publish; defaults
11 |   to index.html}
12 | }
13 | \description{
14 |   Publish slide deck to rPubs
15 | }
16 | 
17 | 


--------------------------------------------------------------------------------
/man/render_page.Rd:
--------------------------------------------------------------------------------
 1 | \name{render_page}
 2 | \alias{render_page}
 3 | \title{Render page}
 4 | \usage{
 5 |   render_page(page, payload, return_page = FALSE,
 6 |     save_payload = FALSE)
 7 | }
 8 | \arguments{
 9 |   \item{page}{list containing the parsed page}
10 | 
11 |   \item{payload}{list containing site and pages}
12 | }
13 | \description{
14 |   Render page
15 | }
16 | 
17 | 


--------------------------------------------------------------------------------
/man/runDeck.Rd:
--------------------------------------------------------------------------------
 1 | \name{runDeck}
 2 | \alias{runDeck}
 3 | \title{Run a slide Deck}
 4 | \usage{
 5 |   runDeck(deckDir = ".",
 6 |     appDir = file.path(deckDir, "apps"), shiny = TRUE)
 7 | }
 8 | \description{
 9 |   Run a slide Deck
10 | }
11 | 
12 | 


--------------------------------------------------------------------------------
/man/slidify-package.Rd:
--------------------------------------------------------------------------------
 1 | \docType{package}
 2 | \name{slidify-package}
 3 | \alias{slidify-package}
 4 | \title{Create stunning presentations from R Markdown}
 5 | \description{
 6 |   Slidify is an R package to create, customize and publish
 7 |   HTML5 slide decks from R Markdown. See the package
 8 |   website in the references for more information and
 9 |   examples.
10 | }
11 | \author{
12 |   Ramnath Vaidyanathan <\url{http://www.slidify.org}>
13 | }
14 | \references{
15 |   Full documentation and demos:
16 |   \url{http://www.slidify.org}; FAQ's:
17 |   \url{https://github.com/ramnathv/slidify/blob/master/FAQ.md}
18 | }
19 | \seealso{
20 |   The core function in this package: \code{\link{slidify}}
21 | }
22 | 
23 | 


--------------------------------------------------------------------------------
/man/slidify.Rd:
--------------------------------------------------------------------------------
 1 | \name{slidify}
 2 | \alias{slidify}
 3 | \title{Convert an Rmd document into HTML5}
 4 | \usage{
 5 |   slidify(inputFile, knit_deck = TRUE, return_page = FALSE,
 6 |     save_payload = FALSE)
 7 | }
 8 | \arguments{
 9 |   \item{inputFile}{path to the Rmd file to slidify}
10 | 
11 |   \item{knit_deck}{whether the file needs to be run through
12 |   knit}
13 | 
14 |   \item{return_page}{should the function return the
15 |   payload}
16 | 
17 |   \item{save_payload}{should the payload be saved to the
18 |   slide directory}
19 | }
20 | \description{
21 |   Convert an Rmd document into HTML5
22 | }
23 | 
24 | 


--------------------------------------------------------------------------------
/man/slidifyDefaults.Rd:
--------------------------------------------------------------------------------
 1 | \name{slidifyDefaults}
 2 | \alias{slidifyDefaults}
 3 | \title{Default configuration}
 4 | \usage{
 5 |   slidifyDefaults()
 6 | }
 7 | \description{
 8 |   Default configuration
 9 | }
10 | 
11 | 


--------------------------------------------------------------------------------
/slidify.Rproj:
--------------------------------------------------------------------------------
 1 | Version: 1.0
 2 | 
 3 | RestoreWorkspace: Default
 4 | SaveWorkspace: Default
 5 | AlwaysSaveHistory: Default
 6 | 
 7 | EnableCodeIndexing: Yes
 8 | UseSpacesForTab: Yes
 9 | NumSpacesForTab: 2
10 | Encoding: UTF-8
11 | 
12 | RnwWeave: knitr
13 | LaTeX: pdfLaTeX
14 | 
15 | BuildType: Package
16 | PackageInstallArgs: --no-multiarch
17 | PackageCheckArgs: --as-cran --no-manual --no-vignettes
18 | 


--------------------------------------------------------------------------------
/tests/test-all.R:
--------------------------------------------------------------------------------
1 | library(testthat)
2 | library(slidify)
3 | 
4 | test_package('slidify')


--------------------------------------------------------------------------------