1 ;;; howm-mkmenu.el --- Wiki-like note-taking tool
2 ;;; Copyright (C) 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2015, 2016, 2017
3 ;;; HIRAOKA Kazuyuki <khi@users.sourceforge.jp>
4 ;;; $Id: howm-mkmenu.el,v 1.11 2011-12-31 15:07:29 hira Exp $
6 ;;; This program is free software; you can redistribute it and/or modify
7 ;;; it under the terms of the GNU General Public License as published by
8 ;;; the Free Software Foundation; either version 1, or (at your option)
11 ;;; This program is distributed in the hope that it will be useful,
12 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ;;; GNU General Public License for more details.
16 ;;; The GNU General Public License is available by anonymouse ftp from
17 ;;; prep.ai.mit.edu in pub/gnu/COPYING. Alternately, you can write to
18 ;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139,
20 ;;--------------------------------------------------------------------
22 ;; emacs -q --no-site-file -batch -l <this file>
24 (defvar howm-mkmenu-rules
26 ;; (<var> <src> [<src-coding> <dest-coding>]) ==> <var>.el
27 (howm-menu-en "en/0000-00-00-000000.txt")
28 (howm-menu-ja "ja/0000-00-00-000000.txt" euc-jp iso-2022-7bit)
31 (defmacro howm-mkmenu-insert (&rest clauses)
33 (let ((commands (mapcar (lambda (c)
34 (let ((format (car c))
36 `(insert (format ,(concat format "\n")
41 (defun howm-mkmenu (rule)
42 (let ((var (car rule))
45 (let ((dest (concat (symbol-name var) ".el"))
46 (src-coding (and opt (car opt)))
47 (dest-coding (and opt (cadr opt))))
49 (when (and src-coding (featurep 'mule))
50 (prefer-coding-system src-coding))
52 (insert-file-contents src)
53 (let ((str (buffer-substring-no-properties (point-min) (point-max))))
56 (delete-region (point-min) (point-max))
58 (set-buffer-file-coding-system dest-coding)
60 (";;; -*- Coding: %s -*-" dest-coding)))
62 (";;; automatically generated from %s" src)
63 (";;; by %s.\n" (file-name-nondirectory load-file-name))
64 ("(require 'howm-vars)\n")
65 ("(howm-defconst-risky %s %S)\n" var str)
66 ("(provide '%s)" var))
67 (let ((make-backup-files nil))
71 (mapcar #'howm-mkmenu howm-mkmenu-rules)
73 ;;; howm-mkmenu.el ends here