Emacs Evil-Modus: Wie erstellt man ein neues Textobjekt, um Wörter mit beliebigen Nicht-Leerzeichen auszuwählen?

Question

Ich versuche, ein neues Textobjekt in Evil zu erstellen. Zum Beispiel wird das Textobjekt iw nur Teilmengen von Strings auswählen, die Bindestriche enthalten. Ich möchte, dass das neue Textobjekt Wörter mit beliebigen Nicht-Leerzeichenzeichen abgleicht. Was ich bis jetzt bekommen habe ist:

(evil-define-text-object evil-inner-space (count &optional beg end type) 
    "Select inner space." 
    :extend-selection nil 
    (evil-regexp-range count beg end type "[ \n]" " " t)) 

(define-key evil-inner-text-objects-map " " 'evil-inner-space) 

Dieser Code stimmt nicht überein Wörter am Ende einer Zeile korrekt zu entsprechen. Es funktioniert für Wörter am Anfang einer Zeile dank \ n.

Ich habe viele Dinge versucht, die nicht funktionierten. Das Problem für mich ist, dass, wenn etwas nicht funktioniert, ich nicht weiß, ob es aufgrund einer falschen Regexp oder Einschränkungen im Bösen-Regexp-Bereich ist. Zum Beispiel meldet die Verwendung von \ s - einen Fehler, der im Bösen eine Einschränkung darstellt.

Answer 1

Die richtige Regexp ist "\ |.? $". Der folgende Code implementiert ein neues Textobjekt, das einem beliebigen Nicht-Leerzeichen entspricht.

(evil-define-text-object evil-inner-space (count &optional beg end type) 
    "Select inner space." 
    :extend-selection nil 
    (evil-regexp-range count beg end type "[ \n]" " \\|.?$" t)) 

Answer 2

aktualisieren: evil-regexp-range was recently replaced with evil-select-paren. Dies funktioniert auf dem gegenwärtigen Übel und hat die gleiche Nutzung wie die alten:

(defmacro define-and-bind-text-object (key start-regex end-regex) 
    (let ((inner-name (make-symbol "inner-name")) 
     (outer-name (make-symbol "outer-name"))) 
    `(progn 
     (evil-define-text-object ,inner-name (count &optional beg end type) 
     (evil-select-paren ,start-regex ,end-regex beg end type count nil)) 
     (evil-define-text-object ,outer-name (count &optional beg end type) 
     (evil-select-paren ,start-regex ,end-regex beg end type count t)) 
     (define-key evil-inner-text-objects-map ,key (quote ,inner-name)) 
     (define-key evil-outer-text-objects-map ,key (quote ,outer-name))))) 

---

Ursprüngliche Antwort:

Wenn Sie mehr als ein neues Textobjekt am Ende definieren, kann die Wiederholung bekommen ärgerlich, vor allem, wenn Sie sowohl innere als auch äußere Objekte binden wollen. Wenn Sie diese Barriere treffen, versuchen Sie dies:

(defmacro define-and-bind-text-object (key start-regex end-regex) 
    (let ((inner-name (make-symbol "inner-name")) 
     (outer-name (make-symbol "outer-name"))) 
    `(progn 
     (evil-define-text-object ,inner-name (count &optional beg end type) 
     (evil-regexp-range count beg end type ,start-regex ,end-regex t)) 
     (evil-define-text-object ,outer-name (count &optional beg end type) 
     (evil-regexp-range count beg end type ,start-regex ,end-regex nil)) 
     (define-key evil-inner-text-objects-map ,key (quote ,inner-name)) 
     (define-key evil-outer-text-objects-map ,key (quote ,outer-name))))) 

Verbrauch:

; between dollar signs: 
(define-and-bind-text-object "$" "\\$" "\\$") 

; between pipe characters: 
(define-and-bind-text-object "|" "|" "|") 

; from regex "b" up to regex "c", bound to k (invoke with "vik" or "vak"): 
(define-and-bind-text-object "k" "b" "c") 

(Dies ist mehr als man wollte, aber ich werde es hier lassen, falls es jemand hilft :)

Answer 3

Ich glaube nicht, dass Sie ein neues Textobjekt erstellen müssen. Evil enthält das Symboltextobjekt. Die Symbolsyntax wird durch den Hauptmodus definiert und enthält normalerweise Bindestriche, Zahlen, Unterstriche und andere Nicht-Leerzeichen.

Das Symboltextobjekt ist an o gebunden. Die Definition ist um evil-maps.el at Bitbucket