Browse Source

Remove obsolete mk/list-hooks.pl

* mk/list-hooks.pl: Remove.

The functionality of mk/list-hooks.pl has been implemented by mk/eldo.el.
Tim Landscheidt 1 year ago
parent
commit
38bf7561d0
1 changed files with 0 additions and 32 deletions
  1. 0 32
      mk/list-hooks.pl

+ 0 - 32
mk/list-hooks.pl

@@ -1,32 +0,0 @@
-#!/usr/bin/perl
-@files = glob("lisp/org-*.el");
-unshift @files,"lisp/org.el";
-
-print "* Hooks and Function variables\n\n";
-
-foreach $file (@files) {
-  ($file1 = $file) =~ s|.*/||;
-  open IN,"<$file" or die "Cannot open file $file\n";
-  while (<IN>) {
-    if (/^\((defvar|defcustom)\s+(org-.*?-(hook|functions?)\b)/) {
-      $deftype = $1;
-      $name = $2;
-      $_=<IN> while (not m/^\s*"/);
-      $doc = $_;
-      while (not m/(?<!\\)"\)?\s*$/) {
-	$_=<IN>;
-	$doc .=$_;
-      }
-      $doc =~ s/\A\s*"//;
-      $doc =~ s/"\)?\s*\Z//;
-      print "** =$name=\n";
-      print "Defined in: /$file1/\n";
-      print "#+begin_example\n";
-      @lines = split(/\n/,$doc);
-      @lines = map { $_ = "    " . $_ } @lines;
-      $doc = join("\n",@lines);
-      print "$doc\n";
-      print "#+end_example\n";
-    }
-  }
-}