dmj

<?php

/**
 * This file is part of HABfind.
 *
 * HABfind 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 3 of the License, or
 * (at your option) any later version.
 *

dmj

# Schema für DFG-Viewer Linkinformationen, METS-Anwendungsprofil Version 2.1

default namespace = "http://dfg-viewer.de/"

start = links

links = element links {
   reference+ &
   presentation?
}

dmj

(defun dmaus:make-number-set (list)
    (when list
      (let ((first (car list))
            (index (car list)))
        (while (and (cadr list) (= (incf index) (cadr list)))
          (setq list (cdr list)))
        (cond
         ((= first (car list))
          (cons (format "%d" first) (dmaus:make-number-set (cdr list))))
         ((= (1+ first) (decf index))

dmj

#!/usr/bin/env php
<?php

function terminate ($message, $code = 1) {
    fwrite(STDERR, $message);
    fwrite(STDERR, "\nProgramm abgebrochen\n");
    exit($code);
}

if (extension_loaded('yaz') !== true) {

dmj

namespace local = ""
default namespace ns1 = "http://www.culturegraph.org/metamorph"
namespace ns2 = "http://www.w3.org/2001/XInclude"

start =
  constant
  | data
  | urlencode
  | replace
  | rules

dmj

(defun wl-message-ibuffer-predicate ()
  (and (boundp 'wl-message-buffer-cur-folder)
       (boundp 'wl-message-buffer-cur-number)
       wl-message-buffer-cur-folder
       wl-message-buffer-cur-number))

(define-ibuffer-column wl-message-date (:name "Date")
  (format-time-string "%Y-%m-%d"
                      (elmo-message-field (wl-folder-get-elmo-folder wl-message-buffer-cur-folder) wl-message-buffer-cur-number 'date)))

dmj

;;; woff.el --- Show information about Web Open Font Format files

;; Copyright (C) 2015  David Maus

;; Author: David Maus <dmaus@ictsoc.de>
;; Keywords: files, hypermedia, multimedia

;; 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 3 of the License, or

dmj

diff --git a/doc/wl.texi b/doc/wl.texi
index 8aa0f76..a887111 100644
--- a/doc/wl.texi
+++ b/doc/wl.texi
@@ -1626,6 +1626,7 @@ lastweek  ->  same day of last week.
 lastmonth ->  same day of last month.
 lastyear  ->  same day of last year.
 @var{number}daysago -> @var{number} days ago. (e.x. '3daysago')
+@var{number}weeksago -> @var{number} weeks ago (e.x. '3weeksago)
 @var{day}-@var{month}-@var{year} -> specify date directly (ex. 1-Nov-1998)

dmj

#!/bin/sh
#
# Timestamp: <2016-07-03 13:41:08 dmaus>
#

/usr/bin/java -jar /usr/share/java/tagsoup.jar http://www.zeit.de/serie/fischer-im-recht > fischer.xhtml
E=$?
if [ $E -ne 0 ]; then
   exit $E
fi

dmj

default outfile = "stdout";

infile|
open-file|
as-records|
decode-pica|
morph(FLUX_DIR + "schlagworte.morph")|
encode-literals|
write(outfile);