Skip to content

Instantly share code, notes, and snippets.

3254,3261c3254,3259
< require Term::ReadKey;
< Term::ReadKey::ReadMode('noecho');
< my $password = '';
< while (defined(my $key = Term::ReadKey::ReadKey(0))) {
< last if $key =~ /[\012\015]/; # \n\r
< $password .= $key;
< }
< Term::ReadKey::ReadMode('restore');
---
(ns konserver.swank-server
(:use [swank.swank]))
(swank.swank/ignore-protocol-version "2009-03-09")
(start-server ".slime-socket" :port 4005 :encoding "utf-8" :dont-close true)
@tendant
tendant / anything-git-project.el
Created August 14, 2011 23:56 — forked from yaotti/anything-git-project.el
List up all files under the control of git and do something (open/view/delete/etc) with them
(defun anything-c-sources-git-project-for (pwd)
(loop for elt in
'(("Modified files (%s)" . "--modified")
("Untracked files (%s)" . "--others --exclude-standard")
("All controlled files in this project (%s)" . ""))
collect
`((name . ,(format (car elt) pwd))
(init . (lambda ()
(unless (and ,(string= (cdr elt) "") ;update candidate buffer every time except for that of all project files
(anything-candidate-buffer))
@tendant
tendant / stateMachine.clj
Created August 15, 2011 22:48 — forked from jjcomer/stateMachine.clj
Clojure State Machine
(ns stateMachine)
(defn parse-integer [str]
(try (Integer/parseInt str)
(catch NumberFormatException nfe 0)))
(defn displayMenu
"This function displays the menu and gets the user's input"
[]
(println "Displaying the menu")
/*
* HumanTime.java
*
* Created on 06.10.2008
*
* Copyright (c) 2008 Johann Burkard (<mailto:[email protected]>) <http://eaio.com>
*
* Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated
* documentation files (the "Software"), to deal in the Software without restriction, including without limitation the
* rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to
(ns enhanced-record
(:require [clojure.contrib.str-utils2 :as str2])
(:use [clojure.string :only (join)]
[clojure.contrib.pprint :only
(*simple-dispatch* use-method pprint-map pprint)]))
;;;; enhanced records
;; internal helper for maps
@tendant
tendant / gist:4205595
Created December 4, 2012 16:08
vboxwebsrv log
11:29:27.883901 SQPmp Request 21 on socket 9 queued for processing (1 items on Q)
11:29:27.883962 SQW01 Processing connection from IP=192.168.0.116 socket=9 (0 out of 1 threads idle)
11:29:27.885306 SQW01 -- entering __vbox__IWebsessionManager_USCORElogon
11:29:27.886028 main Pumping COM event queue
11:29:27.886077 SQW01 * ManagedObjectRef: MOR created for ISession*=0x7FA704024420 (IUnknown*=0x7FA704024420; COM refcount now 3/4), new ID is 6C; now 1 objects total
11:29:27.886106 SQW01 * authenticate: created session object with comptr 0x7FA704024420, MOR = 35310ac80d60d8fd-000000000000006c
11:29:27.886313 SQW01 * ManagedObjectRef: MOR created for IVirtualBox*=0x1A4F100 (IUnknown*=0x7FA7040266D0; COM refcount now 3/4), new ID is 6D; now 2 objects total
11:29:27.886341 SQW01 VirtualBox object ref is 35310ac80d60d8fd-000000000000006d
11:29:27.886358 SQW01 -- leaving __vbox__IWebsessionManager_USCORElogon, rc: 0x0
11:29:27.894763 SQW01 -- entering __vbox__IWebsessionManager
01:25:11.710087 SQPmp Request 10 on socket 10 queued for processing (1 items on Q)
01:25:11.710148 SQW01 Processing connection from IP=192.168.0.116 socket=10 (0 out of 1 threads idle)
01:25:11.719888 SQW01 -- entering __vbox__IWebsessionManager_USCORElogon
01:25:11.721677 main Pumping COM event queue
01:25:11.721872 SQW01 * ManagedObjectRef: MOR created for ISession*=0x7FD134001810 (IUnknown*=0x7FD134001810; COM refcount now 3/4), new ID is 4A; now 1 objects total
01:25:11.721916 SQW01 * authenticate: created session object with comptr 0x7FD134001810, MOR = 4cfaf9209c106abb-000000000000004a
01:25:11.722086 SQW01 * ManagedObjectRef: MOR created for IVirtualBox*=0x1A7A100 (IUnknown*=0x7FD134001A00; COM refcount now 3/4), new ID is 4B; now 2 objects total
01:25:11.722117 SQW01 VirtualBox object ref is 4cfaf9209c106abb-000000000000004b
01:25:11.722144 SQW01 -- leaving __vbox__IWebsessionManager_USCORElogon, rc: 0x0
01:25:11.728729 SQW01 -- entering __vbox__IWebsessionManag
2012-12-04 22:47:46,895 INFO v.manager Instantiating VM with image: {:os-type-id "Ubuntu_64", :os-family :ubuntu, :os-version "12.04", :uuid "/home/ubuntu/Workspace/VMs/images/ubuntu1204_64.vdi", :os-64-bit "true"} hardware: {:cpu-count 1, :network [{:host-interface "eth0", :attachment-type :bridged}], :storage [{:devices [nil nil {:device-type :dvd} nil], :name "IDE Controller", :bus :ide} {:devices [nil nil {:location "/home/ubuntu/Workspace/VMs/images/ubuntu1204_64.vdi", :device-type :hard-disk, :attachment-type :multi-attach} nil], :name "SATA Controller", :bus :sata}], :vram-size 16, :boot-mount-point ["SATA Controller" 0], :accelerate-3d-enabled? false, :memory-size 512, :description "Ubuntu 12.04 64bit by vmfest-example."}
2012-12-04 22:47:46,898 WARN v.manager The path for saving nodes /home/ubuntu/Workspace/VMs/nodes does not exist. Trying to create it.
2012-12-04 22:47:46,899 INFO v.manager Created path for saving nodes: /home/ubuntu/Workspace/VMs/nodes
2012-12-04 22:47:47,053 INFO v.v.virtualbox c
VirtualBox VM 4.2.4 r81684 linux.amd64 (Oct 26 2012 18:44:53) release log
00:00:00.364298 Log opened 2012-12-05T07:27:09.464159000Z
00:00:00.364304 OS Product: Linux
00:00:00.364306 OS Release: 3.2.0-29-generic
00:00:00.364308 OS Version: #46-Ubuntu SMP Fri Jul 27 17:03:23 UTC 2012
00:00:00.364342 DMI Product Name: ProLiant MicroServer
00:00:00.364355 DMI Product Version:
00:00:00.364368 Host RAM: 7860MB total, 2661MB available
00:00:00.364373 Executable: /usr/lib/virtualbox/VirtualBox
00:00:00.364375 Process ID: 31141