/bin/emacs-tags

http://github.com/rejeep/emacs · #! · 17 lines · 14 code · 3 blank · 0 comment · 0 complexity · 4e9edc1afa7b7f5adf8f1d087e697f22 MD5 · raw file 

    

  1. #!/usr/bin/env emacs --script
    2. 

  2. 

  3. ;; Creates a TAGS file for all .el files in the given path (none path
    4. 

  4. ;; means ~/.emacs.d) and places it in the current folder.
    5. 

  5. ;;
    6. 

  6. ;; Usage:
    7. 

  7. ;;   emacs-tags
    8. 

  8. ;;   emacs-tags path
    9. 

  9. ;;   emacs-tags path1 path2 ...
    10. 

  10. 

  11. (require 'find-lisp)
    12. 

    13. 

  13. (let ((files) (paths (or argv (list "~/.emacs.d"))))
    14. 

  14.   (dolist (path paths)
    15. 

  15.     (setq files (append files (find-lisp-find-files path "\\.el$"))))
    16. 

  16.   (shell-command (concat "etags " (mapconcat 'identity files " "))))
    17. 

  17. (message "Successfully created TAGS file")
    18.