toolslive

type ('a, 'e) result = 
  | OK of 'a
  | NOK of 'e


let invoke (f: 'a -> 'b) x : unit -> 'b = 
  let input, output = Unix.pipe() in
  match Unix.fork () with
    | -1 -> (let v = f x in fun () -> v)
    |  0 -> (* Child *)

toolslive

(set-foreground-color "green")
(set-background-color "black")

;; intend using space instead of tabs
(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)
(setq indent-line-function 'insert-tab)

(add-to-list 'load-path "~/.emacs.d")
(require 'weblogger)