nathanic

/* Stepper Motor Driver -> Servo Adapter
Interpret direction and step pulses from GRBL or other stepper-driving software
and instead translate it to a PWM signal appropriate for a nice cheap standard
servo.  Ideally we wouldn't use a whole extra arduino for this but GRBL is not
really set up to do this natively and I don't feel like hacking it.  Off-brand
Arduino Nanos are a couple bucks each these days. ¯\_(ツ)_/¯ 
*/
#include <Servo.h>

// CONSTANTS

nathanic

#include <Servo.h>

// CONSTANTS
const byte MAX_POS = 180;
const byte SERVO_PIN = 9;
const byte STEP_PIN = 2;
const byte DIR_PIN = 3;
const byte NEG_LIMIT_PIN = 11;
const byte POS_LIMIT_PIN = 12;

nathanic

(ns lazybot.plugins.logicplayground
  (:refer-clojure :exclude  [==])
  (:use clojure.core.logic)
  (:require clojure.core.logic.fd :as fd)
  )
  
(comment
  (run* [q]
      (fresh [a b c d e f g h i j k l m n o p]

nathanic

(ns example.typetest
  (:use [clojure.core.typed]))
; using [org.clojure/core.typed "0.2.13"]

(def-alias House "a House has some :people in it and maybe a :mortgage."
  (HMap :mandatory {:id     String
                    :people (Coll String)
                    }
        ; comment out this :optional line and it all works
        :optional {:mortgage Number}

nathanic

(defn index-of
  "return the index of the supplied item, or nil"
  [v item]
  (let [len (count v)]
    (loop [i 0]
      (cond
        (<= len i)         nil,
        (= item (get v i)) i,
        :else              (recur (inc i ))))))

nathanic

// show a loading animation while AJAX requests are pending
angular
    .module('loadingOnAJAX', [])
    .config(function($httpProvider) {
        var numLoadings = 0;
        var loadingScreen = $('<div style="position:fixed;top:0;left:0;right:0;bottom:0;z-index:10000;background-color:gray;background-color:rgba(70,70,70,0.2);"><img style="position:absolute;top:50%;left:50%;" alt="" src="data:image/gif;base64,R0lGODlhQgBCAPMAAP///wAAAExMTHp6etzc3KCgoPj4+BwcHMLCwgAAAAAAAAAAAAAAAAAAAAAAAAAAACH/C05FVFNDQVBFMi4wAwEAAAAh/hpDcmVhdGVkIHdpdGggYWpheGxvYWQuaW5mbwAh+QQJCgAAACwAAAAAQgBCAAAE/xDISau9VBzMu/8VcRTWsVXFYYBsS4knZZYH4d6gYdpyLMErnBAwGFg0pF5lcBBYCMEhR3dAoJqVWWZUMRB4Uk5KEAUAlRMqGOCFhjsGjbFnnWgliLukXX5b8jUUTEkSWBNMc3tffVIEA4xyFAgCdRiTlWxfFl6MH0xkITthfF1fayxxTaeDo5oUbW44qaBpCJ0tBrmvprc5GgKnfqWLb7O9xQQIscUamMJpxC4pBYxezxi6w8ESKU3O1y5eyts/Gqrg4cnKx3jmj+gebevsaQXN8HDJyy3J9OCc+AKycCVQWLZfAwqQK5hPXR17v5oMWMhQEYKLFwmaQTDgl5OKHP8cQjlGQCHIKftOqlzJsqVLPwJiNokZ86UkjDg5emxyIJHNnDhtCh1KtGjFkt9WAgxZoGNMny0RFMC4DyJNASZtips6VZkEp1P

nathanic

(ns lazybot.plugins.commandlinefu 
  (:use [lazybot registry]
        [clojure.data.json :only [read-json]]) 
  (:require [clj-http.client :as client])
  (:import org.apache.commons.lang.StringEscapeUtils)
  )

; http://www.commandlinefu.com/site/api

(def CLFU-URL "http://www.commandlinefu.com/commands/random/json")

nathanic

-- | Re-implementing the Maybe monad from memory, to make sure I
-- understand it.
module MyMaybe where

import Prelude hiding (Maybe, Just, Nothing)

data MyMaybe a = MyNothing | MyJust a
    deriving (Eq, Show)

instance Monad MyMaybe where

nathanic

#!/bin/sh

# find and run the latest version of h2 in the local maven repo
H2VERSION=$(ls ~/.m2/repository/com/h2database/h2/ | grep '^[.0-9]*$' | tail -n 1)

if [[ -z "$H2VERSION" ]]; then
    echo "NOPE: I can't find any h2 jars installed in your maven repo."
else
    echo detected H2 version is $H2VERSION.
    java -cp ~/.m2/repository/com/h2database/h2/${H2VERSION}/h2-${H2VERSION}.jar org.h2.tools.Server $@

nathanic

(def input [["a" "apple"] ["a" "amazon"] ["b" "banana"] ["c" "clown"]])

(->> (group-by first input)              ; now we have our keys pointing to lists of every key value pair with that key
  (map (fn [[k v]] [k (map second v)]))  ; for each key value pair, keep only the second parts of the values
  (into {}))                             ; throw it into a hash map

;=> {"a" ("apple" "amazon"), "b" ("banana"), "c" ("clown")}