     (headline . "^(\\|(@\\*")
     (get-line . buffer-substring)
     (condition . (eq major-mode 'emacs-lisp-mode))
-    (adjust)))
+    (adjust))
+  "Show top-level forms and linkd stars (optional) in Emacs Lisp.
+linkd.el is optional because linkd stars are extracted by regexp.
+http://www.emacswiki.org/cgi-bin/wiki/download/linkd.el")
 ;; (anything 'anything-c-source-emacs-lisp-toplevels)
 
 (defvar anything-c-source-org-headline
   '((name . "Org HeadLine")
-    (headline  "^\\* \\(.+\\)$"
-               "^\\*\\* \\(.+\\)$"
-               "^\\*\\*\\* \\(.+\\)$"
-               "^\\*\\*\\*\\* \\(.+\\)$"
-               "^\\*\\*\\*\\*\\* \\(.+\\)$"
-               "^\\*\\*\\*\\*\\*\\* \\(.+\\)$"
-               "^\\*\\*\\*\\*\\*\\*\\* \\(.+\\)$"
-               "^\\*\\*\\*\\*\\*\\*\\*\\* \\(.+\\)$")
+    (headline
+     "^\\* \\(.+?\\)\\([ \t]*:[a-zA-Z0-9_@:]+:\\)?[ \t]*$"
+     "^\\*\\* \\(.+?\\)\\([ \t]*:[a-zA-Z0-9_@:]+:\\)?[ \t]*$"
+     "^\\*\\*\\* \\(.+?\\)\\([ \t]*:[a-zA-Z0-9_@:]+:\\)?[ \t]*$"
+     "^\\*\\*\\*\\* \\(.+?\\)\\([ \t]*:[a-zA-Z0-9_@:]+:\\)?[ \t]*$"
+     "^\\*\\*\\*\\*\\* \\(.+?\\)\\([ \t]*:[a-zA-Z0-9_@:]+:\\)?[ \t]*$"
+     "^\\*\\*\\*\\*\\*\\* \\(.+?\\)\\([ \t]*:[a-zA-Z0-9_@:]+:\\)?[ \t]*$"
+     "^\\*\\*\\*\\*\\*\\*\\* \\(.+?\\)\\([ \t]*:[a-zA-Z0-9_@:]+:\\)?[ \t]*$"
+     "^\\*\\*\\*\\*\\*\\*\\*\\* \\(.+?\\)\\([ \t]*:[a-zA-Z0-9_@:]+:\\)?[ \t]*$")
     (condition . (eq major-mode 'org-mode))
     (migemo)
-    (subexp . 1)))
+    (subexp . 1)
+    (persistent-action . (lambda (elm)
+                           (anything-c-action-line-goto elm)
+                           (org-cycle)))
+    (action-transformer
+     . (lambda (actions candidate)
+         '(("Go to Line" . anything-c-action-line-goto)
+           ("Insert Link to This Headline" . anything-c-org-headline-insert-link-to-headline)))))
+  "Show Org headlines.
+org-mode is very very much extended text-mode/outline-mode.
+
+See (find-library \"org.el\")
+See http://orgmode.org for the latest version.")
+
+(defun anything-c-org-headline-insert-link-to-headline (lineno-and-content)
+  (insert
+   (save-excursion
+     (goto-line (car lineno-and-content))
+     (and (looking-at "^\\*+ \\(.+?\\)\\([ \t]*:[a-zA-Z0-9_@:]+:\\)?[ \t]*$")
+          (org-make-link-string (concat "*" (match-string 1)))))))
+
 ;; (anything 'anything-c-source-org-headline)
 
 ;;;; <Misc>

(defvar anything-c-source-bookmark-set
  '((name . "Set Bookmark")
    (dummy)
    (action . bookmark-set)))
;; (anything 'anything-c-source-bookmark-set)

;;; Visible Bookmarks

    (get-line . buffer-substring)
    (action . (lambda (line)
                (customize-face (intern (car (split-string line))))))
    (requires-pattern . 3))
  "See (info \"(emacs)Faces\")")
;; (anything 'anything-c-source-customize-face)

;; Color
