This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/sh | |
REPOSRC=$1 | |
LOCALREPO=$2 | |
# We do it this way so that we can abstract if from just git later on | |
LOCALREPO_VC_DIR=$LOCALREPO/.git | |
if [ ! -d $LOCALREPO_VC_DIR ] | |
then |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun motionless-mark () | |
"Do commands until a command. | |
Remember point and then read a key to end a sequence of commands. | |
The sequence is read (until you enter the key that is being matched | |
as the end marker) and executed and then, when the end command is | |
matched, point is moved back to the remembered location and | |
the end command is executed. | |
This can be useful for things like slurp." |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; interactive javascript shell with elnode -*- lexical-binding: t -*- | |
(elnode-app elnode-ijs-dir comint uuid) | |
(defvar elnode-ijs/input nil | |
"Input for the js shell. | |
Each element is a cons of a uuid and the javascript to send.") | |
(defvar elnode-ijs/input-hash (make-hash-table :test 'equal) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun cps-foreach-bg (proc l cont &optional command-args) | |
"Call PROC with each element of L, in the background. | |
When there are no more elements of L call CONT with L. | |
Optionally use the COMMAND-ARGS as the command to run in the | |
operating system to do the queueing." | |
(let* ((process-args (or command-args '("sleep" "1"))) | |
(qproc (apply | |
'start-process |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defmacro worker-elisp (output-stream &rest lisp) | |
"Evaluate the LISP in a child Emacs sending output to OUTPUT-STREAM. | |
The child Emacs has a 'load-path' exactly as the 'load-path' of | |
the parent Emacs at execution. | |
The OUTPUT-STREAM could be a buffer, a function or a process. | |
If the OUTPUT-STREAM is a process it may have a process property |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
:;exec emacs -batch -l "$0" -f nic-custom-self-install "$@" | |
;;; custom.el --- Nic's custom stuff for Emacs | |
;; Copyright (C) 2012 Nic Ferrier <nferrier@ferrier.me.uk> | |
;; Author: Nic Ferrier <nferrier@ferrier.me.uk> | |
;; Keywords: local | |
;; This program is free software; you can redistribute it and/or | |
;; modify it under the terms of the GNU General Public License |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defmacro elnode-worker-elisp (output-stream &rest body) | |
"Evaluate the BODY in a child Emacs connected to OUTPUT-STREAM. | |
The child Emacs has a 'load-path' exactly as the 'load-path' of | |
the parent Emacs at execution. | |
The created child Emacs process is returned. It's possible to | |
kill the child Emacs process or do other things to it directly. | |
This could be very dangerous however, you should know what you | |
are doing before attempting it. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<div id="tip"><span id="tipheart">♥</span><span id="tipword">gittip</span></div> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
commit c91974d5afc8216e4cc87435eaff3bf950074092 (HEAD, refs/remotes/nictest/build-dist, refs/remotes/nicsoundcloud/build-dist, refs/heads/build-dist) | |
Author: Nic Ferrier <nferrier@ferrier.me.uk> | |
Date: Wed Jul 31 17:12:35 2013 +0100 | |
add a dist target to the Makefile to build a tarball. | |
Modified .pkgignore | |
diff --git a/.pkgignore b/.pkgignore | |
index 139b42b..be41456 100644 | |
--- a/.pkgignore |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun tapas-creole->bootstrap (struct) | |
"Transform STRUCT, a creole structure, into something bootstrapable. | |
HTML DIV elements are hacked into the structure wherever we find | |
an HR element. The HR elements are retained." | |
(let ((tx | |
(loop for e in struct | |
append | |
(if (eq (car e) 'hr) | |
(list '(hr) '(plugin-html . "</div><div class=\"section\">")) |
NewerOlder