Skip to content

Instantly share code, notes, and snippets.

View nfedyashev's full-sized avatar

Nikita Fedyashev nfedyashev

View GitHub Profile
;; -*- mode: emacs-lisp -*-
;; This file is loaded by Spacemacs at startup.
;; It must be stored in your home directory.
(defun dotspacemacs/layers ()
"Configuration Layers declaration.
You should not put any user code in this function besides modifying the variable
values."
(setq-default
(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 []
(use 'clojure.repl)
M-x M-x cider-clojuredocs
@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)
@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
(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)))
lein run
lein shadow watch app
#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
@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
cd ~/.emacs.d
git pull origin develop
M-x configuration-layer/update-packages