FG42
/
FG42
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

About kuso view done

This commit is contained in:
Sameer Rahmani 2011-12-05 21:39:42 +03:30
parent 2469e205b1
commit 3d030b6908
4 changed files with 71 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
src/lib/abous.el Normal file
View File

@ -0,0 +1,51 @@
;; Kuso - My personal emacs IDE
;; Copyright (C) 2010-2011 Sameer Rahmani <lxsameer@gnu.org>
;;
;; 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 <http://www.gnu.org/licenses/>.
(defvar aboutkusoidemsg "
Kuso IDE v%%VERSION%% Copyright © 2010-2011 Sameer Rahmani <lxsameer@gnu.org>
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)
)
)

2
src/lib/menu.el
View File

@ -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")
)

13
src/lib/modes.el
View File

@ -1,5 +1,5 @@
;; Kuso - My personal emacs IDE
;; Copyright (C) 2010 Sameer Rahmani <lxsameer@gnu.org>
;; Copyright (C) 2010-2011 Sameer Rahmani <lxsameer@gnu.org>
;;
;; 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/")))

18
src/lib/version.el Normal file
View File

@ -0,0 +1,18 @@
;; Kuso - My personal emacs IDE
;; Copyright (C) 2010-2011 Sameer Rahmani <lxsameer@gnu.org>
;;
;; 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 <http://www.gnu.org/licenses/>.
(defvar KUSO-VERSION "0.13.0"
"KusoIDE version string")