package quill

You can search for identifiers within the package.

in-package search v0.2.0

quill
- Library quill.api
  - Quill_api
- Library quill.editor
  - Quill_editor
    
    Api
    
    Brr_ext
    
    Ev
    
    Type
    
    Data_transfer
    
    Clipboard
    
    Composition
    
    Error
    
    Extendable
    
    Focus
    
    Hash_change
    
    Input
    
    Keyboard
    
    Mouse
    
    Drag
    
    Pointer
    
    Wheel
    
    El
    
    Prop
    
    Style
    
    Navigation_ui
    
    Input
    
    Name
    
    Selection
    
    Range
    
    Window
    
    History
    
    Document
    
    Visibility_state
    
    Dom_utils
    
    Events
    
    Model
    
    Model_dom
    
    Update
    
    View
    
    View_debug
- Library quill.markdown
  - Quill_markdown
- Library quill.server
  - Quill_server
    
    Handler
- Library quill.top
  - Quill_top
- Library quill.top-js
  - Quill_top_js
- Library quill.top-unix
  - Quill_top_unix
- Sources
  - quill.api
    
    quill_api.ml
  - quill.editor
    
    api.ml
    
    brr_ext.ml
    
    dom_utils.ml
    
    events.ml
    
    model.ml
    
    model_dom.ml
    
    quill_editor.ml
    
    update.ml
    
    view.ml
    
    view_debug.ml
  - quill.markdown
    
    quill_markdown.ml
  - quill.server
    
    asset.ml
    
    asset_editor.ml
    
    config.ml
    
    quill_server.ml
    
    quill_server__.ml
    
    template_document.ml
    
    template_index.ml
    
    top.ml
  - quill.top
    
    quill_top.ml
  - quill.top-js
    
    quill_top_js.ml
  - quill.top-unix
    
    Quill_sites.ml
    
    quill_top_unix.ml
    
    quill_top_unix__.ml

Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file `template_index.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#1 "quill/src/server/template_index.eml"
let render ~(files : string list) =
let ___eml_buffer = Buffer.create 4096 in
(Buffer.add_string ___eml_buffer "<!DOCTYPE html>\n<html lang=\"en\">\n\n<head>\n  <meta charset=\"UTF-8\">\n  <meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0\">\n  <title>Quill</title>\n  <link rel=\"stylesheet\" href=\"/asset/styles.css\">\n</head>\n\n<body>\n  <h1>Quill Documents</h1>\n  ");
#14 "quill/src/server/template_index.eml"
     if List.length files = 0 then ( 
(Buffer.add_string ___eml_buffer "\n    <p>No Markdown (.md) files found in this directory.</p>\n  ");
#16 "quill/src/server/template_index.eml"
     ) else ( 
(Buffer.add_string ___eml_buffer "\n    <ul>\n      ");
#18 "quill/src/server/template_index.eml"
         files |> List.iter begin fun filename_md -> 
(Buffer.add_string ___eml_buffer "\n      <li><a href=\"/");
(Printf.bprintf ___eml_buffer "%s" (Dream.html_escape (
#19 "quill/src/server/template_index.eml"
                        filename_md 
)));
(Buffer.add_string ___eml_buffer "\">");
(Printf.bprintf ___eml_buffer "%s" (Dream.html_escape (
#19 "quill/src/server/template_index.eml"
                                            filename_md 
)));
(Buffer.add_string ___eml_buffer "</a></li>\n      ");
#20 "quill/src/server/template_index.eml"
         end; 
(Buffer.add_string ___eml_buffer "\n    </ul>\n  ");
#22 "quill/src/server/template_index.eml"
     ); 
(Buffer.add_string ___eml_buffer "\n</body>\n\n</html>");
(Buffer.contents ___eml_buffer)

package quill

Source file template_index.ml

Source file `template_index.ml`