Move {core,modules}/lib/*.el to {core,modules}/defuns/

core/lib/defuns-repl.el

@@ -1,35 +0,0 @@
-;;; defuns-repl.el
-
-(defvar narf--repl-buffer nil)
-;;;###autoload  (autoload 'narf:repl "defuns-repl" nil t)
-(evil-define-command narf:repl (&optional bang)
-  :repeat nil
-  (interactive "<!>")
-  (if (and narf--repl-buffer (buffer-live-p narf--repl-buffer))
-      (if (popwin:popup-window-live-p)
-          (popwin:select-popup-window)
-        (popwin:pop-to-buffer narf--repl-buffer))
-    (rtog/toggle-repl (if (use-region-p) 4))
-    (setq narf--repl-buffer (current-buffer))))
-
-;;;###autoload  (autoload 'narf:repl-eval "defuns-repl" nil t)
-(evil-define-operator narf:repl-eval (&optional beg end bang)
-  :type inclusive
-  :repeat nil
-  (interactive "<r><!>")
-  (let ((region-p (use-region-p))
-        (selection (s-trim (buffer-substring-no-properties beg end))))
-    (narf:repl bang)
-    (when (and region-p beg end)
-      (let* ((buf narf--repl-buffer)
-             (win (get-buffer-window buf)))
-        (unless (eq buf popwin:popup-buffer)
-          (popwin:pop-to-buffer buf nil t))
-        (when (and narf--repl-buffer (buffer-live-p narf--repl-buffer))
-          (with-current-buffer narf--repl-buffer
-            (goto-char (point-max))
-            (insert selection)))))))
-
-
-(provide 'defuns-repl)
-;;; defuns-repl.el ends here