From 3a25a46254d7bea2c40f1f63b9cc873c934bc160 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Mon, 6 Apr 2015 22:10:45 -0400 Subject: Add smart key for dplyr pipe --- lisp/init-ess.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'lisp') diff --git a/lisp/init-ess.el b/lisp/init-ess.el index e2edaf9..fb6376a 100644 --- a/lisp/init-ess.el +++ b/lisp/init-ess.el @@ -21,4 +21,21 @@ (add-to-list 'auto-mode-alist '("\\.[rR]\\'" . R-mode)) +(defvar km/ess-dplry-pipe-key "|") + +(defun km/ess-insert-dplyr-pipe () + "Insert `km/ess-dplry-pipe' using `ess-smart-S-assign'. +Based on instructions in `ess-smart-S-assign-key', I didn't think +this would work, but it seems to so far." + (interactive) + (let ((ess-S-assign " %>% ") + (ess-smart-S-assign-key km/ess-dplry-pipe-key)) + (call-interactively #'ess-smart-S-assign))) + +(after 'ess-mode + (define-key ess-mode-map "|" 'km/ess-insert-dplyr-pipe)) + +(after 'ess-inf + (define-key inferior-ess-mode-map "|" 'km/ess-insert-dplyr-pipe)) + (provide 'init-ess) -- cgit v1.2.3