Skip to content

Instantly share code, notes, and snippets.

View klang's full-sized avatar
🏠
Working from home

Karsten Lang klang

🏠
Working from home
17 followers · 10 following
View GitHub Profile
@klang
klang / slime-override-mode
Created May 22, 2011 07:47
Slime-override-mode to fix paredit-(open|close)-(round|square|curly) and move the keys
;; http://github.com/briancarper/dotfiles/raw/master/.emacs
;; {} are not handled correctly by paredit in the repl,
;; but these lines fixes it
(defvar slime-override-map (make-keymap))
(define-minor-mode slime-override-mode
"Fix SLIME REPL keybindings"
nil " SLIME-override" slime-override-map)
(define-key slime-override-map (kbd "<C-return>") 'paredit-newline)
(define-key slime-override-map (kbd "{") 'paredit-open-curly)
@klang
klang / scope.php
Created June 1, 2011 06:21
wierd scope rules in php
<?php
function test() {
global $data;
var_dump($data);
}
test();
$data = array(1,2,3);
?>
@klang
klang / foo.html
Created January 10, 2012 12:22
html array send to php action
<html>
<header>
<script type="text/javascript">
function btnClick(aBtn) {
with (aBtn.form) {
event.value = aBtn.name;
submit();
}
}
</script>
@klang
klang / toggle-related-files.el
Created June 1, 2012 11:51
Quick and dirty way to define a toggle between related files in emacs
@klang
klang / git-dropbox.sh
Created September 15, 2012 08:57
git repository on dropbox
export DROPBOX=~/Dropbox/repos
export newRepo=project-name
export NAME=$(git config --global --get user.name)
cd ~/projects/$newRepo
git init
git add .
git commit -m 'initial'
HERE=$(pwd)
@klang
klang / reverse-ssh.txt
Created October 30, 2015 07:21
We have the situation, where a cvs server is not available from a development host, but the development host
is available from the cvs server:
.-----.
| PC |
.-----.
/ \
v v
.-----. .-----.
| cvs |------>| dev |
@klang
klang / monitor.clj
Created November 12, 2015 08:01
Log monitoring and processing
(ns monitor
(:gen-class)
(:import (java.io RandomAccessFile)))
(def sleep-interval 2000)
(defn extract-ip-address [message]
(if (not (nil? message))
(let [pattern "(\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}) ([0-9a-f]+\\.[0-9a-f]+\\.[0-9a-f]+) via (\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}\\.\\d{1,3})"
message-seq (first (re-seq (re-pattern pattern) message))
@klang
klang / mother.pl
Created December 21, 2012 09:09
A simple little script to observe selected users activity on the system. When conducting training sessions, it's sometimes necessary to have your mother watching over you ..
#!/usr/bin/perl
@users = ( 'klang' );
my $procs = qx/ps -ef/;
#my $login = qx/last/;
foreach my $user (@users) {
while ($procs =~ m/^ *(\w*).+ .:.. (.+)$/gm) {
my $usr = $1;
my $proc = $2;
@klang
klang / output.txt
Created December 11, 2015 08:57
An easy way to specify a destination as a single input parameter and still be able to get the individual data elements back again.
[klang@ergates bin]$ split_destination-test.sh
destination user@host.with.full.domain:/full/path/to/install/package.ext
server host.with.full.domain
servershort host
user user
fullpath /full/path/to/install/package.ext
path /full/path/to/install/
package package.ext
@klang
klang / remote-nrepl-jump.el
Created April 7, 2013 13:50
patch for nrepl.el version 1.8 that will fix nrepl-jump (M-.) functionality when emacs and clojure are running on different host types (unix, mac, windows)
(defcustom nrepl-use-local-resources t
"use local resources under HOME if possible."
:type 'string
:group 'nrepl)
(defun nrepl-tramp-prefix ()
"use buffer-file-name on jump-origin to determine if the buffer is opened on a remote server.
M-. will have put the jump-origin on the tag-marker-ring, so we get the info there."
(save-match-data
(let ((jump-origin (buffer-file-name (marker-buffer (ring-ref find-tag-marker-ring 0)))))