Skip to content

Instantly share code, notes, and snippets.

View dmj's full-sized avatar

David Maus dmj

View GitHub Profile
@dmj
dmj / gist:3944275
Created October 24, 2012 05:50
Support umlauts in ace-jump (hacky defadvice)
(defadvice ace-jump-char-category (around adv-ace-jump-support-umlauts activate)
(unless (= (char-syntax (ad-get-arg 0)) ?w)
ad-do-it)
(setq ad-return-value 'alpha))
@dmj
dmj / gist:3889487
Created October 14, 2012 18:59
Highlight annotations in PHP
(defface php-annotations-annotation-face '((t . (:inherit 'font-lock-constant-face)))
"Face used to highlight annotations.")
(defconst php-annotations-re "\\(\\s-\\|{\\)\\(@[[:alpha:]]+\\)")
(defmacro php-annotations-inside-comment-p (pos)
"Return non-nil if POS is inside a comment."
`(eq (get-char-property ,pos 'face) 'font-lock-comment-face))
(defun php-annotations-font-lock-find-annotation (limit)
@dmj
dmj / test.php
Created September 26, 2012 10:54
Test vf2 search subsystem @ v0.6
<?php
require_once(realpath(__DIR__ . '/vendor/autoload.php'));
$sm = new \Zend\ServiceManager\ServiceManager(new \Zend\Mvc\Service\ServiceManagerConfig(array()));
$sm->setService(
'ApplicationConfig',
array(
'modules' => array('VuFindSearch'),
'module_listener_options' => array(
@dmj
dmj / pre-commit.sh
Created September 25, 2012 05:42
Git pre-commit, check coding style
#!/bin/zsh
### $Id:$
###
### Pre-commit hook for VuFind2
###
### Based on Z-Shell, maybe portable bash or sh.
###
### $Log:$
###
@dmj
dmj / components.uml
Last active October 11, 2015 00:08
VF2 diagrams
@startuml components.png
title VuFind 2.x Components
skinparam component {
BackgroundColor<< Pica >> red
BackgroundColor<< DB >> orange
}
[Search/Manager] as SM
@dmj
dmj / pre-commit
Created September 21, 2012 14:55 — forked from spulec/pre-commit
Yipit Pre-commit Hook
#!/usr/bin/env python
import os
import re
import subprocess
import sys
modified = re.compile('^(?:M|A)(\s+)(?P<name>.*)')
CHECKS = [
@dmj
dmj / gist:3245746
Created August 3, 2012 08:18
Helper functions for eproject/phix-project
(defun dmaus/phix-project/jump-to-unit-test ()
(interactive)
(let ((project-root (eproject-root)))
(when project-root
(let ((unit-test-file
(expand-file-name
(concat (file-name-sans-extension (file-relative-name (buffer-file-name) (expand-file-name "src/php" project-root)))
"Test." (file-name-extension (buffer-file-name)))
(expand-file-name "src/tests/unit-tests/php" project-root))))
(switch-to-buffer (or (find-buffer-visiting unit-test-file)
@dmj
dmj / gist:3206700
Created July 30, 2012 12:54
Lexvo language code tables to alist
(defun dmaus/lexvo/language-code-pairs (lexvo-file)
"Return alist of language codes in LEXVO FILE.
LEXVO-FILE is the path to a lexvo data file.
Each element of the alist is a cons with the ISO639-3 language
code in car and the file-specific language code in cdr."
(let (code-pairs)
(with-current-buffer (find-file-noselect lexvo-file)
(save-excursion
(goto-char (point-min))
@dmj
dmj / gist:2357640
Created April 11, 2012 07:40
Compare vanilla VuFind SOLR schema.xml to custom schema.xml
<?php
if (count($argv) != 3) {
die();
}
function load_schema ($path)
{
if (!file_exists($path)) {
die();
@dmj
dmj / wl-auto-config.el
Created November 13, 2011 20:36 — forked from egh/wl-auto-config.el
wl auto config
;; Copyright 2011 Erik Hetzner
;;
;; 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
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the