lispy.el (lispy-tilde): add and bind to "~"

* lispy-test.el (lispy-with): Update for the case when there's more than
  one ~ in the input.
(lispy-outline-add): Add test.

Author: abo-abo

lispy-test.el

@@ -16,10 +16,11 @@
      (transient-mark-mode 1)
      (lispy-mode)
      (insert ,in)
-     (when (search-backward "~" nil t)
-       (delete-char 1)
-       (set-mark (point))
-       (goto-char (point-max)))
+     (goto-char (point-min))
+     (when (search-forward "~" nil t)
+       (backward-delete-char 1)
+       (set-mark (point)))
+     (goto-char (point-max))
      (search-backward "|")
      (delete-char 1)
      (setq current-prefix-arg)
@@ -1243,6 +1244,12 @@ Insert KEY if there's no command."
   (should (string= (lispy-with "|;;* Intro" "a")
                    ";;* Intro\n;;* |")))
 
+(ert-deftest lispy-outline-add ()
+  (should (string= (lispy-with "(quote ~foo|)" "~")
+                   "(quote ~~foo|)"))
+  (should (string= (lispy-with "(quote ~~foo|)" "~")
+                   "(quote ~foo|)")))
+
 (provide 'lispy-test)
 
 ;;; lispy-test.el ends here

lispy.el

@@ -1277,6 +1277,20 @@ Special case is (|( -> ( |(."
   (lispy--space-unless "\\s-\\|\\s(\\|[:?`']\\\\?")
   (insert "`"))
 
+(defun lispy-tilde (arg)
+  "Insert ~ ARG times.
+When region is active, toggle a ~ at the start of the region."
+  (interactive "p")
+  (if (region-active-p)
+      (let ((bnd (lispy--bounds-dwim))
+            deactivate-mark)
+        (save-excursion
+          (goto-char (car bnd))
+          (if (eq (char-after) ?~)
+              (delete-char 1)
+            (insert "~"))))
+    (self-insert-command 1)))
+
 (defun lispy-hash ()
   "Insert #."
   (interactive)
@@ -5318,6 +5332,7 @@ FUNC is obtained from (`lispy--insert-or-call' DEF PLIST)"
   (lispy-define-key map "V" 'lispy-visit)
   (lispy-define-key map "-" 'lispy-ace-subword)
   (lispy-define-key map "." 'lispy-repeat)
+  (lispy-define-key map "~" 'lispy-tilde)
   ;; ——— locals: digit argument ———————————————
   (mapc (lambda (x) (lispy-define-key map (format "%d" x) 'digit-argument))
         (number-sequence 0 9)))