elisp реализация команды uniq -c Unix для подсчета уникальных строк

Я полагаю, что распространенным методом было бы просто хешировать строки, а затем печатать содержимое. Этот подход может быть легко реализован в emacs.

;; See the emacs manual for creating a hash table test
;; https://www.gnu.org/software/emacs/manual/html_node/elisp/Defining-Hash.html
(defun case-fold-string= (a b)
  (eq t (compare-strings a nil nil b nil nil t)))
(defun case-fold-string-hash (a)
  (sxhash (upcase a)))

(define-hash-table-test 'case-fold
  'case-fold-string= 'case-fold-string-hash)

(defun uniq (beg end)
  "Print counts of strings in region."
  (interactive "r")
  (let ((h (make-hash-table :test 'case-fold))
        (lst (split-string (buffer-substring-no-properties beg end) "\n"
                           'omit-nulls " "))
        (output-func (if current-prefix-arg 'insert 'princ)))
    (dolist (str lst) 
      (puthash str (1+ (gethash str h 0)) h))
    (maphash (lambda (key val)
               (apply output-func (list (format "%d: %s\n" val key))))
             h)))

Вывод при выборе этого текста

4: flower
1: park
3: stone

Я полагаю, что есть много подходов, которые вы могли бы использовать для этого. Вот довольно простой подход:

(defun uniq-c (beginning end)
  "Like M-| uniq -c"
  (interactive "r")
  (let ((source (current-buffer))
        (dest (generate-new-buffer "*uniq-c*"))
        (case-fold-search nil))
    (set-buffer dest)
    (insert-buffer-substring source beginning end)
    (goto-char (point-min))
    (while (let* ((line (buffer-substring (line-beginning-position)
                                          (line-end-position)))
                  (pattern (concat "^" (regexp-quote line) "$"))
                  (count (count-matches pattern (point) (point-max))))
             (insert (format "%d " count))
             (forward-line 1)
             (flush-lines pattern)
             (not (eobp))))
    (pop-to-buffer dest)))

Это похоже на uniq -c в bash.

Тогда почему бы не использовать uniq -c?

С выделенным регионом M-| "sort | uniq -c" запустит эту команду в текущем регионе. Результаты отобразятся в минибуфере и будут перечислены в буфере *Messages*. Добавление префикса arg приведет к вставке результатов в текущий буфер.