diff options
-rw-r--r-- | Emacs/.config/emacs/archive/personal-primary-theme.el (renamed from Emacs/.config/emacs/elisp/personal-primary-theme.el) | 0 | ||||
-rw-r--r-- | Emacs/.config/emacs/elisp/move.el | 80 | ||||
-rw-r--r-- | Emacs/.config/emacs/elisp/mpv.el | 53 | ||||
-rw-r--r-- | Emacs/.config/emacs/elisp/yt-dlp.el | 46 |
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 |