127 lines
7.1 KiB
HTML
Generated
127 lines
7.1 KiB
HTML
Generated
<!DOCTYPE html>
|
|
<html xmlns="http://www.w3.org/1999/xhtml" lang="" xml:lang="">
|
|
<head>
|
|
<meta charset="utf-8" />
|
|
<meta name="generator" content="pandoc" />
|
|
<meta name="viewport" content="width=device-width, initial-scale=1.0, user-scalable=yes" />
|
|
<title>Scripts em OCaml</title>
|
|
<style>
|
|
code{white-space: pre-wrap;}
|
|
span.smallcaps{font-variant: small-caps;}
|
|
span.underline{text-decoration: underline;}
|
|
div.column{display: inline-block; vertical-align: top; width: 50%;}
|
|
div.hanging-indent{margin-left: 1.5em; text-indent: -1.5em;}
|
|
ul.task-list{list-style: none;}
|
|
pre > code.sourceCode { white-space: pre; position: relative; }
|
|
pre > code.sourceCode > span { display: inline-block; line-height: 1.25; }
|
|
pre > code.sourceCode > span:empty { height: 1.2em; }
|
|
.sourceCode { overflow: visible; }
|
|
code.sourceCode > span { color: inherit; text-decoration: inherit; }
|
|
div.sourceCode { margin: 1em 0; }
|
|
pre.sourceCode { margin: 0; }
|
|
@media screen {
|
|
div.sourceCode { overflow: auto; }
|
|
}
|
|
@media print {
|
|
pre > code.sourceCode { white-space: pre-wrap; }
|
|
pre > code.sourceCode > span { text-indent: -5em; padding-left: 5em; }
|
|
}
|
|
pre.numberSource code
|
|
{ counter-reset: source-line 0; }
|
|
pre.numberSource code > span
|
|
{ position: relative; left: -4em; counter-increment: source-line; }
|
|
pre.numberSource code > span > a:first-child::before
|
|
{ content: counter(source-line);
|
|
position: relative; left: -1em; text-align: right; vertical-align: baseline;
|
|
border: none; display: inline-block;
|
|
-webkit-touch-callout: none; -webkit-user-select: none;
|
|
-khtml-user-select: none; -moz-user-select: none;
|
|
-ms-user-select: none; user-select: none;
|
|
padding: 0 4px; width: 4em;
|
|
}
|
|
pre.numberSource { margin-left: 3em; padding-left: 4px; }
|
|
div.sourceCode
|
|
{ color: #cccccc; background-color: #303030; }
|
|
@media screen {
|
|
pre > code.sourceCode > span > a:first-child::before { text-decoration: underline; }
|
|
}
|
|
code span.al { color: #ffcfaf; } /* Alert */
|
|
code span.an { color: #7f9f7f; font-weight: bold; } /* Annotation */
|
|
code span.at { } /* Attribute */
|
|
code span.bn { color: #dca3a3; } /* BaseN */
|
|
code span.bu { } /* BuiltIn */
|
|
code span.cf { color: #f0dfaf; } /* ControlFlow */
|
|
code span.ch { color: #dca3a3; } /* Char */
|
|
code span.cn { color: #dca3a3; font-weight: bold; } /* Constant */
|
|
code span.co { color: #7f9f7f; } /* Comment */
|
|
code span.cv { color: #7f9f7f; font-weight: bold; } /* CommentVar */
|
|
code span.do { color: #7f9f7f; } /* Documentation */
|
|
code span.dt { color: #dfdfbf; } /* DataType */
|
|
code span.dv { color: #dcdccc; } /* DecVal */
|
|
code span.er { color: #c3bf9f; } /* Error */
|
|
code span.ex { } /* Extension */
|
|
code span.fl { color: #c0bed1; } /* Float */
|
|
code span.fu { color: #efef8f; } /* Function */
|
|
code span.im { } /* Import */
|
|
code span.in { color: #7f9f7f; font-weight: bold; } /* Information */
|
|
code span.kw { color: #f0dfaf; } /* Keyword */
|
|
code span.op { color: #f0efd0; } /* Operator */
|
|
code span.ot { color: #efef8f; } /* Other */
|
|
code span.pp { color: #ffcfaf; font-weight: bold; } /* Preprocessor */
|
|
code span.sc { color: #dca3a3; } /* SpecialChar */
|
|
code span.ss { color: #cc9393; } /* SpecialString */
|
|
code span.st { color: #cc9393; } /* String */
|
|
code span.va { } /* Variable */
|
|
code span.vs { color: #cc9393; } /* VerbatimString */
|
|
code span.wa { color: #7f9f7f; font-weight: bold; } /* Warning */
|
|
.display.math{display: block; text-align: center; margin: 0.5rem auto;}
|
|
</style>
|
|
<link rel="stylesheet" href="../../assets/style.css" />
|
|
</head>
|
|
<body>
|
|
<header id="title-block-header">
|
|
<h1 class="title">Scripts em OCaml</h1>
|
|
</header>
|
|
<p>Este blog gera suas postagens com o Pandoc, mas quem faz o trabalho
|
|
lógico de identificar os arquivos e montar os comandos é um pequeno
|
|
script em OCaml.</p>
|
|
<p>Descobri essa linguagem quando comecei a investigar como poderia
|
|
substituir o Bash como uma linguagem para scripts. Eu acho que o Bash é
|
|
excelente para cumprir essa função, apesar de bastante inseguro e
|
|
propenso a erros. O que me incomodava mesmo era ver que todo aquele
|
|
tempo escrevendo scripts com Bash poderia ser tempo aprendendo uma
|
|
linguagem cujo conhecimento se transferisse para muitas outras
|
|
aplicações.</p>
|
|
<p>O script se resume a:</p>
|
|
<div class="sourceCode" id="cb1"><pre
|
|
class="sourceCode ocaml"><code class="sourceCode ocaml"><span id="cb1-1"><a href="#cb1-1" aria-hidden="true" tabindex="-1"></a><span class="kw">let</span> pandoc_params = </span>
|
|
<span id="cb1-2"><a href="#cb1-2" aria-hidden="true" tabindex="-1"></a> <span class="st">"--css ../../assets/style.css -s --to html5 --metadata pagetitle='basename' "</span></span>
|
|
<span id="cb1-3"><a href="#cb1-3" aria-hidden="true" tabindex="-1"></a></span>
|
|
<span id="cb1-4"><a href="#cb1-4" aria-hidden="true" tabindex="-1"></a><span class="kw">let</span> vert md = <span class="kw">begin</span></span>
|
|
<span id="cb1-5"><a href="#cb1-5" aria-hidden="true" tabindex="-1"></a> <span class="kw">if</span> md <> <span class="st">"gen.ml"</span> && md <> <span class="st">"html"</span> <span class="kw">then</span></span>
|
|
<span id="cb1-6"><a href="#cb1-6" aria-hidden="true" tabindex="-1"></a> <span class="dt">ignore</span>( <span class="dt">Sys</span>.command (</span>
|
|
<span id="cb1-7"><a href="#cb1-7" aria-hidden="true" tabindex="-1"></a> <span class="st">"pandoc "</span> ^ pandoc_params ^ md ^ <span class="st">" -o html/"</span> ^ md ^ <span class="st">".html "</span></span>
|
|
<span id="cb1-8"><a href="#cb1-8" aria-hidden="true" tabindex="-1"></a> ) )</span>
|
|
<span id="cb1-9"><a href="#cb1-9" aria-hidden="true" tabindex="-1"></a><span class="kw">end</span> ;;</span>
|
|
<span id="cb1-10"><a href="#cb1-10" aria-hidden="true" tabindex="-1"></a></span>
|
|
<span id="cb1-11"><a href="#cb1-11" aria-hidden="true" tabindex="-1"></a><span class="kw">let</span> contents = <span class="dt">Array</span>.to_list (<span class="dt">Sys</span>.readdir <span class="st">"."</span>) <span class="kw">in</span></span>
|
|
<span id="cb1-12"><a href="#cb1-12" aria-hidden="true" tabindex="-1"></a><span class="dt">List</span>.map vert contents ;;</span></code></pre></div>
|
|
<p>Primeiro, armazeno em <code>pandoc_params</code> os parâmetros comuns
|
|
que serão passados ao Pandoc para gerar os arquivos HTML a partir dos
|
|
arquivos em Markdown.</p>
|
|
<p>Em seguida, defino a função <code>vert</code>, que, caso o arquivo
|
|
não se chame “gen.ml” (o próprio script) nem “html” (o diretório onde os
|
|
arquivos gerados ficam), o comando do Pandoc é chamado com os nomes dos
|
|
arquivos de entrada e saída.</p>
|
|
<p>Essa função então é aplicada com <code>List.map vert contents</code>
|
|
a cada arquivo do diretório atual.</p>
|
|
<h2 id="referências">Referências</h2>
|
|
<ul>
|
|
<li><a
|
|
href="https://rosettacode.org/wiki/Walk_a_directory/Non-recursively#OCaml">Walk
|
|
a directory/Non-recursively - Rosetta Code</a></li>
|
|
<li><a href="https://jez.io/pandoc-markdown-css-theme/">Pandoc Markdown
|
|
CSS Theme</a></li>
|
|
</ul>
|
|
</body>
|
|
</html>
|