This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/bash | |
# | |
# DESCRIPTION: | |
# | |
# Set the bash prompt according to: | |
# * the branch/status of the current git repository | |
# * the branch of the current subversion repository | |
# * the return value of the previous command | |
# | |
# USAGE: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/python3 | |
import argparse | |
import os | |
from os import environ | |
from subprocess import check_call | |
# Store the current directory | |
owd = os.getcwd() | |
# Setup the supported command-line arguments |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns org.ozias.git | |
(:require [me.raynes.conch :refer (with-programs)])) | |
(def ^:private git-porcelain | |
["add" "am" "bisect" "branch" "bundle" "checkout" "cherry-pick" "citool" | |
"clean" "clone" "commit" "describe" "diff" "fetch" "format-patch" | |
"gc" "grep" "gui" "init" "log" "merge" "mv" "notes" "pull" "push" | |
"rebase" "reset" "revert" "rm" "shortlog" "show" "stash" "status" | |
"submodule" "tag"]) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// Original.... | |
def max(xs: List[Int]): Int = { | |
def findMax(curr: Int, l: List[Int]): Int = { | |
if (l.isEmpty) | |
curr | |
else if (l.head > curr) | |
findMax(l.head, l.tail) | |
else | |
findMax(curr, l.tail) | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defn- target | |
"generate a target from a user and host string. | |
If user and host are nil, evaluates to localhost. | |
If host is nil, evaluates to user@localhost. | |
If user is nil, evaluates to host. | |
Otherwise evaluates to user@host." | |
[user host] | |
(let [host (if (string? host) host "localhost") | |
user (if (string? user) (str user "@") "")] | |
(str user host))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns wgetjava.handler | |
(:require [clojure.java.io :as io] | |
[clojure.string :as str] | |
[org.ozias.cljlibs.shell.shell :refer :all] | |
[org.ozias.cljlibs.utils.core :refer :all]) | |
(:import (clojure.lang PersistentArrayMap PersistentVector))) | |
(def ^{:private true :doc "cookies temp file path"} | |
cookies-path (to-path (tmpdir) "cookies.txt")) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defn- quarter-subround | |
"### quarter-subround | |
A quarter subround. | |
Represents a vector of two values: | |
[w = (x + y mod 2<sup>32</sup>) | |
((w ^ z) <<< shift)]" | |
{:added "0.2.0"} | |
[[x y z] shift] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(def post-cfg {:ctx "/account POST" | |
:dba :start | |
:reqfn (as-admin (account-post)) | |
:expected-status 200 | |
:expected-message :localized/account-created}) | |
(defmacro edn-req [{:keys [ctx dba reqfn sep | |
expected-status expected-message] | |
:or {sep true}}] | |
`(context |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(comment | |
; Pull the datomic api into this namespace | |
(require '[datomic.api :as d]) | |
(require '[glitter.entity.util :refer :all]) | |
; Setup a connection to the transactor | |
(def conn (d/connect uri)) | |
; Get a database value | |
(def db-now (d/db conn)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
function fuck | |
echo sudo $history[1] | |
eval command sudo $history[1] | |
end |
OlderNewer