Yasnippet ve şirketin daha iyi çalışmasını sağlamak

Emacs, diyelim ki, "elisp"org modunda bir lisp bloğunu uzatmak için bir yasnipet kullanıyorum . Bunu uzatmak önce şirketin bana böyle bir menü veren ilk olarak tetiklenen "1. elisp1, 2. elisp2"bir seçenek olmadan "elisp". Şimdi eğer tabyasnipeti uzatmak için kullanırsam, her "elisp1"zaman ilk önce ekranda görünmesi can sıkıcıdır . Bu yüzden "1"öncelikle silmem ve yasnippet snippet'ini uzatmam gerekiyor.

Bu yüzden bir çözüm olarak, önce şirket tamamlama menüsünü kapatmak için her zaman sol ok tuşunu kullandım, ancak imleç şimdi gidecek "elis|p", bu yüzden tekrar imleci sonuna kadar hareket ettirmek "elisp|"ve snippet'i uzatmak için sağ ok tuşunu kullanıyorum .

İşte benim sorum şu: Nasıl bir tabanahtarla bağlanırım yasnippet'i ilk önce tetikler ama şirket beni kurtarmaz?

Aynı mesele ile kendim için yarattığım şey bu. Bu dan şirket modun Emacs Wiki sayfasında , ancak yoğun genişletilmiş:

(defun check-expansion ()
  (save-excursion
    (if (looking-at "\\_>") t
      (backward-char 1)
      (if (looking-at "\\.") t
    (backward-char 1)
    (if (looking-at "->") t nil)))))

(defun do-yas-expand ()
  (let ((yas/fallback-behavior 'return-nil))
    (yas/expand)))

(defun tab-indent-or-complete ()
  (interactive)
  (cond
   ((minibufferp)
    (minibuffer-complete))
   (t
    (indent-for-tab-command)
    (if (or (not yas/minor-mode)
        (null (do-yas-expand)))
    (if (check-expansion)
        (progn
          (company-manual-begin)
          (if (null company-candidates)
          (progn
            (company-abort)
            (indent-for-tab-command)))))))))

(defun tab-complete-or-next-field ()
  (interactive)
  (if (or (not yas/minor-mode)
      (null (do-yas-expand)))
      (if company-candidates
      (company-complete-selection)
    (if (check-expansion)
      (progn
        (company-manual-begin)
        (if (null company-candidates)
        (progn
          (company-abort)
          (yas-next-field))))
      (yas-next-field)))))

(defun expand-snippet-or-complete-selection ()
  (interactive)
  (if (or (not yas/minor-mode)
      (null (do-yas-expand))
      (company-abort))
      (company-complete-selection)))

(defun abort-company-or-yas ()
  (interactive)
  (if (null company-candidates)
      (yas-abort-snippet)
    (company-abort)))

(global-set-key [tab] 'tab-indent-or-complete)
(global-set-key (kbd "TAB") 'tab-indent-or-complete)
(global-set-key [(control return)] 'company-complete-common)

(define-key company-active-map [tab] 'expand-snippet-or-complete-selection)
(define-key company-active-map (kbd "TAB") 'expand-snippet-or-complete-selection)

(define-key yas-minor-mode-map [tab] nil)
(define-key yas-minor-mode-map (kbd "TAB") nil)

(define-key yas-keymap [tab] 'tab-complete-or-next-field)
(define-key yas-keymap (kbd "TAB") 'tab-complete-or-next-field)
(define-key yas-keymap [(control tab)] 'yas-next-field)
(define-key yas-keymap (kbd "C-g") 'abort-company-or-yas)

Temel olarak, bu çoğu zaman <tab>doğru olanı yapar . Sekmeye basmak

• Geçerli çizgiyi girinti,
• Eğer genişletmek için bir yaylı püskürtü varsa, genişletmek, bu şirketin tamamlanmadığı anlamına gelse bile (kısaltmaları fazla kullanmıyorum, bu nedenle henüz kısaltma desteği yok),
• Bir şirketin tamamlanması sürüyorsa, seçilen öğeyle tamamlayın,
• Aksi takdirde, otomatik tamamlama işlemini başlatmak için şirketi kullanmayı deneyin
• Otomatik tamamlayacak bir şey yoksa ve bir yaylacı yer tutucusuysak, bir sonraki yer tutucusuna atlayın.

Otomatik tamamlama fırsatı varsa ve şu anda bir snippet yer tutucusunda düzenleme yapıyorsanız, durumun belirsiz olduğunu unutmayın. Bir uzlaşma olarak, C-<tab>doğrudan bir sonraki yer tutucuya atlamak zorunda kaldım.

Snippet'in adının şirket menüsünde görünmemesi ve bir snippet'in varlığı sekme tuşunun davranışını sessizce değiştirmesi aslında hoş değil, ne yazık ki ... En azından <return>tamamlanmak yerine yazmak mümkün olsa da snippet'in

İşte kullanıyorum kodu:

(global-set-key "\C-o" 'aya-open-line)

(defun aya-open-line ()
  "Call `open-line', unless there are abbrevs or snippets at point.
In that case expand them.  If there's a snippet expansion in progress,
move to the next field. Call `open-line' if nothing else applies."
  (interactive)
  (cond ((expand-abbrev))

        ((yas--snippets-at-point)
         (yas-next-field-or-maybe-expand))

        ((ignore-errors
           (yas-expand)))

        (t
         (open-line 1))))

aya-open-linedan otomatik yasnippet düz daha fazlasını yapıyor open-line:

• kısaltmaları genişletmeye çalışır
• bir sonraki yasnippet alanına taşınmaya çalışıyor
• yasnippet'i genişletmeye çalışıyor
• Sonunda, open-linediğerleri başarısız olursa çağırır.