eproject.cfg

   1 ;; -*- mode: Lisp; -*-
   2
   3 (setq prj-config
   4       '(("project-name" . "eproject-0.2")))
   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   (setq prj-list
  38         (list (list (prj-getconfig "project-name")
  39                     eproject-directory
  40                     )))
  41
  42   (run-with-idle-timer
  43    1.0 nil
  44    '(lambda () (message " *** Welcome to eproject ***"))
  45    )
  46   )
  47