FG42/lib/extensions/editor/about.el

43 lines
1016 B
EmacsLisp
Raw Normal View History

2015-07-07 13:10:57 +01:00
;; Vars -------------------------------
2015-07-07 12:25:06 +01:00
(defvar about_fg42_msg "
FG42 %%VERSION%% Copyright © 2010-2015 Sameer Rahmani <lxsameer@gnu.org>
FG42 release under the term of GPLv2.
Home page:
\thttp://fg42.lxsameer.com
Credits:
2015-07-09 13:07:35 +01:00
\tSameer Rahmani (@lxsameer)
\tDanial Parsi (@intuxticated)
\tAmir Houghangi
2015-07-07 12:25:06 +01:00
\tNima Nazari (niman)
\tKeyvan Hedayati (k1-hedayati)
2015-07-09 13:07:35 +01:00
\tBehnam Khan Beigi (@yottanami)
2015-07-07 12:25:06 +01:00
"
"About FG42")
2015-07-07 13:10:57 +01:00
;; Functions ---------------------------
2015-07-07 12:25:06 +01:00
(defun about/get_string ()
"Get the about message string"
(let (msg)
(setq msg (replace-regexp-in-string "%%VERSION%%"
FG42-VERSION about_fg42_msg))))
(defun about-fg42-f ()
"Show an small about note"
(interactive)
(let (buf msg)
(setq buf (get-buffer-create "*About FG42*"))
(setq msg (about/get_string))
(set-buffer buf)
(insert msg)
(view-buffer buf)))
(define-key-after global-map
2015-07-07 13:10:57 +01:00
[menu-bar help-menu about-fg42]
2015-07-07 12:25:06 +01:00
'("About FG42" . about-fg42-f)
'about-emacs)
(provide 'extensions/editor/about)