OSDN Git Service

simply use autotools macro to set version numbers in *.el
[howm/howm.git] / illusion.el
1 ;;; illusion.el --- load, edit, and submit something which is not pure file
2 ;;; Copyright (C) 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2015, 2016, 2017
3 ;;;   HIRAOKA Kazuyuki <khi@users.sourceforge.jp>
4 ;;; $Id: illusion.el,v 1.14 2011-12-31 15:07:29 hira Exp $
5 ;;;
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)
9 ;;; any later version.
10 ;;;
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.
15 ;;;
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,
19 ;;; USA.
20 ;;;--------------------------------------------------------------------
21
22 ;;; Commentary:
23
24 ;; Not yet. See the example 'yalot13' at the bottom of this file.
25
26 ;;; Code:
27
28 (require 'easy-mmode)
29 (require 'howm-common)
30
31 (defvar illusion-lighter " _i_")
32 (defvar illusion-submit-key "\C-c\C-c")
33
34 (defvar illusion-submit-func
35   (lambda ()
36     (error "Submission function is not defined."))
37   "Value of this variable is called when `illusion-submit' is executed.
38 It must return non-nil value for successful case.")
39 (make-variable-buffer-local 'illusion-submit-func)
40 (put 'illusion-submit-func 'risky-local-variable t)
41
42 (defun illusion-submit ()
43   (interactive)
44   (funcall illusion-submit-func)
45   (set-buffer-modified-p nil))
46
47 (defun illusion-generate (name loader submitter)
48   (switch-to-buffer (generate-new-buffer name))
49   (text-mode)
50   (illusion-mode 1)
51   (setq illusion-submit-func submitter)
52   (funcall loader)
53   (goto-char (point-min))
54   (set-buffer-modified-p nil))
55
56 (easy-mmode-define-minor-mode illusion-mode
57   "With no argument, this command toggles the mode.
58 Non-null prefix argument turns on the mode.
59 Null prefix argument turns off the mode.
60
61 When the mode is enabled, \\[illusion-submit] submits the content
62 with a manner which is suitable to current buffer.
63
64 key     binding
65 ---     -------
66 \\[illusion-submit]     Submit changes
67 "
68   nil ;; default = off
69   illusion-lighter ;; mode-line
70   `(
71     (,illusion-submit-key . illusion-submit)
72     )
73 )
74
75 ;; emacs20's easy-mmode-define-minor-mode can't have body. sigh...
76 (add-hook 'illusion-mode-on-hook
77           (lambda () (use-local-map illusion-mode-map)))
78
79 ;;; Example
80
81 ;; M-x yarot13-find-file to open rot13ed file.
82 ;; Edit it, and C-c C-c to save it.
83
84 ;; (personal note) ruby -pe '$_.tr! "a-zA-Z", "n-za-mN-ZA-M"'
85
86 (defun yarot13-find-file (file)
87   (interactive "Frot13 file: ")
88   (illusion-generate (concat "rot13:" (file-name-nondirectory file))
89                      `(lambda () (yarot13-insert-file-contents ,file))
90                      `(lambda () (yarot13-save-buffer-to ,file))))
91
92 (defun yarot13-insert-file-contents (file)
93   (if (file-exists-p file)
94       (let ((s (with-temp-buffer
95                  (howm-insert-file-contents file)
96                  (yarot13-rotate-buffer)
97                  (buffer-string))))
98         (insert s))
99     (message "(New file)")))
100
101 (defun yarot13-save-buffer-to (file)
102   (let ((s (buffer-string)))
103     (with-temp-buffer
104       (insert s)
105       (yarot13-rotate-buffer)
106       (set-visited-file-name file)
107       (basic-save-buffer))))
108
109 (defun yarot13-rotate-buffer ()
110   (save-excursion
111     (goto-char (point-min))
112     (while (not (eobp))
113       (let ((c (char-after)))
114         (setq c (yarot13-rotate-char c ?a ?z))
115         (setq c (yarot13-rotate-char c ?A ?Z))
116         (delete-char 1)
117         (insert-char c 1)))))
118
119 (defun yarot13-rotate-string (str)
120   (with-temp-buffer
121     (insert str)
122     (yarot13-rotate-buffer)
123     (buffer-string)))
124
125 (defun yarot13-rotate-char (x beg end)
126   (let ((d (- x beg))
127         (w (+ 1 (- end beg))))
128     (if (and (<= beg x) (<= x end))
129         (+ beg (mod (+ d (/ w 2)) w))
130       x)))
131
132 (provide 'illusion)
133
134 ;;; illusion.el ends here