* swiper.el: make line numbers consistent with display-line-numbers

Three changes were made to the 'swiper' line numbers to make it more
like the builtin 'display-line-numbers-mode'

1. The line numbers are now right justified
   see: 'swiper--candidates'

2. The line numbers now have custom faces based on the builtin
   line-number and line-number-current-line faces
   see: 'swiper-line-number-face'
        'swiper-current-line-number-face'

3. The current line number is highlighted. using an ivy format
   function
   see 'swiper--format-function'

Author: mitch-kyle

swiper.el

@@ -86,6 +86,16 @@
   "Face for current `swiper' line."
   :group 'ivy-faces)
 
+(defface swiper-line-number-face
+  '((t (:inherit line-number)))
+  "Face for `swiper' line numbers."
+  :group 'ivy-faces)
+
+(defface swiper-current-line-number-face
+  '((t (:inherit line-number-current-line)))
+  "Face for current `swiper' line number."
+  :group 'ivy-faces)
+
 (defcustom swiper-faces '(swiper-match-face-1
                           swiper-match-face-2
                           swiper-match-face-3
@@ -514,6 +524,29 @@ such as `scroll-conservatively' are set to a high value.")
   "A predicate that decides whether `line-move' or `forward-line' is used.
 Note that `line-move' can be very slow.")
 
+(defun swiper--format-function (candidates)
+  "Format function for swiper CANDIDATES.
+
+Highlight current line number as in `display-line-numbers'."
+  (ivy--format-function-generic
+   (lambda (str)
+     (let ((ln (if swiper-include-line-number-in-search str
+                     ;; concat to make copy before modifing properties
+                     (concat (get-text-property 0 'display str)))))
+       (when (and ln
+                  (eq (get-text-property 0 'face ln)
+                      'swiper-line-number-face))
+         (put-text-property
+          0 (next-single-property-change 0 'face ln (1- (length ln)))
+          'face 'swiper-current-line-number-face
+          ln)
+         (unless swiper-include-line-number-in-search
+           (put-text-property 0 1 'display ln str))))
+     (ivy--add-face str 'ivy-current-match))
+   (lambda (str) str)
+   candidates
+   "\n"))
+
 (defun swiper--candidates (&optional numbers-width)
   "Return a list of this buffer lines.
 
@@ -536,7 +569,7 @@ numbers; replaces calculating the width from buffer line count."
       (setq swiper--width (or numbers-width
                               (1+ (floor (log n-lines 10)))))
       (setq swiper--format-spec
-            (format "%%-%dd " swiper--width))
+            (format " %%%dd " swiper--width))
       (let ((line-number 1)
             (advancer (if swiper-use-visual-line
                           (lambda (arg) (line-move arg t))
@@ -550,7 +583,8 @@ numbers; replaces calculating the width from buffer line count."
               (let ((str (swiper--line)))
                 (setq str (ivy-cleanup-string str))
                 (let ((line-number-str
-                       (format swiper--format-spec line-number)))
+                       (propertize (format swiper--format-spec line-number)
+                                   'face 'swiper-line-number-face)))
                   (if swiper-include-line-number-in-search
                       (setq str (concat line-number-str str))
                     (put-text-property
@@ -830,7 +864,8 @@ When non-nil, INITIAL-INPUT is the initial search pattern."
   :occur #'swiper-occur
   :update-fn #'swiper--update-input-ivy
   :unwind-fn #'swiper--cleanup
-  :index-fn #'ivy-recompute-index-swiper)
+  :index-fn #'ivy-recompute-index-swiper
+  :format-fn #'swiper--format-function)
 
 (defun swiper-toggle-face-matching ()
   "Toggle matching only the candidates with `swiper-invocation-face'."