Skip to content

Instantly share code, notes, and snippets.

View kernelp4nic's full-sized avatar

Sebastián Moreno kernelp4nic

  • Prisma Campaigns
  • Montevideo-Uruguay
View GitHub Profile
@kernelp4nic
kernelp4nic / core.clj
Created December 28, 2015 12:40 — forked from zoldar/core.clj
Exploration of compojure and cemerick/friend with an angle towards integration of cemerick/friend with librarian-clojure.
(ns friendtest.core
(:use midje.sweet
ring.mock.request
compojure.core
friendtest.core
[ring.middleware.session store memory]
[ring.middleware.session.memory :only (memory-store)]
[ring.middleware.session :only (wrap-session)]
[cemerick.friend.util :only (gets)])
(:require [compojure [handler :as handler]]
[
// Move tabs
//
// {"position": "-1"}, {"position": "+1"}
{"keys": ["alt+1"], "command": "move_tab", "args": {"position": "0"}},
{"keys": ["alt+2"], "command": "move_tab", "args": {"position": "1"}},
{"keys": ["alt+3"], "command": "move_tab", "args": {"position": "2"}},
{"keys": ["alt+4"], "command": "move_tab", "args": {"position": "3"}},
{"keys": ["alt+5"], "command": "move_tab", "args": {"position": "4"}},
{"keys": ["alt+6"], "command": "move_tab", "args": {"position": "5"}},
[
// ALT+CLICK -> Go to definition
{
"button": "button1",
"count": 1,
"modifiers": ["alt"],
"press_command": "drag_select",
"command": "goto_definition"
},
@kernelp4nic
kernelp4nic / .ctags
Created July 29, 2015 17:16
ctags for clojure
--langdef=Clojure
--langmap=Clojure:.clj.cljs.cljx
--regex-clojure=/\([ \t]*create-ns[ \t]+([-[:alnum:]*+!_:\/.?]+)/\1/n,namespace/
--regex-clojure=/\([ \t]*def[ \t]+([-[:alnum:]*+!_:\/.?]+)/\1/d,definition/
--regex-clojure=/\([ \t]*defn[ \t]+([-[:alnum:]*+!_:\/.?]+)/\1/f,function/
--regex-clojure=/\([ \t]*defn-[ \t]+([-[:alnum:]*+!_:\/.?]+)/\1/p,private function/
--regex-clojure=/\([ \t]*defmacro[ \t]+([-[:alnum:]*+!_:\/.?]+)/\1/m,macro/
--regex-clojure=/\([ \t]*definline[ \t]+([-[:alnum:]*+!_:\/.?]+)/\1/i,inline/
--regex-clojure=/\([ \t]*defmulti[ \t]+([-[:alnum:]*+!_:\/.?]+)/\1/a,multimethod definition/
--regex-clojure=/\([ \t]*defmethod[ \t]+([-[:alnum:]*+!_:\/.?]+)/\1/b,multimethod instance/
@kernelp4nic
kernelp4nic / user.keymap
Last active August 29, 2015 14:22
lighttable-user-behaviors.clj
;; User behaviors
;; -----------------------------
;; Behaviors are stored as a set of diffs that are merged together
;; to create the final set of functionality that makes up Light Table. You can
;; modify these diffs to either add or subtract functionality.
;;
;; Behaviors are added to tags, objects with those tags then automatically gain
;; whatever logic the behavior imparts. To see a list of user-level behaviors,
;; start typing a word related to the functionality you want in between the square
;; brackets (e.g. "theme").
[
{
"button": "button1",
"count": 1,
"modifiers": ["super"],
"press_command": "drag_select",
"command": "goto_definition"
}
]
/*
* Copyright (C) 2014 Jared Rummler <jared.rummler@gmail.com>
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
@kernelp4nic
kernelp4nic / title-case.clj
Created May 12, 2015 17:29
title case word clojure
(defn- title-case-word [w]
(if (zero? (count w))
w
(str (Character/toTitleCase (first w))
(subs w 1))))
@kernelp4nic
kernelp4nic / http_test.lua
Created July 21, 2014 19:29
luanode http/https connection (luanode http_test.lua secure)
local net = require "luanode.net"
local host = "userstream.twitter.com"
local secure = process.argv[1] == "secure"
if secure then
console.log("Using secure connection (HTTPS)")
local c = net.createConnection(443, host)
c:on("connect", function()