basic menu loading done

.hgignore

@@ -10,6 +10,8 @@ syntax: glob
 .cache/
 *.pyc
 *~
+\#*
+\.\#*
 .settings/*
 *Thumbs.db
 *.swp

src/lib/menu.el

@@ -0,0 +1,21 @@
+;;   Shitty - My personal emacs IDE configuration
+;;    Copyright (C) 2010  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/>.
+
+(defun init-menu () "Initializing Shit IDE menu"
+  
+  (define-key global-map [menu-bar file new-project] '("New project" . new-project))
+)
+(init-menu)

src/shitty.el

@@ -16,6 +16,27 @@
 
 (setq shit-mode 0)
 (setq DEBUG 1)
+(setq ROOTPATH nil)
+(setq LIBPATH nil)
+
+(defun init-shit () "Inittialize Shit IDE environment"
+  (log "initializing SHIT . . .")
+  (setq cur-path-list (split-string load-file-name "/"))
+  (nbutlast cur-path-list)
+  (setq ROOTPATH (concat (mapconcat 'identity cur-path-list "/") "/"))
+  (setq LIBPATH (concat ROOTPATH "lib/"))
+  (log (format "Running on %s" ROOTPATH))
+  (log (format "lib : %s" LIBPATH))
+)
+
+(defun load-lib (ADDR) "load the shit library on the ADDR path"
+  (interactive)
+  (let (tmp)
+    (setq tmp (concat LIBPATH ADDR))
+    (load tmp)
+    )
+  )
+
 
 (defun log (ARG) "print a log on message buffer."
   (if (= DEBUG 1) (message "[SHIT] DEBUG >>> %s" ARG))
@@ -29,12 +50,8 @@
       (progn
 	(setq shit-mode 1)
 	(log "Starting shit mode . . .")
-	(setq cur-path-list (split-string load-file-name "/"))
-	(nbutlast cur-path-list)
-	(setq curpath (mapconcat 'identity cur-path-list "/"))
-	(log curpath)
-	(add-to-list 'load-path curpath)
-	
+	(init-shit)
+	(load-lib "menu.el")
 	)
       )
   )