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

kuso-ide.el cleaned

This commit is contained in:
Sameer Rahmani 2011-01-03 09:13:16 +03:30
parent a1a59feb09
commit 216a8669f5
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/kuso-ide.el
View File

@ -1,4 +1,4 @@
;; Shit - My personal emacs IDE configuration ;; Kuso - My personal emacs IDE
;; Copyright (C) 2010 Sameer Rahmani <lxsameer@gnu.org> ;; Copyright (C) 2010 Sameer Rahmani <lxsameer@gnu.org>
;; ;;
;; This program is free software: you can redistribute it and/or modify ;; This program is free software: you can redistribute it and/or modify
@ -21,26 +21,26 @@
;; Turning on debuggin for development ;; Turning on debuggin for development
(defvar DEBUG 1 (defvar DEBUG 1
"Shit IDE will produce more output in the debug mode (DEBUG = 1). log "Kuso IDE will produce more output in the debug mode (DEBUG = 1). log
function outputs will appear in *Messages* buffer." function outputs will appear in *Messages* buffer."
) )
(defvar ROOTPATH nil (defvar ROOTPATH nil
"This variable refer to absolute path to Shit IDE source tree." "This variable refer to absolute path to Kuso IDE source tree."
) )
(defvar LIBPATH nil (defvar LIBPATH nil
"This variable refer to 'lib' directory of Shit IDE that contains the "This variable refer to 'lib' directory of Kuso IDE that contains the
internal libraries for ShitIDE." internal libraries for KusoIDE."
) )
(defvar PLUGINPATH nil (defvar PLUGINPATH nil
"This variable refer to 'plugin' directory of ShitIDE that contains "This variable refer to 'plugin' directory of KusoIDE that contains
Shit plugins." Kuso plugins."
) )
(defvar TEMPLATESPATH nil (defvar TEMPLATESPATH nil
"This variable refer to 'template' directory of ShitIDE where plugins "This variable refer to 'template' directory of KusoIDE where plugins
store their code templates." store their code templates."
) )
@ -68,8 +68,8 @@ store their code templates."
) )
) )
(defun init-shit () "Inittialize Shit IDE environment" (defun init-kuso () "Inittialize Kuso IDE environment"
(log "initializing SHIT . . .") (log "initializing Kuso . . .")
(let (cur-path-list) (let (cur-path-list)
(setq cur-path-list (split-string load-file-name "/")) (setq cur-path-list (split-string load-file-name "/"))
(nbutlast cur-path-list) (nbutlast cur-path-list)
@ -85,7 +85,7 @@ store their code templates."
) )
(defun load-lib (ADDR) "load the shit library on the ADDR path" (defun load-lib (ADDR) "load the kuso library on the ADDR path"
(interactive) (interactive)
(let (tmp) (let (tmp)
(setq tmp (concat LIBPATH ADDR)) (setq tmp (concat LIBPATH ADDR))
@ -95,26 +95,26 @@ store their code templates."
(defun log (ARG) "print a log on message buffer." (defun log (ARG) "print a log on message buffer."
(if (= DEBUG 1) (message "[SHIT] DEBUG >>> %s" ARG)) (if (= DEBUG 1) (message "[Kuso] DEBUG >>> %s" ARG))
) )
(defun warning (ARG) "A wrapper around elisp built-in warn (defun warning (ARG) "A wrapper around elisp built-in warn
function." function."
(warn "[SHIT] WARNING >>> %s ARG") (warn "[Kuso] WARNING >>> %s ARG")
) )
(defun start-shit () (defun start-kuso ()
"A peace of shit configuration that tune emacs to be an IDE." "A peace of kuso configuration that tune emacs to be an IDE."
(interactive) (interactive)
(let () (let ()
(log "Starting shit mode . . .") (log "Starting kuso mode . . .")
(init-shit) (init-kuso)
(load-dir LIBPATH) (load-dir LIBPATH)
(load-dir PLUGINPATH) (load-dir PLUGINPATH)
) )
) )
(start-shit) (start-kuso)