oreodave/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Aryadev Chavali
2024-09-08 02:58:11 +01:00
parent 511961af87
commit fa543ada1f
4 changed files with 0 additions and 179 deletions
Download Patch File Download Diff File Expand all files Collapse all files

0
Emacs/.config/emacs/elisp/personal-primary-theme.el → Emacs/.config/emacs/archive/personal-primary-theme.el
View File

80
Emacs/.config/emacs/elisp/move.el
View File

@@ -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

53
Emacs/.config/emacs/elisp/mpv.el
View File

@@ -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

46
Emacs/.config/emacs/elisp/yt-dlp.el
View File

@@ -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