View finder-paths.applescript
set paths to {"/Users/darwin/Music", "/Users/darwin/Desktop"}
-- initialize new Finder window
tell application "Finder"
activate
set finderWindow to make new Finder window
set toolbar visible of finderWindow to true
end tell
-- open all paths as new tabs
View lein-dev-browser-tests.txt
> lein dev-browser-tests
22:48:22 fixtures-server | launching fixtures server for development (silent mode) in '/Users/darwin/code/dirac-ws/dirac/test/browser/fixtures/resources' on port 9080
22:48:22 browser | selected browser binary '/Applications/Google Chrome Canary.app/Contents/MacOS/Google Chrome Canary'
22:48:22 browser | waiting for compilation of clojurescript components...
22:48:26 fig-marion | Figwheel: Cutting some fruit, just a sec ...
22:48:26 fig-dirac | Figwheel: Cutting some fruit, just a sec ...
22:48:26 marion-cs | Watching for changes before compiling ClojureScript...
22:48:27 tests | Watching for changes before compiling ClojureScript...
22:48:29 dev-agent | Listening for transport dt_socket at address: 5005
22:48:40 marion-cs | Compiling "test/marion/resources/unpacked/.compiled/content_script/content_script.js" from ("src/empty" "src/settings" "src/shared" "test/marion/src/content_script")...
View lein-dev-dirac-sample.txt
> lein dev-dirac-sample 22:21:59 browser | selected browser binary '/Applications/Google Chrome Canary.app/Contents/MacOS/Google Chrome Canary'
22:21:59 browser | waiting for compilation of clojurescript components...
22:22:01 fig-dirac | Figwheel: Cutting some fruit, just a sec ...
22:22:01 server-sample | Starting HTTP server on port 9977 => http://localhost:9977
22:22:01 fig-sample | Figwheel: Cutting some fruit, just a sec ...
22:22:01 fig-marion | Figwheel: Cutting some fruit, just a sec ...
22:22:02 marion-cs | Watching for changes before compiling ClojureScript...
22:22:11 marion-cs | Compiling "test/marion/resources/unpacked/.compiled/content_script/content_script.js" from ("src/empty" "src/settings" "src/shared" "test/marion/src/content_script")...
22:22:17 fig-sample | Figwheel: Validating the configuration found in project.clj
22:22:17 fig-sample | Figwheel: Config
View dirac-figwheel.diff
diff --git a/project.clj b/project.clj
index 55e473c..991ba3b 100644
--- a/project.clj
+++ b/project.clj
@@ -49,9 +49,7 @@
:source-map-timestamp true
;; To console.log CLJS data-structures make sure you enable devtools in Chrome
;; https://github.com/binaryage/cljs-devtools
- :preloads [devtools.preload dirac.runtime.preload]
- :external-config {:dirac.runtime/config {:agent-host "localhost"
View Dockerfile
FROM steveltn/https-portal
COPY ./fs_overlay /
# official nginx container symlinks both access.log (error.log) to stdout (stderr)
# we don't want to spam our docker logs with busy access logging
# if needed do `docker exec -ti portal tail -f /var/log/nginx/access.log` to check access logs
RUN rm /var/log/nginx/access.log
View ns-hack.clj
(defmacro log* [& args]
`(binding [*ns* ~*ns*]
(clj-log.core/log ~@args)))
View syslog-ng.conf.patch
diff --git a/syslog-ng.conf b/syslog-ng.conf
index 0836d72..b47f605 100644
--- a/syslog-ng.conf
+++ b/syslog-ng.conf
@@ -21,15 +21,35 @@ filter f_turris_iptables {
not match(".*turris[^:]*: .*" value(MESSAGE)) or not level(debug);
};
+filter f_not_cron {
+ not program(".*cron.*");
View interop-example.cljs
(ns cljs.stripe
(:require-macros [cljs.core.async.macros :refer [go]])
(:require [cljs.core.async :refer [<! chan put!]]
[oops.core :refer [gcall!]]))
; Stripe.piiData.createToken({
; personal_id_number: $('.personal_id_number').val()
; }, stripeResponseHandler);
; a simple wrapper
View 01_does_not_work.cljs
; we cannot use cljs.core/merge because that would confuse advanced mode compilation
; if you look at cljs.core/merge you will see that it relies on protocol checks and this is too dymamic to be elided
(defn simple-merge [m1 m2]
(loop [m m1
ks (keys m2)]
(if (empty? ks)
m
(recur (assoc m (first ks) (get m2 (first ks))) (rest ks)))))
(def default-config defaults/prefs)
View gist:10e6748467e0a13a8f7573c1ae99e4a6
stdout TypeError: this.$late1$.$select_STAR_$ is not a function
command: (select-subreps suggest-box-item-rep? result28455)
form:
((find-suggest-box-element)
(build-rep)
(select-subreps suggest-box-item-rep?)
(map print-suggest-box-item)
(print-list))
error:
TypeError: this.$late1$.$select_STAR_$ is not a function