| var API_KEY = "<your api key>" | |
| function NUGPT(instructions, prompt, model) { | |
| var payload = { | |
| 'model': (model || "gpt-3.5-turbo-0125"), | |
| 'messages': [ | |
| { | |
| 'role': 'system', | |
| 'content': instructions |
A less-known feature of Vim is support for Scheme, for scripting or otherwise. At the time of the original integration, the MZScheme package (a subset of PLTScheme) was used. Eventually, this became Racket. However, in Vim configuration, help, etc, mzscheme is referred to.
The following steps were performed on Ubuntu 14 Server, in order to compile Vim with Scheme support.
To determine whether Vim has been compiled with support for Scheme:
| (def jp-fsm {:init :uninitialized | |
| :entity-type :journalpost | |
| :state-field :journalpost/status | |
| :states {:uninitialized {:transitions [{:event :oprettet | |
| :target :udkast}]} | |
| :udkast {:entities {:journalnote '...} | |
| :transitions [{:event :lock | |
| :target :laast} | |
| {:event :update}]} | |
| :laast {:transitions [{:event :open |
| (ns foo.saml | |
| (:require | |
| [clojure.spec :as s] | |
| [clojure.string :as string] | |
| [clojure.xml :as xml]) | |
| (:import | |
| (java.io ByteArrayInputStream))) | |
| (s/def :sso/Binding #{"urn:oasis:names:tc:SAML:2.0:bindings:HTTP-POST"}) | |
| (s/def :sso/attrs (s/keys :req-un [:sso/Binding ::Location])) |
| (use '[specviz.graphviz]) | |
| (def states {:no-warn {:missed-first-name :first-name-required | |
| :missed-last-name :last-name-required | |
| :missed-dob-day :dob-required | |
| :missed-dob-month :dob-required | |
| :missed-dob-year :dob-required | |
| :missed-ssn-area :ssn-required | |
| :missed-ssn-group :ssn-required | |
| :missed-ssn-serial :ssn-required |
| <appender name="ALL_LOG_FILE" class="ch.qos.logback.core.rolling.RollingFileAppender"> | |
| <!-- Default encoder is ch.qos.logback.classic.encoder.PatternLayoutEncoder --> | |
| <encoder> | |
| <pattern>%date{HH:mm:ss.SSS} %-5level %logger{25}: %msg %X thread=%thread%n</pattern> | |
| </encoder> | |
| <!-- Default location of log file is log/all.log --> | |
| <file>log/all.log</file> |
| (ns user) | |
| (require '[twou.centralpark.model.publish :as publish]) | |
| (require '[clojure.string :as string]) | |
| (require '[datomic.api :as d]) | |
| ;; Get all attributes | |
| (def all-attrs (d/q '[:find [?name ...] | |
| :where [?eid :db/ident ?name]] | |
| (dev/db))) |
| (ns vatican.schema | |
| "Extract the schema from a Datomic database." | |
| (:require [datomic.api :as d])) | |
| (defn gen-mem-db-uri | |
| "Generate a unique uri for use with an in-memory Datomic database." | |
| [] | |
| (str "datomic:mem://" (d/squuid))) | |
| ;; TODO: parameterize the partition |
| (defn generate-order | |
| [db taskdefs ref-kw] | |
| (->> taskdefs | |
| (map :db/id) | |
| (workflow/sort-taskdefs db) | |
| (map (fn [id] (d/entity db id))) | |
| (map :task.def/id) | |
| (map (fn [id] [ref-kw id])))) | |
| (defn generate-order* |