(Emacs/elisp)~moving stuff around, deleting some old stuff

4 files changed, 0 insertions, 179 deletions

diff --git a/Emacs/.config/emacs/elisp/personal-primary-theme.el b/Emacs/.config/emacs/archive/personal-primary-theme.el
index 6f4aa8f..6f4aa8f 100644
--- a/Emacs/.config/emacs/elisp/personal-primary-theme.el
+++ b/Emacs/.config/emacs/archive/personal-primary-theme.el
diff --git a/Emacs/.config/emacs/elisp/move.el b/Emacs/.config/emacs/elisp/move.el
deleted file mode 100644
index ed154fb..0000000
--- a/Emacs/.config/emacs/elisp/move.el
+++ /dev/null
@@ -1,80 +0,0 @@
-;;; move-line.el --- Move current line up or down    -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2024  Aryadev Chavali
-
-;; Author: Aryadev Chavali <aryadev@aryadevchavali.com>
-;; Keywords:
-
-;; This is free and unencumbered software released into the public domain.
-
-;; Anyone is free to copy, modify, publish, use, compile, sell, or
-;; distribute this software, either in source code form or as a compiled
-;; binary, for any purpose, commercial or non-commercial, and by any
-;; means.
-
-;; In jurisdictions that recognize copyright laws, the author or authors
-;; of this software dedicate any and all copyright interest in the
-;; software to the public domain. We make this dedication for the benefit
-;; of the public at large and to the detriment of our heirs and
-;; successors. We intend this dedication to be an overt act of
-;; relinquishment in perpetuity of all present and future rights to this
-;; software under copyright law.
-
-;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-;; IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR
-;; OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
-;; ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-;; OTHER DEALINGS IN THE SOFTWARE.
-
-;; For more information, please refer to <https://unlicense.org>
-
-;;; Commentary:
-
-;; Move the current line up or down.  Shamelessly copied from
-;; https://emacsredux.com/blog/2013/04/02/move-current-line-up-or-down/ so
-
-;;; Code:
-
-(defmacro +move/create-move (name description &rest body)
-  `(defun ,name (&optional arg)
-     ,description
-     (interactive "P")
-     (let ((arg (if (or (null arg) (< arg 1)) 1 arg)))
-       (while (not (= arg 0))
-         ,@body
-         (setq arg (- arg 1))))))
-
-(+move/create-move
- +move/line-up
- "Move the current line up"
- (transpose-lines 1)
- (forward-line -2)
- (indent-according-to-mode))
-
-(+move/create-move
- +move/line-down
- "Move the current line down"
- (forward-line 1)
- (transpose-lines 1)
- (forward-line -1)
- (indent-according-to-mode))
-
-(+move/create-move
- +move/word-forward
- "Move the current word forward"
- (forward-word 1)
- (transpose-words 1)
- (forward-word -1)
- (indent-according-to-mode))
-
-(+move/create-move
- +move/word-backward
- "Move the current word backward"
- (transpose-words 1)
- (forward-word -2)
- (indent-according-to-mode))
-
-(provide 'move)
-;;; move.el ends here
diff --git a/Emacs/.config/emacs/elisp/mpv.el b/Emacs/.config/emacs/elisp/mpv.el
deleted file mode 100644
index 94378e4..0000000
--- a/Emacs/.config/emacs/elisp/mpv.el
+++ /dev/null
@@ -1,53 +0,0 @@
-;;; mpv.el --- Open MPV through Emacs!               -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2024  Aryadev Chavali
-
-;; Author: Aryadev Chavali <aryadev@aryadevchavali.com>
-;; Keywords: convenience
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License Version
-;; 2 as published by the Free Software Foundation.
-
-;; 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:
-
-;;
-
-;;; Code:
-
-(autoload #'ffap-guesser "ffap")
-(autoload #'ansi-color-for-comint-mode-on "ansi-color")
-(autoload #'comint-mode "comint")
-(autoload #'comint-output-filter "comint")
-
-(defvar mpv-args "-v --profile=fast --hwdec=auto-copy"
-  "General arguments for mpv binary.")
-
-(defun mpv-start-process (url)
-  (message "[mpv]: Starting mpv on `%s'" url)
-  (with-current-buffer (get-buffer-create "*mpv*")
-    (ansi-color-for-comint-mode-on)
-    (comint-mode))
-  (set-process-filter (start-process-shell-command
-                       "mpv" "*mpv*"
-                       (concat "mpv " mpv-args " \"" url "\""))
-                      #'comint-output-filter))
-
-(defun mpv-open-video (&optional arg)
-  (interactive)
-  (let ((url (if (stringp arg)
-                 arg
-               (completing-read "Enter URL: " nil nil t (ffap-guesser) mpv--history))))
-    (mpv-start-process url)
-    (switch-to-buffer "*mpv*")))
-
-(provide 'mpv)
-;;; mpv.el ends here
diff --git a/Emacs/.config/emacs/elisp/yt-dlp.el b/Emacs/.config/emacs/elisp/yt-dlp.el
deleted file mode 100644
index 051ab5b..0000000
--- a/Emacs/.config/emacs/elisp/yt-dlp.el
+++ /dev/null
@@ -1,46 +0,0 @@
-;;; yt-dlp.el --- Using yt-dlp through Emacs         -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2024  Aryadev Chavali
-
-;; Author: Aryadev Chavali <aryadev@aryadevchavali.com>
-;; Keywords:
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License Version
-;; 2 as published by the Free Software Foundation.
-
-;; 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:
-
-;; Please for the love of god have a yt-dlp config.  We're not dealing with that
-;; for you.
-
-;;; Code:
-
-(autoload #'ansi-color-for-comint-mode-on "ansi-color")
-(autoload #'comint-mode "comint")
-(autoload #'comint-output-filter "comint")
-
-(defun yt-dlp-download-video (&optional url)
-  (interactive)
-  (let ((url (if (stringp url)
-                 url
-               (read-string "Enter URL: "))))
-    (message "[yt-dlp]: Downloading video `%s'" url)
-    (with-current-buffer (get-buffer-create "*yt-dlp*")
-      (ansi-color-for-comint-mode-on))
-    (set-process-filter (start-process-shell-command
-                         "yt-dlp" "*yt-dlp*"
-                         (concat "yt-dlp " "\"" url "\""))
-                        #'comint-output-filter)
-    (switch-to-buffer "*yt-dlp*")))
-
-(provide 'yt-dlp)
-;;; yt-dlp.el ends here