aboutsummaryrefslogtreecommitdiff
path: root/Emacs/.config/emacs/elisp
diff options
context:
space:
mode:
authorAryadev Chavali <aryadev@aryadevchavali.com>2024-09-08 02:58:11 +0100
committerAryadev Chavali <aryadev@aryadevchavali.com>2024-09-08 02:58:26 +0100
commitfa543ada1f9dc52ddfccea2bb111bf60401a668e (patch)
tree9b3411db8b94c0b8a4d3607da1e3300b09c36eb6 /Emacs/.config/emacs/elisp
parent511961af87313173ba381112a21d90f04b1cdd92 (diff)
downloaddotfiles-fa543ada1f9dc52ddfccea2bb111bf60401a668e.tar.gz
dotfiles-fa543ada1f9dc52ddfccea2bb111bf60401a668e.tar.bz2
dotfiles-fa543ada1f9dc52ddfccea2bb111bf60401a668e.zip
(Emacs/elisp)~moving stuff around, deleting some old stuff
Diffstat (limited to 'Emacs/.config/emacs/elisp')
-rw-r--r--Emacs/.config/emacs/elisp/move.el80
-rw-r--r--Emacs/.config/emacs/elisp/mpv.el53
-rw-r--r--Emacs/.config/emacs/elisp/personal-primary-theme.el98
-rw-r--r--Emacs/.config/emacs/elisp/yt-dlp.el46
4 files changed, 0 insertions, 277 deletions
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/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 <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