Packages

plottah

0.2.0
0.2.0 0.1.1 0.1.0

An Erlang/LFE gnuplot process server

HexDocs

Current section

Files

Jump to
Readme
3 Versions
3 Dependencies
Dependants
Files
Activity
plottah src plottah-cmd.lfe
Raw

src/plottah-cmd.lfe 

(defmodule plottah-cmd

  (export

   (join 2)))



(defun dbl-quote () 34)

(defun sngl-quote () 39)



(defun join

  (('title args)

   (if (not (io_lib:printable_unicode_list args))

     (join 'title (string:join args "\\n"))

     (join "title" (list (dbl-quote) args (dbl-quote)))))

  ((cmd args) (when (is_atom cmd))

   (join (atom_to_list cmd) args))

  ((`#(,opt offset) args)

   (join (++ (atom_to_list opt) " offset") args))

  ((`#(,prefix label) args)

   (join (++ (atom_to_list prefix) "label") (list (sngl-quote) args (sngl-quote))))

  ((cmd args)

   (let ((args (lists:flatten args)))

     (if (io_lib:printable_unicode_list args)

       (++ cmd " " args)

       (++ cmd " " (string:join args " "))))))