diff --git a/src/kuso-ide.el b/src/kuso-ide.el index e4de8a1..f0a8ddd 100644 --- a/src/kuso-ide.el +++ b/src/kuso-ide.el @@ -113,6 +113,8 @@ function." (init-kuso) (load-dir LIBPATH) (load-dir PLUGINPATH) + (if kuso-workspace (cd kuso-workspace)) + ) ) diff --git a/src/lib/modes.el b/src/lib/modes.el index b9ec94b..98d0fa5 100644 --- a/src/lib/modes.el +++ b/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) diff --git a/src/lib/project.el b/src/lib/project.el index 38d30e0..dd3fb1b 100644 --- a/src/lib/project.el +++ b/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")) diff --git a/src/lib/user.el b/src/lib/user.el index 28b0e76..9fed916 100644 --- a/src/lib/user.el +++ b/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" +)