(Emacs/elisp)~moving stuff around, deleting some old stuff
This commit is contained in:
@@ -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
|
|
||||||
@@ -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
|
|
||||||
@@ -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
|
|
||||||
Reference in New Issue
Block a user