nicferrier

;; read the gpg agent file and set the env vars
(let ((gpg-agent-file (expand-file-name "~/.gpg-agent-info")))
  (when (file-exists-p gpg-agent-file)
    (message "import gpg agent file")
    (mapc
     (lambda (line)
       (unless (equal line "")
         (apply 'setenv (split-string line "="))))
     (split-string

nicferrier

/*
 simple little javascript to make org-mode presentations

 export your org-mode to HTML with this at the end:

 #+HTML: <script src="app.js"></script>

 I also go to town and use a nice stylesheet.

 Publish it with elnode with M-x elnode-make-js-server

nicferrier

;;; -*- lexical-binding: t -*-

(defmacro with-process-shell-command (name buffer command &rest sentinel-forms)
  `(let ((proc (start-process-shell-command ,name ,buffer ,command)))
     (let ((sentinel-cb (lambda (process signal)
                          ,@sentinel-forms)))
       (set-process-sentinel proc sentinel-cb)
       )))

nicferrier

;;; creole.el --- A parser for the Creole Wiki language

;;; Copyright (C) 2011 by Nic Ferrier

;;; Commentary:

;; This is a WikiCreole wiki parser. WikiCreole is something like the
;; Wiki language used by OddMuse, which is the EmacsWiki wiki
;; language.

nicferrier

(defmacro with-process-shell-command (command buffer-or-filter &rest forms)
  "Run COMMAND through /in the BUFFER-OR-FILTER using FORMS as the sentinel.

FORMS is a 'cond' like you'd use in a sentinel, for example:

  (with-process-shell-command \"ls\" some-buffer
    ((equal signal \"finished\\n\")
     ;; Clean up?
     (with-current-buffer (get-buffer \"* log *\")
       (insert \"some text\\\n\")))

nicferrier

(defun ispell-lookup (word)
  (interactive "Mword: ")
  (with-current-buffer (get-buffer-create "* ispell-lookup *")
    (erase-buffer)
    (insert word)
    (goto-char (point-min))
    (switch-to-buffer-other-window (current-buffer))
    (ispell-word)))

nicferrier

(defun pinboard-get ()
  "A little function to retrieve pinboard.in into a buffer.

The buffer is *pinboard*. We don't even switch to it."
  (interactive)
  (url-retrieve
   "https://api.pinboard.in/v1/posts/all/?format=json"
   (lambda (status &rest args)
     (save-excursion
       (re-search-forward "^$" nil 't)

nicferrier

;;; wikiengine.el --- a WIKI engine -*- lexical-binding: t -*-

;; Copyright (C) 2011  Nic Ferrier

;; Author: Nic Ferrier - <nferrier@ferrier.me.uk>
;; Version: 0.1
;; Keywords: hypermedia

;; 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

nicferrier

(progn (setq load-path (quote ("/home/nferrier/.emacs.d/elpa/ahg-0.99" "/home/nferrier/.emacs.d/elpa/chess-1.96" "/home/nferrier/.emacs.d/elpa/creole-0.6.1" 
"/home/nferrier/.emacs.d/elpa/elnode-0.9"))) (let ((target "/home/nferrier/wiki/README.creole") (header "<div id='top'></div>") (footer "<div id='footer'>
<form action='/wiki/' method='POST'>
<textarea name='wikitext'>
{{text}}
</textarea>
<input type='submit' name='send' value='send'/>
<input type='submit' name='preview' value='preview'/>
</form>
</div>")) (progn (require (quote creole)) (creole-wiki target :destination t :body-header header :body-footer footer))))

nicferrier

def get_config(repo, rev=None):
    """Get the config from the veh root.

    We try and work out what version control system is being used from
    the location of the veh config file.

    We currently only support Mercurial and GIT.

    The veh.conf MUST exist in the file system though we might read a
    completly different version of course."""