Skip to content

Instantly share code, notes, and snippets.

Avatar

Martin Sugioarto nakal

View GitHub Profile
View weechat_echo.sh
#!/bin/sh
IRCSERVER="$1"
CHANNEL="$2"
TEXT="$3"
WEECHAT_PID=`pgrep -U weechatuser weechat`
WEECHAT_PIPE="/home/weechatuser/.weechat/weechat_fifo_${WEECHAT_PID}"
if [ -p "$WEECHAT_PIPE" ]; then
echo "irc.$IRCSERVER.$CHANNEL *$TEXT" > "$WEECHAT_PIPE"
View phabricator_aphlict
#!/bin/sh
#
# $FreeBSD$
# PROVIDE: phabricator_aphlict
# REQUIRE: phabricator_phd
# KEYWORD: shutdown
. /etc/rc.subr
View phabricator_phd
#!/bin/sh
#
# $FreeBSD$
# PROVIDE: phabricator_phd
# REQUIRE: DAEMON mysql
# KEYWORD: shutdown
. /etc/rc.subr
View phabricator_sshd
#!/bin/sh
#
# $FreeBSD$
# PROVIDE: phabricator_sshd
# REQUIRE: DAEMON
# KEYWORD: shutdown
. /etc/rc.subr
@nakal
nakal / is_ascii.c
Created Dec 30, 2015
C program that checks if the given STDIN stream is standard ASCII
View is_ascii.c
#include <stdio.h>
#include <stdlib.h>
int main(void)
{
int found_non_ascii = 0;
while (!ferror(stdin) && !feof(stdin)) {
size_t s;
@nakal
nakal / endian.c
Created Oct 31, 2015
Endianness test for C (untested)
View endian.c
#include <stdio.h>
int is_little_endian(void)
{
char buf[sizeof(unsigned int)];
*(unsigned int *)buf = 1u;
return (int)buf[0];
}
View vimrc_local
" ***** Start project directory local vimrc files
let s:start_dir=getcwd()
while s:start_dir != '/' && empty(glob(s:start_dir . '/.git'))
let s:start_dir=fnamemodify( s:start_dir, ':h')
endwhile
if s:start_dir != '/'
let s:vimrc_path = s:start_dir . '/.vimrc'
@nakal
nakal / fibonacci.hs
Created Sep 11, 2015
Fibonacci stuff
View fibonacci.hs
-- return the nth fibonacci number
fib n = fst $ (foldr1 (.) (replicate n $ \(f1, f2) -> (f2, f1 + f2) )) (0,1)
@nakal
nakal / mbox-split.sh
Created Sep 11, 2015
Split a single MBOX into many small email files
View mbox-split.sh
# generates mails 1.eml, 2.eml,... from a single mbox file
# when (e.g.) procmailrc is flawed and everything was delivered
# locally
#
# then you can feed these files into the LDA one-by-one
awk '/^From / {nr += 1; getline }; { print $0 >> ( nr".eml" ) }' /var/mail/$USER
@nakal
nakal / hdm.hs
Last active Aug 29, 2015
First try for hdm
View hdm.hs
import System.IO.Error
import System.Posix.Process
import Graphics.X11.Xft
import Graphics.X11.Xlib.Context
import Graphics.X11.Xlib.Display
import Graphics.X11.Xlib.Event
import Graphics.X11.Xlib.Misc
import Graphics.X11.Xlib.Screen
import Graphics.X11.Types
import Graphics.X11.Xlib.Window