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     (setq prj-list
  38           (list (list "eproject"
  39                       (directory-file-name eproject-directory)
  40                       )))
  41     (run-with-idle-timer
  42      1.0 nil
  43      '(lambda () (message " *** Welcome to eproject ***"))
  44      ))