--- a/ag.el Thu Mar 30 10:56:58 2017 +0300
+++ b/ag.el Thu Mar 30 11:00:49 2017 +0300
@@ -3,6 +3,12 @@
;;; Commentary:
;;
+(defgroup my-ag nil
+ "My own ag search front-end."
+ :prefix "my-ag"
+ :group 'tools
+ :group 'processes)
+
(defun my-ag-goto ()
(interactive)
(save-excursion
@@ -36,10 +42,12 @@
(defface my-ag/lineno-face
'((t :inherit warning))
- "Face for line number.")
+ "Face for line number."
+ :group 'my-ag)
(defface my-ag/path-face
'((t :inherit success))
- "Face for line number.")
+ "Face for line number."
+ :group 'my-ag)
(defvar my-ag/keywords
'(("^[1-9][0-9]\\{0,5\\}:" . (0 'my-ag/lineno-face))