Cambiar el orden de los símbolos para «sort-lines»

7

Estoy usando «sort-lines» para ordenar incluir s en archivos C / C ++ antes de guardar. El problema que surge es que los encabezados con "símbolos se ordenan más alto que los que tienen <símbolos. Pero quiero lo contrario.

¿Cómo cambio el orden para que el <personaje tenga mayor prioridad que el "símbolo?

sorting

— Hola angel
fuente

2

Es posible que deba escribir su propia función de predicado y llamar sort-subrdirectamente. O ... como truco, podrías aconsejar sort-linesque antes del orden intercambies "y los <personajes y luego después del tipo los vuelvas a intercambiar. :-)

— glucas

2

Puedes usar sort-regexp-fields. Marque la región y haga:

M-x sort-regexp-fields RET #include .\(.*\) RET \1 RET

El grupo de expresiones regulares capturará todo después #include "o #include <y lo ordenará en lugar de la línea completa.

Para su información, creo que la razón de la clasificación que está viendo es porque "es más alta que <en ASCII.

— niñera
fuente

1

Gracias, ya pensé en ordenar por el nombre de un encabezado e ignorar la apertura <, los "símbolos. Pero llegué a la conclusión de que los encabezados ordenados de esta manera se ven un poco desordenados, es por eso que solo quiero cambiar el orden de los personajes.

— Hola Angel

2

Mientras tanto, escribí un código para implementar el hack que mencionó @glucas. Tal vez solo se adapte al propósito de ordenar encabezados en C, pero espero que alguien lo encuentre útil.

(defun replace-char-after (character-number replacement)
  "Replaces char in the buffer after the `character-number' with `replacement'"
  (save-excursion
    (goto-char character-number)
    (delete-char 1)
    (insert-char replacement)))

(defun replace-delimiters (old-closing-char new-opening-char new-closing-char opening-point end-point)
  "Replaces delimiters between `opening-point' and the
`end-point'. Note, that the `opening-point' should point to the
opening symbol, thus the function seeks only the closing"
  (block replace-delimiters
    (let ((closing-point opening-point))
      (setq closing-point (+ 1 opening-point))
      (while (< closing-point end-point)
        (if (eq (char-after closing-point) ?\n) ;;no closing delimiter
            (progn
              (print "Err: no closing delimiter")
              (return-from replace-delimiters nil))
          (when (eq (char-after closing-point) old-closing-char)
            (progn
              (replace-char-after opening-point new-opening-char);;opening delimiter
              (replace-char-after closing-point new-closing-char);;closing delimiter
              (return-from replace-delimiters (+ 1 closing-point)))))
        (setq closing-point (+ closing-point 1))))))

(defun swap-<-and-quote-includes (beg end)
    "Swaps in the text between `beg' and `end' the matching «<» and
  «>» character to the \" quote, and vice versa. Mainly used
  before sorting to swap the order of these characters, next
  after the sort to restore the text."
  (block swap-<-and-quote-includes
    (let ((curr-point beg))
      (while (< curr-point end)
        (setq curr-point (+ curr-point 1))
        ;;first check «"»
        (if (eq (char-after curr-point) ?\")
            (progn
              (setq curr-point (replace-delimiters ?\" ?< ?> curr-point end))
              (if (eq curr-point nil)
                  (return-from swap-<-and-quote-includes t)))
          ;;else if «<»
          (if (eq (char-after curr-point) ?<)
              (progn
                (setq curr-point (replace-delimiters ?\> ?\" ?\" curr-point end))
                (if (eq curr-point nil)
                    (return-from swap-<-and-quote-includes t)))))))))

La función swap-<-and-quote-includestransforma cada texto como <foo>a "foo", y cada "foo"a <foo>dentro del rango dado beg , final .

Y aquí está el código para buscar y ordenar encabezados:

(defun sort-lines-nocase (reverse beg end)
  (let ((sort-fold-case t))
    (sort-lines reverse beg end)))

(defun c-sort-includes ()
  "Sorts #include statements"
  (interactive)
  (save-excursion
    (let (beg end orig-content sorted-content)
      (goto-char (point-min))
      (while (and (not (looking-at "#include "));;look for includes, if no then
                  (eq (forward-line 1) 0) ;;go one line down (if not EOF).
                  ))
      (setq beg (point))
      (while (and (looking-at "#include ")
                  (eq (forward-line 1) 0)));;to not hang cuz of EOF
      (setq end (point))
      (setq orig-content (buffer-substring-no-properties beg end))
      (setq sorted-content (with-temp-buffer
                             (insert orig-content)
                             (swap-<-and-quote-includes (point-min) (point-max)) ;;swap characters < and > in includes
                             (sort-lines-nocase (point-min) (point-max)) ;;sort
                             (swap-<-and-quote-includes (point-min) (point-max)) ;;swap the characters  back
                             (buffer-string)))
      (when (not (string= orig-content sorted-content))
        (kill-region beg end)
        (insert sorted-content))
      )))

La función c-sort-includesbusca el primer párrafo de «#include» s, y lo ordena. Lo agregué before-save-hookcon un código para ejecutarlo solo para los modos C y C ++. Contras conocidas: α) solo se ordenará el primer párrafo con inclusiones. Esto se debe a que la búsqueda hasta el final de un archivo puede ser costosa, por ejemplo, en mi trabajo con el que encontré un .carchivo recientemente , ¿te lo puedes imaginar? - ≈16000 líneas! La solución correcta sería un modo menor, que rastrearía dónde residen los bloques de encabezado en el archivo. β) En Emacs anteriores, a partir de ≈2015 años, la función podía bloquearse; era un error que luego se solucionó.

— Hola angel
fuente