tobias

Keybase proof

I hereby claim:

• I am tobias on github.
• I am tcrawley (https://keybase.io/tcrawley) on keybase.
• I have a public key ASDupOY7qhHcioTxXIDWId68H5yc3u4hsM_5iR2ILjsYGwo

To claim this, I am signing this object:

tobias

;; org-weekpage.el --- Org-Mode Week Page.
;;
;; Based on https://github.com/almost/org-daypage by Thomas Parslow

;;; License
;;
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

tobias

function setjdk
   if test -n "$JAVA_HOME"
     removeFromPath "$JAVA_HOME/bin"
   end
   set -gx JAVA_HOME (/usr/libexec/java_home -v $argv[1])
   set -gx PATH $JAVA_HOME/bin $PATH  
end

function removeFromPath
  set -l idx 0

tobias

#!/bin/bash

if [ "$1" == "-q" ]; then
    shift
    OUT=/dev/null
else
    OUT=/dev/stdout
fi

find -L . -name "*.jar" -type f | while read i; do

tobias

function setjdk
   if test -n "$JAVA_HOME"
     removeFromPath "$JAVA_HOME/bin"
   end
   set -gx JAVA_HOME (/usr/libexec/java_home -v $argv[1])
   set -gx PATH $JAVA_HOME/bin $PATH  
end

function removeFromPath
  set -l idx 0

tobias

Keybase proof

I hereby claim:

• I am tobias on github.
• I am tcrawley (https://keybase.io/tcrawley) on keybase.
• I have a public key ASDu3mzOo73cjPGSd9K5vTWXoin6GibLf3hdokWBMDajpgo

To claim this, I am signing this object:

tobias

#!/bin/bash

IN="LVDS1"
EXT="HDMI3"

if (xrandr | grep "$EXT disconnected"); then
    xrandr -d :0.0 --output $IN --auto --output $EXT --off 
else
    xrandr -d :0.0 --output $IN --auto --output $EXT --auto --right-of $IN --primary
fi

tobias

(deftask eval
  "eval some stuff"
  [e eval CODE [str] "code snippets to eval"]

  (with-pre-wrap fileset
    (doseq [e eval]
      (clojure.core/eval (read-string e)))
    fileset))

tobias

-*- mode: grep; default-directory: "~/w/immutant/immutant/" -*-
Grep started at Wed Aug 20 14:01:10

git --no-pager grep --no-color -n -e "TODO" -- "*.*"
etc/bin/ci-prep-wildfly.sh:20:# TODO: domain mode
etc/build-helper/src/build_helper/docs.clj:21:    (update-in project [:dependencies] conj '[org.immutant/build-helper "0.1.6"]) ;; TODO: don't hardcode this version?
messaging/src/immutant/messaging.clj:139:   TODO: more docs/examples"
messaging/test/immutant/messaging/pipeline_test.clj:359:    (println "NOTE: pipeline record test disabled out-of-container, as it will fail. TODO: fix it")))
web/test/immutant/web/websocket_test.clj:92:        ;; TODO: bug in undertow! (is (= "/?x=y&j=k" (-> handshake uri str)))
wildfly/src/immutant/wildfly.clj:116:  ;; TODO: figure out where to store/get the web-context

tobias

require 'torquebox-web'
require 'torquebox-messaging'

topic = TorqueBox::Messaging::Topic.new('browser-messages')

TorqueBox::Web::Server.sockjs('/messages').on_connection do |conn|
  listener = topic.listen do |m|
    conn.write(m)
  end