diff --git a/.hgignore b/.hgignore index 237bfd7..1def653 100755 --- a/.hgignore +++ b/.hgignore @@ -2,12 +2,8 @@ .pida-metadata .pida-metadata/python/* .pida-metadata/* -.project -dina.logs -db.devdb .DS_Store syntax: glob -.cache/ *.pyc *~ \#* diff --git a/src/lib/project.el b/src/lib/project.el new file mode 100644 index 0000000..53ef747 --- /dev/null +++ b/src/lib/project.el @@ -0,0 +1,45 @@ +;; Shitty - My personal emacs IDE configuration +;; Copyright (C) 2010 Sameer Rahmani +;; +;; 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 . + +;; project.el - Shit providen API for projects + +;; Known licenses - Only free softwares license +;; I do not like users who use non-free licenses +;; TODO: gather a complete list of free software licenses + +(setq known-licenses '(gpl bsd cc)) +;; Each project plugin should use this function for initializing a versy +;; basic New Project environment. +(defun new-project () "New project basic function" + (setq project-name (read-string "Project Name: ")) + ;; Shit IDE use unix-project-name for dealing with project OS activity stuffs + setq unix-project-name (replace-regexp-in-string "\ " "_" project-name) + ;; if specified directory does not exists, shit will make it + (setq project-path (read-directory-name "Project Path: ")) + (if (not (file-exists-p (project-path))) + (progn + (mkdir project-path) + (log "Project directory created") + ) + ) + ;; TODO: find a way to ask a multi choices question + (setq project-license (read-string "Project License: ")) + (if (not (member project-license known-licenses)) + (setq project-license "other") + ) + (setq project-author (read-string "Project Author: ")) + (setq project-home-page (read-string "Home Page: ")) +) \ No newline at end of file diff --git a/src/shit-ide.el b/src/shit-ide.el index 524487a..5c7d526 100644 --- a/src/shit-ide.el +++ b/src/shit-ide.el @@ -27,7 +27,6 @@ ) (defun load-dir (path) "Load entire directory" - (log (format ">>> PATH: %s" path)) (setq load-elc (concat path "*.elc")) (setq load-el (concat path "*.el")) (setq filelist (file-expand-wildcards load-elc))