| // Simple wrapper to use bootstrap's grid system to position elements side-by-side | |
| var VerticalFieldsElement = React.createClass({ | |
| render: function() { | |
| return dom.div( | |
| { className: 'clearfix' }, | |
| React.Children.map(this.props.children, function(child) { | |
| if(!child) { | |
| return child; | |
| } |
| (defmulti transmogrify | |
| "Rewrites the last form of a thread-last to use transducer (if possible)." | |
| (fn [f xform src & args] f)) | |
| (defmacro transmogrify->> | |
| "Like ->> but uses transducers" | |
| ([x] x) | |
| ([src & xs] | |
| (let [end (last xs) | |
| xforms (butlast xs) |
| # List of all the valid pdf URLs ever posted to the #Clojure IRC channel. | |
| # | |
| # Many of them are interesting CS papers others are not that useful. What I've done: | |
| # | |
| # 1. crawled an IRC history archive for the channel | |
| # 2. extract pdf list in a file with: grep -riIohE 'https?://[^[:space:]]+pdf' * > pdf-links.txt | |
| # 3. remove dupes: cat pdf-links.txt | sort | uniq > pdf-links-uniq.txt | |
| # 4. filter only HTTP 200: cat pdf-links-uniq.txt | xargs curl -o /dev/null --connect-timeout 2 --silent --head --write-out '%{http_code} %{url_effective}\n' | grep "^200" > valid-pdf-links.txt | |
| # | |
| # Now your choice to download them all or not. If you want, use: cat valid-pdf-links.txt | awk '{print $2}' | xargs wget |
| (doseq [n (all-ns) | |
| [_ v] (ns-map n) | |
| :when (and (var? v) (fn? @v))] | |
| (alter-var-root v (fn [original] | |
| (fn [& args] | |
| (try (apply original args) | |
| (catch Exception _)))))) |
| (defproject parser-vuln-test "1.0" :dependencies [[org.clojure/clojure "1.6.0"]]) |
This simple script will take a picture of a whiteboard and use parts of the ImageMagick library with sane defaults to clean it up tremendously.
The script is here:
#!/bin/bash
convert "$1" -morphology Convolve DoG:15,100,0 -negate -normalize -blur 0x1 -channel RBG -level 60%,91%,0.1 "$2"
When connecting to a remote server via SSH it is often convenient to use SSH agent forwarding so that you don't need a separate keypair on that server for connecting to further servers.
This is enabled by adding the
ForwardAgent yes
option to any of your Host entries in ~/.ssh/config (or alternatively with the -A option). Don't set this option in a wildcard Host * section since any user on the remote server that can bypass file permissions can now als use keys loaded in your SSH agent. So only use this with hosts you trust.
| (defn dopar | |
| "Given a (potentially infinite) sequence `coll`, uses core.async to | |
| run `f` for side effects against each value in the collection. | |
| Performs at most `concur` operations in parallel, and never enqueues | |
| more than `lead` items ahead of the ones being consumed. If any call | |
| to `f` throws an exception, it will be rethrown from this function. | |
| Otherwise, returns nil. Optional timeout value is number of | |
| milliseconds to wait for all operations to complete." | |
| ([coll f concur lead] (dopar coll f concur lead nil)) | |
| ([coll f concur lead timeout-ms] |
| (ns hello-world.core) | |
| (.log js/console "Hello world!") |
| (ns blog.errors.core | |
| (:require-macros | |
| [cljs.core.async.macros :refer [go]] | |
| [blog.utils.macros :refer [<?]]) | |
| (:require | |
| [cljs.core.async :refer [>! <! chan close!]])) | |
| ;; convert Node.js async function into a something | |
| ;; that returns a value or error on a channel | |
| (defn run-task [f & args] |
