| [ | |
| // Disable crazy VSCode default bindings | |
| { | |
| "key": "ctrl+shift+w", | |
| "command": "-workbench.action.closeWindow" | |
| }, | |
| { | |
| "key": "ctrl+w", | |
| "command": "-workbench.action.closeActiveEditor" | |
| }, |
| (ns mything.components.codemirror | |
| (:require [reagent.core :as reagent] | |
| [re-frame.core :as rf] | |
| [reagent.interop :refer [$]] | |
| cljsjs.codemirror | |
| cljsjs.codemirror.mode.clojure | |
| cljsjs.codemirror.mode.sql)) | |
| (def codemirror-defaults {:lineNumbers true | |
| :lineWrapping true |
| (ns tbd.step | |
| (:require | |
| [clojure.spec.alpha :as s])) | |
| (s/def ::binding-kvp (s/cat :lhs symbol? :rhs any?)) | |
| (s/def ::bindings | |
| (s/and | |
| vector? | |
| (s/conformer vec vec) |
| module Foo | |
| open System | |
| open Microsoft.SqlServer.TransactSql | |
| type [<RequireQualifiedAccess>] TSqlFragment = | |
| | AdHocDataSource of InitString:StringLiteral option * ProviderName:StringLiteral option | |
| | AddFileSpec of File:ScalarExpression option * FileName:Literal option | |
| | AlterAvailabilityGroupAction of AlterAvailabilityGroupAction | |
| | AlterAvailabilityGroupFailoverOption of OptionKind:ScriptDom.FailoverActionOptionKind * Value:Literal option | |
| | AlterDatabaseTermination of ImmediateRollback:bool * NoWait:bool * RollbackAfter:Literal option |
Welcome to my blog post for #FsAdvent 2016.
If you're using a relational database, as your application grows in size, at some point you may find yourself looking for an SQL parser. This can give you lots of leverage, for example allowing you to:
| (ns front.utilities.i18n-impl | |
| (:require [front.i18n])) | |
| (defn build-domain-index [text-vec] | |
| (let [by-msgid (atom (transient {})) | |
| by-msg (atom (transient {}))] | |
| (doseq [{:keys [s_message s_message_id] :as text} text-vec] | |
| (when-not (clojure.string/blank? s_message_id) | |
| (swap! by-msgid assoc! s_message_id text)) | |
| (when-not (clojure.string/blank? s_message) |
| (ns foo | |
| (:require [re-frame.core :as rf] | |
| [re-frame.db] | |
| [reagent.ratom :as ra :refer [reaction]]) | |
| (:import goog.async.Debouncer)) | |
| (defn reg-sub-delayed | |
| "Similar to reg-sub, except the computation is debounced. | |
| It can be called like this: |
| declare @input nvarchar(max) = | |
| N'1 1 E | |
| RFRFRFRF | |
| 1 1 E | |
| 3 2 N | |
| FRRFLLFFRRFLL | |
| 3 3 N | |
| 0 3 W |
| (ns front.tasks.watch-css | |
| (:require [clojure.java.io] | |
| [clojure.java.shell :refer [sh]] | |
| [juxt.dirwatch :refer [watch-dir]] | |
| [clojure.core.async :as a] | |
| [clojure.string :as str] | |
| #_[shadow.cljs.devtools.api :refer [send-to-runtimes!]])) | |
| (defn debounce-chan | |
| "Taken from https://gist.github.com/xfsnowind/e15cc2e6da74df81f129" |
| (require '[reagent.ratom :as ra]) | |
| (require '[reagent.core :as reagent]) | |
| (require '[re-frame.core :as rf]) | |
| (defn non-stuttering-text-control [props] | |
| (let [text-value-atom (atom "") | |
| outside-change-counter (ra/atom 0) | |
| to-dispose (atom [])] | |
| (fn [props] |