Thu 10 Jun 2021 16:13:28

11111000000 · Jun 10, 2021 · a63556a · a63556a
1 parent d9a84c3
commit a63556a
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/pen-core.el b/pen-core.el
@@ -11,7 +11,19 @@
     (beginning-of-line)
     (point)))
 
+(defun clean-repl (&optional input)
+  (interactive (list (pen-preceding-text-line)))
+
+  (let ((ret
+         (snc "clean-repl" input)))
+    (if (interactive-p)
+        (xc ret)
+      ret)))
+(defalias 'clean-prompt 'clean-repl)
+
 (defun pen-preceding-text-line ()
+  (cond
+   (major-mode-p 'term-mode))
   (str (buffer-substring (point) (max 1 (beginning-of-line-point)))))