eproject.cfg

   1 ;; -*- mode: Lisp; -*-
   2
   3 (setq prj-config
   4       '(("project-name" . "eproject")))
   5
   6 (setq prj-tools
   7       '(("Previous File" "-e eproject-prevfile" "M-left")
   8         ("Next File" "-e eproject-nextfile" "M-right")
   9         ("---")
  10         ("Hello World" "echo \"Hello World!\"" "f1")
  11         ("World Search" "-e (world-search-forward)" "f2")
  12         ("---")
  13         ("Explore Project" "nautilus --browser `pwd` &")
  14         ("XTerm In Project" "xterm &")
  15         ))
  16
  17 (setq prj-files
  18       '(("eproject.txt" 1 1)
  19         ("eproject.el" 1 1)
  20         ("eproject-config.el" 1 1)
  21         ))
  22
  23 (setq prj-functions
  24       '(
  25         (defun world-search-forward nil
  26           (info "(emacs)word search")
  27           (switch-to-buffer
  28            (generate-new-buffer "*World Search*"))
  29           (insert-buffer "*info*")
  30           (save-excursion
  31             (while
  32                 (re-search-forward "word" nil t)
  33               (replace-match "world"))))
  34         ))
  35
  36 (unless prj-list
  37   (let* ((cfg (expand-file-name prj-default-cfg eproject-directory))
  38          (cfg-local (concat cfg ".local"))
  39          )
  40     (condition-case nil (copy-file cfg cfg-local) (error nil))
  41     (setq prj-list
  42           (list (list "eproject"
  43                       (directory-file-name eproject-directory)
  44                       (file-name-nondirectory cfg-local)
  45                       )))
  46     (run-with-idle-timer
  47      1.0 nil
  48      '(lambda () (message " *** Welcome to eproject ***"))
  49      )))