Skip to content

Instantly share code, notes, and snippets.

@nfedyashev
nfedyashev / install-rabbitmq.sh
Created January 5, 2020 04:15 — forked from yetanotherchris/install-rabbitmq.sh
RabbitMQ on Docker with admin UI
# AWS specific install of Docker
sudo yum update -y
sudo yum install -y docker
sudo service docker start
sudo usermod -a -G docker ec2-user
# exit the SSH session, login again
# Docker
docker run -d --hostname my-rabbit --name some-rabbit -p 4369:4369 -p 5671:5671 -p 5672:5672 -p 15672:15672 rabbitmq
cd ~/.emacs.d
git pull origin develop
M-x configuration-layer/update-packages
@nfedyashev
nfedyashev / cider.clj
Created April 10, 2020 17:50
show images in cider repl - taken from https://www.youtube.com/watch?v=1YQCLGfrev0
(defn image [path]
(let [stream (:body (client/get (str image-base-url path) {:as :stream}))]
(io/copy stream (io/file "temp.jpg"))
(URI. (str "file://" (System/getProperty "user.dir") "/temp.jpg"))))
;;cider-repl-toggle-content-types
#http://boot-clj.com
#Sat May 02 07:11:53 EEST 2020
BOOT_VERSION=2.8.3
BOOT_CLOJURE_VERSION=1.8.0
BOOT_CLOJURE_NAME=org.clojure/clojure
lein run
lein shadow watch app
(defun show-msg-after-timer ()
"Show a message after timer expires. Based on run-at-time and can understand time like it can."
(interactive)
(let* ((msg-to-show (read-string "Enter msg to show: "))
(time-duration (read-string "Time? ")))
(message time-duration)
(run-at-time time-duration nil #'message-box msg-to-show)))
@nfedyashev
nfedyashev / rspec-xvfb-phantomjs.sh
Created May 23, 2020 10:35
Run poltergeist/phantomjs webdriver via ssh
xvfb-run --auto-servernum rspec ./spec/features/sign_up_spec.rb:7
@nfedyashev
nfedyashev / cider.el
Created May 23, 2020 16:32
Start Cider from Emacs
;;Start Cider from Emacs:
;;Put this in your Emacs config file:
(setq cider-cljs-lein-repl
"(do (require 'figwheel-sidecar.repl-api)
(figwheel-sidecar.repl-api/start-figwheel!)
(figwheel-sidecar.repl-api/cljs-repl))")
;;Navigate to a clojurescript file and start a figwheel REPL with cider-jack-in-clojurescript or (C-c M-J)
(use 'clojure.repl)
M-x M-x cider-clojuredocs
(ns lispcast-clojure-core-async.core
(:require
[lispcast-clojure-core-async.exercises :as ex]
[lispcast-clojure-core-async.factory :refer :all]
[clojure.core.async :as async
:refer [>! <! alts! chan put! go]]))
(defn build-car [n]
(println n "Starting build")
(let [body (loop []