eproject.cfg

   1 ;; -*- mode: Lisp; -*-
   2
   3 (setq prj-config
   4       '(("project-name" . "eproject-0.1")))
   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
  14 (setq prj-files
  15       '(("eproject.txt" 1 1)
  16         ("eproject.el" 1 1)
  17         ("eproject-config.el" 1 1)
  18         ))
  19
  20 (setq prj-functions
  21       '(
  22         (defun world-search-forward nil
  23           (info "(emacs)word search")
  24           (switch-to-buffer
  25            (generate-new-buffer "*World Search*"))
  26           (insert-buffer "*info*")
  27           (save-excursion
  28             (while
  29                 (re-search-forward "word" nil t)
  30               (replace-match "world"))))
  31         ))
  32
  33 (unless prj-list
  34   (setq prj-list
  35         (list (list (prj-getconfig "project-name")
  36                     eproject-directory
  37                     )))
  38
  39   (run-with-idle-timer
  40    1.0 nil
  41    '(lambda () (message " *** Welcome to eproject ***"))
  42    )
  43   )
  44