Skip to content

Instantly share code, notes, and snippets.

View prestancedesign's full-sized avatar

Michael Salihi prestancedesign

View GitHub Profile
@prestancedesign
prestancedesign / README.md
Created January 13, 2023 11:30
HTMX + Clojure

Run the app:

clj -M -m htmx
// Afficher les boites de liens à gauche
settings.hintAlign = "left";
// Se déplacer avec <C-j> et <C-k> dans Omnibox
cmap('<Ctrl-j>', '<Tab>');
cmap('<Ctrl-k>', '<Shift-Tab>');
// Différentes règles afin de retrouver quelques comportements de base de Vimium
map('u', 'e');
mapkey('p', "Open the clipboard's URL in the current tab", function() {
@prestancedesign
prestancedesign / web.clj
Last active August 24, 2023 15:45
Ring session authentication with Reitit
(ns authexample.web
(:gen-class)
(:require [buddy.auth :refer [authenticated? throw-unauthorized]]
[buddy.auth.backends.session :refer [session-backend]]
[buddy.auth.middleware :refer [wrap-authentication wrap-authorization]]
[clojure.java.io :as io]
[compojure.response :refer [render]]
[reitit.ring :as ring]
[ring.adapter.jetty :as jetty]
[ring.middleware.params :refer [wrap-params]]
@prestancedesign
prestancedesign / digitalocean-ping.clj
Last active December 8, 2020 14:33
DigitalOcean datacenter ping with Babashka (Clojure)
#!/usr/bin/env bb
(require '[babashka.curl :as curl]
'[clojure.java.shell :as shell]
'[clojure.string :as str])
(def url "http://speedtest-ams2.digitalocean.com/")
(def get-endpoints
(let [{:keys [body]} (curl/get url)]
@prestancedesign
prestancedesign / re-frame-click-counter
Last active December 8, 2020 14:01 — forked from saskali/re-frame-click-counter
Re-frame simple click counter
(ns simple.core
(:require [reagent.dom :as reagent]
[re-frame.core :as rf]))
;; -- Domino 1 - Event Dispatch -----------------------------------------------
(defn dispatch-click
[]
(rf/dispatch [:click-count])) ;; send event `:click-count`
@prestancedesign
prestancedesign / reagent-color-sorting
Last active December 8, 2020 14:02 — forked from saskali/reagent-color-sorting
Re-frame color example
(ns color-sorting.core
(:require [reagent.core :as reagent]
[reagent.dom :as dom]))
(def colors ["blue" "yellow" "green" "purple" "red"])
(def color-row (reagent/atom ["blue" "yellow" "green"]))
(def sorted-color-row (reagent.ratom/reaction (sort @color-row)))
(defn square [color]
(ns simple.core
(:require [reagent.dom :as dom]
[re-frame.core :as rf]
[clojure.string :as str]))
;; A detailed walk-through of this source code is provied in the docs:
;; https://github.com/Day8/re-frame/blob/master/docs/CodeWalkthrough.md
;; -- Domino 1 - Event Dispatch -----------------------------------------------
@prestancedesign
prestancedesign / re-playground-readme.cljs
Last active December 8, 2020 14:04 — forked from daiyi/re-playground-readme.cljs
Re-frame playground
(ns instructions.core
(:require [reagent.dom :as dom]
[re-frame.core :as re-frame]))
(defn info []
[:div {:style {:max-width 500}}
[:h1 "re-playground"]
[:p "code is livereloaded.
this right-hand panel has the id 'app'.
to render reagent into this panel, target this element with "
@prestancedesign
prestancedesign / README.md
Last active December 8, 2020 14:06
A TODO cli with Clojure (Babashka)
@prestancedesign
prestancedesign / bitbucket-pipelines.yml
Created July 10, 2018 08:41 — forked from exileed/bitbucket-pipelines.yml
Bitbucket pipelines test + Ansible deploy script
image: php:7.1-fpm
pipelines:
default:
- step:
caches:
- composer
script:
# Update dependencies
- apt-get update
# Install dependencies