From fa543ada1f9dc52ddfccea2bb111bf60401a668e Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Sun, 8 Sep 2024 02:58:11 +0100 Subject: (Emacs/elisp)~moving stuff around, deleting some old stuff --- .../emacs/archive/personal-primary-theme.el | 98 ++++++++++++++++++++++ Emacs/.config/emacs/elisp/move.el | 80 ------------------ Emacs/.config/emacs/elisp/mpv.el | 53 ------------ .../.config/emacs/elisp/personal-primary-theme.el | 98 ---------------------- Emacs/.config/emacs/elisp/yt-dlp.el | 46 ---------- 5 files changed, 98 insertions(+), 277 deletions(-) create mode 100644 Emacs/.config/emacs/archive/personal-primary-theme.el delete mode 100644 Emacs/.config/emacs/elisp/move.el delete mode 100644 Emacs/.config/emacs/elisp/mpv.el delete mode 100644 Emacs/.config/emacs/elisp/personal-primary-theme.el delete mode 100644 Emacs/.config/emacs/elisp/yt-dlp.el diff --git a/Emacs/.config/emacs/archive/personal-primary-theme.el b/Emacs/.config/emacs/archive/personal-primary-theme.el new file mode 100644 index 0000000..6f4aa8f --- /dev/null +++ b/Emacs/.config/emacs/archive/personal-primary-theme.el @@ -0,0 +1,98 @@ +(deftheme personal-primary + "Created 2021-10-20.") + +(custom-theme-set-faces + 'personal-primary + '(button ((t (:inherit (link))))) + '(tab-bar ((t (:background "grey13")))) + '(tab-bar-tab ((t (:background "grey20" :foreground "white" :box (:color ))))) + '(tab-bar-tab-inactive ((t (:background "grey13" :foreground "DimGrey")))) + '(child-frame-border ((t (:background "white")))) + '(company-preview + ((t (:foreground "wheat" :background "blue4")))) + '(company-preview-common ((t (:inherit company-preview :foreground "grey")))) + '(company-tooltip ((t (:background "black" :foreground "white")))) + '(company-tooltip-annotation ((t (:foreground "grey" :slant italic)))) + '(company-tooltip-selection ((t (:background "grey31" :slant italic)))) + '(cursor ((t (:background "white")))) + '(dired-ignored ((t (:background "grey10" :slant italic :underline t)))) + '(escape-glyph ((t (:foreground "cyan")))) + '(eshell-ls-directory ((t (:foreground "DeepSkyBlue3" :weight bold)))) + '(eshell-prompt ((t (:foreground "turquoise3" :weight bold)))) + '(fill-column-indicator ((t (:inherit shadow :foreground "gray23" :background "gray23" :weight thin)))) + '(fixed-pitch ((t (:family "Monospace")))) + '(font-lock-builtin-face ((t (:foreground "powder blue")))) + '(font-lock-comment-delimiter-face ((t (:slant italic :foreground "grey24")))) + '(font-lock-comment-face ((t (:slant italic :foreground "#868686")))) + '(font-lock-constant-face ((t (:foreground "indian red" :weight semi-bold)))) + '(font-lock-doc-face ((t (:inherit (font-lock-string-face))))) + '(font-lock-function-name-face ((t (:weight semi-bold :foreground "#b6b6b6")))) + '(font-lock-function-call-face ((t (:weight semi-bold :foreground "#b6b6b6")))) + '(font-lock-keyword-face ((t (:foreground "spring green" :weight bold)))) + '(font-lock-negation-char-face ((t nil))) + '(font-lock-preprocessor-face ((t (:foreground "#868686")))) + '(font-lock-regexp-grouping-backslash ((t (:inherit bold)))) + '(font-lock-regexp-grouping-construct ((t (:inherit bold)))) + '(font-lock-string-face ((t (:slant italic :weight normal :foreground "yellow3")))) + '(font-lock-type-face ((t (:weight normal :foreground "deepskyblue")))) + '(font-lock-variable-name-face ((nil (:foreground "white")))) + '(font-lock-warning-face ((t (:inherit (error))))) + '(fringe ((t (:inherit (default))))) + '(haskell-interactive-face-prompt ((t (:foreground "green")))) + '(header-line ((t (:box nil :foreground "grey90" :background "grey20" :inherit (mode-line))))) + '(highlight ((t (:extend t :background "#222233")))) + '(homoglyph ((t (:foreground "cyan")))) + '(isearch ((t (:foreground "brown4" :background "white")))) + '(isearch-fail ((t (:background "red4")))) + '(ivy-current-match ((t (:weight bold :underline t :slant italic)))) + '(lazy-highlight ((t (:background "paleturquoise4")))) + '(line-number ((t (:foreground "grey45" :background "grey1" :inherit (default))))) + '(line-number-current-line ((t (:foreground "white" :background "grey1" :inherit (default))))) + '(link ((t (:underline (:color foreground-color :style line) :foreground "cyan1")))) + '(link-visited ((t (:foreground "violet" :inherit (link))))) + '(match ((t (:background "RoyalBlue3")))) + '(minibuffer-prompt ((t (:foreground "cyan")))) + '(mode-line ((t (:box t :foreground "LightSkyBlue" :background "black" :inherit (default))))) + '(mode-line-inactive ((t (:box nil :weight light :height 1 :foreground "CadetBlue" :background "grey7" :inherit (default))))) + '(mode-line-buffer-id ((t (:weight bold)))) + '(mode-line-emphasis ((t (:weight bold)))) + '(next-error ((t (:inherit (region))))) + '(orderless-match-face-0 ((t (:weight bold :foreground "lime green")))) + '(orderless-match-face-1 ((t (:weight bold :foreground "light green")))) + '(orderless-match-face-2 ((t (:weight bold :foreground "forest green")))) + '(orderless-match-face-3 ((t (:weight bold :foreground "dark green")))) + '(org-block ((t (:background "grey3" :inherit shadow)))) + '(org-code ((t (:foreground "green3")))) + '(org-quote ((t (:slant italic)))) + '(org-verbatim ((t (:foreground "red3")))) + '(pdf-isearch-batch ((t (:foreground "black" :background "white")))) + '(query-replace ((t (:inherit (isearch))))) + '(region ((t (:extend t :background "grey25")))) + '(rainbow-delimiters-depth-1-face ((t (:extend t :foreground "red")))) + '(rainbow-delimiters-depth-2-face ((t (:extend t :foreground "darkorange")))) + '(rainbow-delimiters-depth-3-face ((t (:extend t :foreground "yellow")))) + '(rainbow-delimiters-depth-4-face ((t (:extend t :foreground "green")))) + '(rainbow-delimiters-depth-5-face ((t (:extend t :foreground "DeepSkyBlue")))) + '(rainbow-delimiters-depth-6-face ((t (:extend t :foreground "purple")))) + '(rainbow-delimiters-depth-7-face ((t (:extend t :foreground "violet")))) + '(rainbow-delimiters-mismatched-face ((t (:extend t :foreground "white" :background "red4")))) + '(rainbow-delimiters-unmatched-face ((t (:extend t :foreground "white" :background "red3")))) + '(rainbow-delimiters-base-error-face ((t (:extend t :foreground "white" :background "red1")))) + '(shadow ((((class color grayscale) (min-colors 88) (background light)) (:foreground "grey50")) + (((class color grayscale) (min-colors 88) (background dark)) (:foreground "grey70")) + (((class color) (min-colors 8) (background light)) (:foreground "green")) + (((class color) (min-colors 8) (background dark)) (:foreground "yellow")))) + '(secondary-selection + ((t (:extend t :background "SkyBlue4")))) + '(tooltip ((t (:foreground "black" :background "lightyellow" :inherit (variable-pitch))))) + '(trailing-whitespace ((t (:background "red1")))) + '(variable-pitch ((((type w32)) (:foundry "outline" :family "Arial")) (t (:family "Sans Serif")))) + '(whitespace-line ((t (:background "black" :foreground "violet")))) + '(whitespace-space ((t (:background "#0a0a0a" :foreground "black")))) + '(whitespace-tab ((t (:background "grey5" :foreground "grey20")))) + '(default ((t (:family "Hack" :foundry "ADBO" :width normal + :weight normal :slant normal :underline nil :overline nil + :extend nil :strike-through nil :box nil :inverse-video nil + :foreground "#b6b6b6" :background "black" :stipple nil :inherit nil))))) + +(provide-theme 'personal-primary) 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 -;; 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 - -;;; 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 -;; 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 . - -;;; 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/personal-primary-theme.el b/Emacs/.config/emacs/elisp/personal-primary-theme.el deleted file mode 100644 index 6f4aa8f..0000000 --- a/Emacs/.config/emacs/elisp/personal-primary-theme.el +++ /dev/null @@ -1,98 +0,0 @@ -(deftheme personal-primary - "Created 2021-10-20.") - -(custom-theme-set-faces - 'personal-primary - '(button ((t (:inherit (link))))) - '(tab-bar ((t (:background "grey13")))) - '(tab-bar-tab ((t (:background "grey20" :foreground "white" :box (:color ))))) - '(tab-bar-tab-inactive ((t (:background "grey13" :foreground "DimGrey")))) - '(child-frame-border ((t (:background "white")))) - '(company-preview - ((t (:foreground "wheat" :background "blue4")))) - '(company-preview-common ((t (:inherit company-preview :foreground "grey")))) - '(company-tooltip ((t (:background "black" :foreground "white")))) - '(company-tooltip-annotation ((t (:foreground "grey" :slant italic)))) - '(company-tooltip-selection ((t (:background "grey31" :slant italic)))) - '(cursor ((t (:background "white")))) - '(dired-ignored ((t (:background "grey10" :slant italic :underline t)))) - '(escape-glyph ((t (:foreground "cyan")))) - '(eshell-ls-directory ((t (:foreground "DeepSkyBlue3" :weight bold)))) - '(eshell-prompt ((t (:foreground "turquoise3" :weight bold)))) - '(fill-column-indicator ((t (:inherit shadow :foreground "gray23" :background "gray23" :weight thin)))) - '(fixed-pitch ((t (:family "Monospace")))) - '(font-lock-builtin-face ((t (:foreground "powder blue")))) - '(font-lock-comment-delimiter-face ((t (:slant italic :foreground "grey24")))) - '(font-lock-comment-face ((t (:slant italic :foreground "#868686")))) - '(font-lock-constant-face ((t (:foreground "indian red" :weight semi-bold)))) - '(font-lock-doc-face ((t (:inherit (font-lock-string-face))))) - '(font-lock-function-name-face ((t (:weight semi-bold :foreground "#b6b6b6")))) - '(font-lock-function-call-face ((t (:weight semi-bold :foreground "#b6b6b6")))) - '(font-lock-keyword-face ((t (:foreground "spring green" :weight bold)))) - '(font-lock-negation-char-face ((t nil))) - '(font-lock-preprocessor-face ((t (:foreground "#868686")))) - '(font-lock-regexp-grouping-backslash ((t (:inherit bold)))) - '(font-lock-regexp-grouping-construct ((t (:inherit bold)))) - '(font-lock-string-face ((t (:slant italic :weight normal :foreground "yellow3")))) - '(font-lock-type-face ((t (:weight normal :foreground "deepskyblue")))) - '(font-lock-variable-name-face ((nil (:foreground "white")))) - '(font-lock-warning-face ((t (:inherit (error))))) - '(fringe ((t (:inherit (default))))) - '(haskell-interactive-face-prompt ((t (:foreground "green")))) - '(header-line ((t (:box nil :foreground "grey90" :background "grey20" :inherit (mode-line))))) - '(highlight ((t (:extend t :background "#222233")))) - '(homoglyph ((t (:foreground "cyan")))) - '(isearch ((t (:foreground "brown4" :background "white")))) - '(isearch-fail ((t (:background "red4")))) - '(ivy-current-match ((t (:weight bold :underline t :slant italic)))) - '(lazy-highlight ((t (:background "paleturquoise4")))) - '(line-number ((t (:foreground "grey45" :background "grey1" :inherit (default))))) - '(line-number-current-line ((t (:foreground "white" :background "grey1" :inherit (default))))) - '(link ((t (:underline (:color foreground-color :style line) :foreground "cyan1")))) - '(link-visited ((t (:foreground "violet" :inherit (link))))) - '(match ((t (:background "RoyalBlue3")))) - '(minibuffer-prompt ((t (:foreground "cyan")))) - '(mode-line ((t (:box t :foreground "LightSkyBlue" :background "black" :inherit (default))))) - '(mode-line-inactive ((t (:box nil :weight light :height 1 :foreground "CadetBlue" :background "grey7" :inherit (default))))) - '(mode-line-buffer-id ((t (:weight bold)))) - '(mode-line-emphasis ((t (:weight bold)))) - '(next-error ((t (:inherit (region))))) - '(orderless-match-face-0 ((t (:weight bold :foreground "lime green")))) - '(orderless-match-face-1 ((t (:weight bold :foreground "light green")))) - '(orderless-match-face-2 ((t (:weight bold :foreground "forest green")))) - '(orderless-match-face-3 ((t (:weight bold :foreground "dark green")))) - '(org-block ((t (:background "grey3" :inherit shadow)))) - '(org-code ((t (:foreground "green3")))) - '(org-quote ((t (:slant italic)))) - '(org-verbatim ((t (:foreground "red3")))) - '(pdf-isearch-batch ((t (:foreground "black" :background "white")))) - '(query-replace ((t (:inherit (isearch))))) - '(region ((t (:extend t :background "grey25")))) - '(rainbow-delimiters-depth-1-face ((t (:extend t :foreground "red")))) - '(rainbow-delimiters-depth-2-face ((t (:extend t :foreground "darkorange")))) - '(rainbow-delimiters-depth-3-face ((t (:extend t :foreground "yellow")))) - '(rainbow-delimiters-depth-4-face ((t (:extend t :foreground "green")))) - '(rainbow-delimiters-depth-5-face ((t (:extend t :foreground "DeepSkyBlue")))) - '(rainbow-delimiters-depth-6-face ((t (:extend t :foreground "purple")))) - '(rainbow-delimiters-depth-7-face ((t (:extend t :foreground "violet")))) - '(rainbow-delimiters-mismatched-face ((t (:extend t :foreground "white" :background "red4")))) - '(rainbow-delimiters-unmatched-face ((t (:extend t :foreground "white" :background "red3")))) - '(rainbow-delimiters-base-error-face ((t (:extend t :foreground "white" :background "red1")))) - '(shadow ((((class color grayscale) (min-colors 88) (background light)) (:foreground "grey50")) - (((class color grayscale) (min-colors 88) (background dark)) (:foreground "grey70")) - (((class color) (min-colors 8) (background light)) (:foreground "green")) - (((class color) (min-colors 8) (background dark)) (:foreground "yellow")))) - '(secondary-selection - ((t (:extend t :background "SkyBlue4")))) - '(tooltip ((t (:foreground "black" :background "lightyellow" :inherit (variable-pitch))))) - '(trailing-whitespace ((t (:background "red1")))) - '(variable-pitch ((((type w32)) (:foundry "outline" :family "Arial")) (t (:family "Sans Serif")))) - '(whitespace-line ((t (:background "black" :foreground "violet")))) - '(whitespace-space ((t (:background "#0a0a0a" :foreground "black")))) - '(whitespace-tab ((t (:background "grey5" :foreground "grey20")))) - '(default ((t (:family "Hack" :foundry "ADBO" :width normal - :weight normal :slant normal :underline nil :overline nil - :extend nil :strike-through nil :box nil :inverse-video nil - :foreground "#b6b6b6" :background "black" :stipple nil :inherit nil))))) - -(provide-theme 'personal-primary) 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 -;; 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 . - -;;; 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 -- cgit v1.2.3-13-gbd6f