Skip to content

Instantly share code, notes, and snippets.

View murtaza52's full-sized avatar

Murtaza Husain murtaza52

11 followers · 0 following
  • Kampala, Uganda
View GitHub Profile
@murtaza52
murtaza52 / keybase.md
Created November 13, 2023 18:40

Keybase proof

I hereby claim:

  • I am murtaza52 on github.
  • I am rampurawala52 (https://keybase.io/rampurawala52) on keybase.
  • I have a public key ASBPHO6yv-6-IwCcSivSUY8hvFOWm6zixgRU-8AJ3tdGwQo

To claim this, I am signing this object:

@murtaza52
murtaza52 / benchmarking transducers & reducers
Created August 27, 2019 05:03
(ns sample.core
(:require [clojure.core.reducers :as r]
[criterium.core :as cc :refer [bench quick-bench]]))
;; core/map without transducers
(quick-bench (doall (->> [1 2 3 4]
(map inc)
(map inc)
(map inc))))
@murtaza52
murtaza52 / gist:5794159
Created June 17, 2013 01:32
using watch-seq from clj-io2
(use 'nio2.watch)
(use 'nio2.io)
(doseq [ev (watch-seq (path "/" "home" "murtaza" "tmp") :create :modify :delete)]
(println [(ev :path) (ev :kind)]))
@murtaza52
murtaza52 / config.clj
Created August 30, 2012 13:27
Pallet config file
(defpallet
;; you can specify global data in the :environment key here
;;
:environment {
:algorithms
{:lift-fn pallet.core/parallel-lift
:converge-fn
pallet.core/parallel-adjust-node-counts}}
:admin-user
{:username "ubuntu"
@murtaza52
murtaza52 / actions.clj
Created August 30, 2012 13:24
Pallet complete example
(ns actions.clj
(:require [pallet.core]
[pallet.compute]
[pallet.action.package]))
(def hardware-types {:micro "t1.micro" :small "m1.small" :cpu-medium "c1.medium" :medium "m1.medium" :large "m1.large"})
(def ubuntu-app-server
(pallet.core/node-spec
:image {:os-family :ubuntu}
@murtaza52
murtaza52 / shoreleave_pubsub.cljs
Created June 29, 2012 07:10
Pubsub example from shoreleave
(ns pm.client.models
(:require [pm.client.utils :as utils]
[shoreleave.pubsubs.simple :as pbus]
[shoreleave.client.pubsubs.protocols :as pubsub]))
(def proj (atom {:hello 2}))
(def bus (pbus/bus))
(pubsub/publishize proj bus)
(pubsub/subscribe bus proj #(js/console.log (pr-str %)))
@murtaza52
murtaza52 / html form
Created June 22, 2012 17:54
Enfocus Error
<form class="form-horizontal">
<fieldset>
<legend>Student Registeration Form</legend>
<div class="control-group">
<label class="control-label" id="first">First Name</label>
<div class="controls">
<input type="text" class="input-xlarge"/>
</div>
</div>
@murtaza52
murtaza52 / transform.cljs
Created June 22, 2012 17:54
Enfocus Error
(ns faiz.client.transforms
(:require [enfocus.core :as ef]
[faiz.client.common :as cm])
(:use-macros [enfocus.macros :only [append defsnippet content at set-attr html-content]]
[fetch.macros :only [letrem]])
(:require-macros [fetch.macros :as fm])
(:use [faiz.client.utils :only [log]]))
(defn doc [] js/document)
@murtaza52
murtaza52 / reg.cljs
Created June 22, 2012 17:53
Enfocus Error
(ns faiz.client.reg
(:require [crate.core :as crate]
[cljsbinding :as binding]
[faiz.client.transforms :as tr]
[faiz.client.controls :as ctrls]
[enfocus.core :as ef])
(:use-macros [crate.def-macros :only [defhtml]]
[enfocus.macros :only [append defsnippet content at set-attr html-content deftemplate]]))
(defn render []
@murtaza52
murtaza52 / gist:2883735
Created June 6, 2012 18:26
enlive to enfocus (html)
<html>
<head></head>
<body>
<top-navbar>
<div class="navbar navbar-fixed-top">
<div class="navbar-inner">
<div class="container">
<a class="btn btn-navbar" data-toggle="collapse" data-target=".nav-collapse">
<span class="icon-bar"></span>
<span class="icon-bar"></span>