Lisp: Add D-Bus methods to Imenu.

.emacs.d/lisp/init-lisp.el

@@ -19,6 +19,18 @@
 ;; Following defines are common, e.g. in Next.
 (ambrevar/enhance-imenu-lisp "mode" "command" "parenscript")
 
+;; For cl-dbus.
+(add-to-list
+ 'lisp-imenu-generic-expression
+ (list (purecopy "D-Bus")
+       (purecopy (concat "^\\s-*("
+                         (eval-when-compile
+                           (regexp-opt
+                            (list "dbus:define-dbus-method")
+                            t))
+                         "\\s-+(\\([^)]+\\)"))
+       2))
+
 (add-hook 'lisp-mode-hook 'ambrevar/turn-on-prettify-before-save)
 (add-hook 'lisp-mode-hook 'ambrevar/turn-on-complete-filename)
 (add-hook 'lisp-mode-hook 'ambrevar/turn-on-tab-width-to-8) ; Because some existing code uses tabs.