diff --git a/src/lib/abous.el b/src/lib/abous.el new file mode 100644 index 0000000..d9bc92e --- /dev/null +++ b/src/lib/abous.el @@ -0,0 +1,51 @@ +;; Kuso - My personal emacs IDE +;; Copyright (C) 2010-2011 Sameer Rahmani +;; +;; This program 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 3 of the License, or +;; any later version. +;; +;; This program 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 this program. If not, see . + +(defvar aboutkusoidemsg " +Kuso IDE v%%VERSION%% Copyright © 2010-2011 Sameer Rahmani +Kuso IDE release under the term of GPLv2. + +Home page: +\thttp://kuso.lxsameer.com + +Credits: +\tSameer Rahmani (lxsameer) +\tBehnam Ahmad Khan Beigi (b3hnam) +\tNima Nazari (niman) + +" + "About Kuso IDE") + + + +(defun about/get_string () + "Get the about message string" + (let (msg) + (setq msg (replace-regexp-in-string "%%VERSION%%" KUSO-VERSION aboutkusoidemsg)) + ) +) + +(defun about-kuso-f () + "Show an small about note" + (interactive) + (let (buf msg) + (setq buf (get-buffer-create "*About Kuso IDE*")) + (setq msg (about/get_string)) + (set-buffer buf) + (insert msg) + (view-buffer buf) + ) +) diff --git a/src/lib/menu.el b/src/lib/menu.el index bd0055d..9b5eb76 100644 --- a/src/lib/menu.el +++ b/src/lib/menu.el @@ -47,7 +47,7 @@ ;; (define-key-after global-map [menu-bar file new-proj jproj] (cons "Java" (make-sparse-keymap "j-proj")) 'elproj) ;; (define-key-after global-map [menu-bar file new-proj jsproj] (cons "JS" (make-sparse-keymap "js-proj")) 'jproj) ;; (define-key-after global-map [menu-bar file new-proj phpproj] (cons "PHP" (make-sparse-keymap "php-proj")) 'pyproj) - + (define-key-after global-map [menu-bar help-menu about-kuso] '("About KusoIDE" . about-kuso-f) 'about-emacs) (message "Menus Initinalized") ) diff --git a/src/lib/modes.el b/src/lib/modes.el index 2608ea9..0d98b26 100644 --- a/src/lib/modes.el +++ b/src/lib/modes.el @@ -1,5 +1,5 @@ ;; Kuso - My personal emacs IDE -;; Copyright (C) 2010 Sameer Rahmani +;; Copyright (C) 2010-2011 Sameer Rahmani ;; ;; This program is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -90,15 +90,6 @@ can define their key bindings easily." (setq project-path (read-directory-name "Project source tree: ")) ) -(defun aboutkuso () - "Show an small about note" - (message "NA") -) - -(defun init_menu () - "Initialized menu" - (define-key-after global-map [menu-bar help-menu about-kuso] '("About Kuso" . aboutkuso) 'about-emacs) -) ;; ---------------------------------------------------------------------- ;; Minor Modes ;; ---------------------------------------------------------------------- @@ -128,8 +119,6 @@ This mode provide a basic configuration for an IDE." (global-set-key (kbd "s-'") 'enlarge-window-horizontally) (global-set-key (kbd "s-[") 'enlarge-window) (global-set-key (kbd "s-/") 'shrink-window) - - (init_menu) ;; Centralize backups (setq backup-directory-alist `((".*" . ,"~/.tmp/"))) diff --git a/src/lib/version.el b/src/lib/version.el new file mode 100644 index 0000000..bb9760b --- /dev/null +++ b/src/lib/version.el @@ -0,0 +1,18 @@ +;; Kuso - My personal emacs IDE +;; Copyright (C) 2010-2011 Sameer Rahmani +;; +;; This program 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 3 of the License, or +;; any later version. +;; +;; This program 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 this program. If not, see . + +(defvar KUSO-VERSION "0.13.0" + "KusoIDE version string") \ No newline at end of file