[elpa] externals/mct cef37c3bc8 02/21: Remove files that will not be used henceforth (DEVELOPMENT RESTART)

[ELPA Syncer]

branch: externals/mct
commit cef37c3bc84140474799897279a66d5e780c05f8
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Remove files that will not be used henceforth (DEVELOPMENT RESTART)
---
 Makefile   |  24 ------------
 mct-avy.el | 100 --------------------------------------------------
 mct-tcm.el | 121 -------------------------------------------------------------
 3 files changed, 245 deletions(-)

diff --git a/Makefile b/Makefile
deleted file mode 100644
index b8e8cd1117..0000000000
--- a/Makefile
+++ /dev/null
@@ -1,24 +0,0 @@
-.POSIX:
-.SUFFIXES: .el .elc
-
-EMACS    = emacs
-MAKEINFO = makeinfo
-COMPILE  = mct.elc
-
-all: compile mct.info
-
-.PHONY: compile
-compile: $(COMPILE)
-
-.PHONY: clean
-clean:
-       rm -f $(COMPILE) mct.texi mct.info
-
-mct.texi: README.org
-       $(EMACS) -Q --batch $< -f org-texinfo-export-to-texinfo --kill
-
-mct.info: mct.texi
-       $(MAKEINFO) $<
-
-.el.elc:
-       $(EMACS) -Q --batch -L . -f batch-byte-compile $^
diff --git a/mct-avy.el b/mct-avy.el
deleted file mode 100644
index c991af427e..0000000000
--- a/mct-avy.el
+++ /dev/null
@@ -1,100 +0,0 @@
-;;; mct-avy.el --- MCT integration with Avy -*- lexical-binding: t -*-
-
-;; Copyright (C) 2022  Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; URL: https://git.sr.ht/~protesilaos/mct
-;; Version: 0.5.0
-;; Package-Requires: ((emacs "27.1") (mct "0.5"))
-
-;; This file is NOT part of GNU Emacs.
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or (at
-;; your option) any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; UPDATE 2022-04-15: Development of this package has been discontinued:
-;; <https://protesilaos.com/codelog/2022-04-14-emacs-discontinue-mct/>.
-;;
-;; MCT extension which provides the means to select a completion
-;; candidate with the `avy' package's mode of interaction.
-;;
-;; Inspired by Omar Antolín Camarena's `avy-embark-collect.el'.  The
-;; `mct-avy-choose' function borrows code or ideas from that library:
-;; <https://github.com/oantolin/embark/>.
-
-;;; Code:
-
-;;;; General utilities
-
-(require 'mct)
-
-(declare-function avy-process "avy" (candidates &optional overlay-fn 
cleanup-fn))
-
-(defun mct-avy-choose (&optional fn)
-  "Use Avy to go to completion candidate and optionally run FN."
-  (cond
-   ((mct--get-completion-window)
-    (mct-switch-to-completions-top)
-    (goto-char
-     (avy-process
-      (save-excursion
-        (let (completions)
-          (goto-char (mct--last-completion-point))
-          (while (not (bobp))
-            (push (point) completions)
-            (previous-completion 1))
-          completions))))
-    (when fn (funcall fn)))
-   (t (user-error "No Completions' buffer available"))))
-
-;;;###autoload
-(defun mct-avy-choose-completion-exit ()
-  "Use Avy to run `mct-choose-completion-exit' on candidate."
-  (interactive)
-  (mct-avy-choose #'mct-choose-completion-exit))
-
-;;;###autoload
-(defun mct-avy-choose-completion-dwim ()
-  "Use Avy to run `mct-choose-completion-dwim' on candidate."
-  (interactive)
-  (mct-avy-choose #'mct-choose-completion-dwim))
-
-;;;###autoload
-(defun mct-avy-choose-completion-jump ()
-  "Use Avy to jump to the selected candidate."
-  (interactive)
-  (mct-avy-choose))
-
-;;;###autoload
-(defun mct-avy-region-choose-completion ()
-  "Use Avy to run `choose-completion' on candidate.
-Intended for use with the MCT region mode for in-buffer
-completion where the minibuffer is not active."
-  (interactive)
-  (mct-avy-choose #'choose-completion))
-
-(declare-function embark-act "embark" (&optional arg))
-
-;;;###autoload
-(defun mct-avy-embark-act ()
-  "Use Avy to run `embark-act' on candidate.
-Requires the `embark' package."
-  (interactive)
-  (if (require 'embark nil t)
-      (mct-avy-choose #'embark-act)
-    (user-error "The `embark' package has not been loaded")))
-
-(provide 'mct-avy)
-;;; mct-avy.el ends here
diff --git a/mct-tcm.el b/mct-tcm.el
deleted file mode 100644
index 0f73b82043..0000000000
--- a/mct-tcm.el
+++ /dev/null
@@ -1,121 +0,0 @@
-;;; mct-tcm.el --- MCT which Treats the Completions as the Minibuffer -*- 
lexical-binding: t -*-
-
-;; Copyright (C) 2022  Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; URL: https://git.sr.ht/~protesilaos/mct
-;; Version: 0.5.0
-;; Package-Requires: ((emacs "27.1") (mct "0.5"))
-
-;; This file is NOT part of GNU Emacs.
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or (at
-;; your option) any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; UPDATE 2022-04-15: Development of this package has been discontinued:
-;; <https://protesilaos.com/codelog/2022-04-14-emacs-discontinue-mct/>.
-;;
-;; MCT extension which Treats the Completions as the Minibuffer.  It
-;; intercepts any single character input (without Control or Alt
-;; modifiers) in the Completions' buffer and passes it to the minibuffer
-;; as input.  This practically means that the user can (i) narrow the
-;; list of candidates from the minibuffer, (ii) switch to the
-;; Completions in anticipation of selecting a candidate, (iii) change
-;; their mind and opt to narrow further, (iv) type something to bring
-;; focus back to the minibuffer while narrowing to the given input.
-;;
-;; When the `mct-tcm-mode' is enabled and the above sequence of events
-;; takes place, the current session is treated as if it belongs to the
-;; `mct-completion-passlist' (read its doc string).
-
-;;; Code:
-
-;;;; General utilities
-
-(require 'mct)
-(require 'seq)
-(eval-when-compile (require 'subr-x))
-
-;; FIXME 2022-02-22: Silence message when key binding is undefined.
-;;;###autoload
-(define-minor-mode mct-tcm-mode
-  "MCT extension which Treats the Completions as the Minibuffer.
-It intercepts any single character input (without Control or Alt
-modifiers) in the Completions' buffer and passes it to the
-minibuffer as input.  This practically means that the user
-can (i) narrow the list of candidates from the minibuffer, (ii)
-switch to the Completions in anticipation of selecting a
-candidate, (iii) change their mind and opt to narrow
-further, (iv) type something to bring focus back to the
-minibuffer while narrowing to the given input.
-
-When this mode is enabled and the above sequence of events takes
-place, the current session is treated as if it belongs to the
-`mct-completion-passlist' (read its doc string)."
-  :global t
-  :group 'mct
-  (if mct-tcm-mode
-      (add-hook 'completion-list-mode-hook 
#'mct-tcm--setup-redirect-self-insert)
-    (remove-hook 'completion-list-mode-hook 
#'mct-tcm--setup-redirect-self-insert)))
-
-;; NOTE 2022-02-25: This assumes that `kill-word' is bound to those
-;; keys.  Is there a more general method?
-(defun mct-tcm--kill-word-p (keys)
-  "Return non-nil if KEYS are C-DEL or M-DEL."
-  (or (seq-contains-p keys 'C-backspace)
-      (seq-contains-p keys '134217855)))
-
-(defun mct-tcm--insertable-char-p (char)
-  "Retun non-nil if CHAR can be used with `insert'."
-  (and (char-or-string-p char)
-       (or (memq 'shift (event-modifiers char))
-           (not (event-modifiers char)))))
-
-(defun mct-tcm--redirect-self-insert (&rest _)
-  "Redirect single character keys as input to the minibuffer."
-  (when-let* ((mct-tcm-mode)
-              (keys (this-single-command-keys))
-              (char (aref keys 0))
-              (mini (active-minibuffer-window)))
-    (let* ((delete-char (seq-contains-p keys '127)) ; Same assumption as 
`mct-tcm--kill-word-p'
-           (kill-word (mct-tcm--kill-word-p keys))
-           (del (or delete-char kill-word)))
-      (when (or del (mct-tcm--insertable-char-p char))
-        (select-window mini)
-        (setq-local completion-at-point-functions nil
-                    mct-live-completion t
-                    mct-live-update-delay 0
-                    mct-minimum-input 0)
-        (goto-char (point-max))
-        (let ((empty (string-empty-p (minibuffer-contents))))
-          (cond
-           (kill-word
-            (when empty (push-mark))
-            (kill-word -1))
-           (delete-char
-            (unless empty
-              (delete-char -1)))
-           ;; FIXME 2022-02-25: Emacs 27 inserts twice.  It inserts once
-           ;; even without the `insert' here.
-           (t
-            (insert char))))))))
-
-(defun mct-tcm--setup-redirect-self-insert ()
-  "Set up `mct-tcm--redirect-self-insert'."
-  (when (mct--minibuffer-p)
-    (add-hook 'pre-command-hook #'mct-tcm--redirect-self-insert nil t)))
-
-(provide 'mct-tcm)
-;;; mct-tcm.el ends here