45 lines
1.0 KiB
EmacsLisp
45 lines
1.0 KiB
EmacsLisp
;; Vars -------------------------------
|
|
(defvar about_fg42_msg "
|
|
FG42 %%VERSION%% Copyright © 2010-2018 Sameer Rahmani <lxsameer@gnu.org>
|
|
FG42 release under the term of GPLv2.
|
|
|
|
Home page:
|
|
\thttp://fg42.lxsameer.com
|
|
|
|
Credits:
|
|
\tSameer Rahmani (@lxsameer)
|
|
\tDanial Parsi (@intuxticated)
|
|
\tAmir Houghangi
|
|
\tNima Nazari (niman)
|
|
\tKeyvan Hedayati (k1-hedayati)
|
|
\tBehnam Khan Beigi (@yottanami)
|
|
\tEhsan Mahmoudi
|
|
|
|
"
|
|
"About FG42")
|
|
|
|
|
|
;; Functions ---------------------------
|
|
(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 ()
|
|
"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
|
|
[menu-bar help-menu about-fg42]
|
|
'("About FG42" . about-fg42-f)
|
|
'about-emacs)
|
|
|
|
(provide 'extensions/editor/about)
|