workspace added to preferences

src/kuso-ide.el

@@ -113,6 +113,8 @@ function."
     (init-kuso)
     (load-dir LIBPATH)
     (load-dir PLUGINPATH)
+    (if kuso-workspace (cd kuso-workspace))
+    
     )
   )
 

src/lib/modes.el

@@ -103,6 +103,7 @@ This mode provide a basic configuration for an IDE."
 	(menu/init-menu)
 	
 	(define-key kuso-map (kbd "\S-c") 'kuso-prefix-map)
+	(if kuso-workspace (cd kuso-workspace))
 	(run-hooks 'kuso-plugin-preinit-hook)
 	(run-hooks 'kuso-plugin-init-hook)
 	(run-hooks 'kuso-plugin-postinit-hook)

src/lib/project.el

@@ -36,10 +36,6 @@
   "The free software licenses for using as the project license."
 )
 
-;; If user defined the developer details in user preferences Kuso use them
-;; as default values
-(setq project-author developer-name)
-(setq project-author-email developer-email)
 ;; ----------------------------------------------------------------------
 ;; Functions
 ;; ----------------------------------------------------------------------
@@ -48,6 +44,11 @@
 ;; basic New Project environment.
 (defun new-project () "New project basic function"
 
+  ;; If user defined the developer details in user preferences Kuso use them
+  ;; as default values
+  (setq project-author developer-name)
+  (setq project-author-email developer-email)
+
   ;; Project name
   (setq project-name (read-string "Project Name: "))
   (if (string= project-name "") (error "Project name must not be emty"))

src/lib/user.el

@@ -40,3 +40,10 @@ Kuso IDE"
   :type 'string
   :tag '"Developer Email"
 )
+
+(defcustom kuso-workspace "~/src/"
+  "KusoIDE use this option as default path for new project."
+  :group 'kuso-user-preferences
+  :type 'string
+  :tag '"Workspace"
+)