| ;; | |
| ;; Example usages at the bottom of the file | |
| ;; | |
| (defn productions | |
| "Returns a sequence of values by repeatedly calling `produce!` until it | |
| returns `fin`. The sequence can be used lazily/caching or reducible/non-caching. | |
| The arity-2 variant's `produce!` takes no arguments and returns a value | |
| or the terminator. |
| (ns example | |
| (:require [clojure.spec :as spec] | |
| [ring.swagger.swagger2 :as rs] | |
| [schema.core :as s])) | |
| (spec/def ::id string?) | |
| (spec/def ::name string?) | |
| (spec/def ::street string?) | |
| (spec/def ::city #{"tre" "hki"}) |
| (ns user.defn+spec | |
| (:require [clojure.spec :as s])) | |
| (defn non-&-sym? [x] (and (symbol? x) (not= '& x))) | |
| (s/def ::arglist | |
| (s/cat :normal-args (s/* (s/cat :name non-&-sym? | |
| :spec-form (s/? (s/cat :- #{:-} | |
| :spec ::s/any)))) | |
| :varargs (s/? (s/cat :& #{'&} |
| @startuml | |
| ' uncomment the line below if you're using computer with a retina display | |
| ' skinparam dpi 300 | |
| !define Table(name,desc) class name as "desc" << (T,#FFAAAA) >> | |
| ' we use bold for primary key | |
| ' green color for unique | |
| ' and underscore for not_null | |
| !define primary_key(x) <b>x</b> | |
| !define unique(x) <color:green>x</color> | |
| !define not_null(x) <u>x</u> |
| # Build and slim Erlang | |
| # Change the line below if you want to use a different version of Erlang | |
| # (Keep in mind that patches may not apply cleanly) | |
| erlang_version=otp_src_R14B03 | |
| erlang_source_file:=$(PACKAGE_SOURCES)/$(erlang_version)/$(erlang_version).tar.gz | |
| erlang_root=$(GTH_ERLANG_ROOT)/$(erlang_version) | |
| target_prefix=/opt/erlang |
| (ns virgil | |
| (:require | |
| [clojure.java.io :as io] | |
| [clojure.string :as str] | |
| [filevents.core :as fe]) | |
| (:import | |
| [javax.tools | |
| DiagnosticCollector | |
| ForwardingJavaFileManager | |
| JavaCompiler |
| function password_encode(password) | |
| local bcrypt = require 'bcrypt' | |
| return bcrypt.digest(password, 12) | |
| end | |
| function check_password(password, encoded_password) | |
| local bcrypt = require 'bcrypt' | |
| return bcrypt.verify(password, encoded_password) | |
| end |
If you have packaged your application into a release generated with Rebar, you might want to have the following:
HEART is the Heartbeat Monitoring of an Erlang Runtime System. The purpose of the heart port program is to check that the Erlang runtime system it is supervising is still running, so that if the VM crashes or becomes unresponsive, it is restarted.
| (defn as-transducer [f] | |
| "Convert function f into a transducer function. | |
| This is merely a more convenient way to write an efficient reducing-step | |
| function without the transducer signature. | |
| The function should have the signature `(f transformer opaque-collection value)` | |
| and return either `opaque-collection` or the return value of | |
| `(transformer opaque-collection value)` to return new `opaque-collection` | |
| things with `value` \"added\" to it. It can also box its return value with |
| # using such a setup requires `apt-get install lua-nginx-redis` under Ubuntu Trusty | |
| # more info @ http://wiki.nginx.org/HttpLuaModule#access_by_lua | |
| http { | |
| lua_package_path "/etc/nginx/include.d/?.lua;;"; | |
| lua_socket_pool_size 100; | |
| lua_socket_connect_timeout 10ms; | |
| lua_socket_read_timeout 10ms; | |
| server { |
