File: skk-version.el

package info (click to toggle)
ddskk 16.2-7
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 4,116 kB
  • sloc: lisp: 34,708; ruby: 476; makefile: 187; awk: 178; sql: 142; sh: 115
file content (70 lines) | stat: -rw-r--r-- 2,362 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
;;; skk-version.el --- version information for SKK -*- coding:iso-2022-jp -*-

;; Copyright (C) 2000, 2001, 2003 NAKAJIMA Mikio <minakaji@namazu.org>

;; Author: NAKAJIMA Mikio <minakaji@namazu.org>
;; Maintainer: SKK Development Team <skk@ring.gr.jp>
;; Keywords: japanese, mule, input method

;; This file is part of Daredevil SKK.

;; Daredevil SKK 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.

;; Daredevil SKK 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 GNU
;; General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with Daredevil SKK, see the file COPYING.  If not, write to
;; the Free Software Foundation Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Commentary:

;;; Code:
(eval-and-compile
  (require 'skk-macs))

(put 'skk-version 'product-name "Daredevil SKK")
(put 'skk-version 'version-string
     (let ((ver "16.2")
	   (mepla "mepla")
	   (path (catch 'exit
		   (dolist (p load-path)
		     ;; ;; ~/.emacs.d/elpa/ddskk-20150107.409/
		     (when (string-match "ddskk-[0-9]+\.[0-9]+" p)
		       (throw 'exit p))))))
       (if path
	   (format "%s/%s-%s" ver mepla
			(car (cdr (split-string path "ddskk-"))))
	 ver)))
(put 'skk-version 'codename "Warabitai") ; See also `READMEs/CODENAME.ja'
(put 'skk-version 'codename-ja "蕨岱")

;;;###autoload
(defun skk-version (&optional without-codename)
  "Return SKK version with its codename.
If WITHOUT-CODENAME is non-nil, simply return SKK version without
the codename."
  (interactive "P")
  (if (skk-called-interactively-p 'interactive)
      (message "%s" (skk-version without-codename))
    (if without-codename
	(format "%s/%s"
		(get 'skk-version 'product-name)
		(get 'skk-version 'version-string))
      (format "%s/%s (%s)"
	      (get 'skk-version 'product-name)
	      (get 'skk-version 'version-string)
	      (if skk-version-codename-ja
		  (get 'skk-version 'codename-ja)
		(get 'skk-version 'codename))
	      ))))

(provide 'skk-version)

;;; skk-version.el ends here