summaryrefslogtreecommitdiff
path: root/.emacs.d/modules/thanos-commands.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-05-10 09:09:25 +0300
committerThanos Apollo <[email protected]>2024-05-10 09:09:25 +0300
commit91e4e06f9080836c7095e7198e923ee4be768882 (patch)
tree3d43d84c75172fc4bfa3d76fa35e5a12fbf7705f /.emacs.d/modules/thanos-commands.el
parentbec6503f1224c6b03d954887a3ee50c49fa3115f (diff)
emacs: Rewrite emacs configuration as one file
Diffstat (limited to '.emacs.d/modules/thanos-commands.el')
-rw-r--r--.emacs.d/modules/thanos-commands.el295
1 files changed, 0 insertions, 295 deletions
diff --git a/.emacs.d/modules/thanos-commands.el b/.emacs.d/modules/thanos-commands.el
deleted file mode 100644
index af9603f..0000000
--- a/.emacs.d/modules/thanos-commands.el
+++ /dev/null
@@ -1,295 +0,0 @@
-;;; thanos-commands.el --- custom commands/functions -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2023 Thanos Apollo
-
-;; Author: Thanos Apollo <[email protected]>
-;; Keywords:
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; 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:
-
-;; VM
-(defvar vm-directory "~/Virtual/")
-
-(defun vm-create-image ()
- "Create qcow2 image."
- (interactive)
- (let ((name (format "%s%s.qcow2" vm-directory (read-string "Name: ")))
- (size (format "%s" (read-string "Size(G): "))))
- (shell-command
- (format "qemu-img create -f qcow2 %s %sG" name size))))
-
-
-(defun vm-run ()
- "Spawn Virtual Machine."
- (interactive)
- (let ((memory (format "%sG" (read-string "Memory(G): ")))
- (cores (read-string "Cores: "))
- (image (read-file-name "Image: " vm-directory))
- (iso (if (y-or-n-p "Load iso? ")
- (read-file-name "ISO: ")
- nil)))
- (async-shell-command
- (format "qemu-system-x86_64 -enable-kvm -m %s -smp %s -hda %s -vga virtio -device virtio-serial-pci -netdev user,id=vmnic,hostfwd=tcp::2222-:22 -device e1000,netdev=vmnic %s"
- memory cores image (if iso (concat "-cdrom " iso) "")))))
-
-;; MISC
-
-(defun thanos/run-in-background (command)
- "Run COMMAND in the background."
- (let ((command-parts (split-string command "[ ]+")))
- (apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts)))))
-
-(defun thanos/emacs-keys ()
- "Swap caps with ctrl."
- (interactive)
- (start-process-shell-command
- "setxkbmap" nil "setxkbmap us -option ctrl:swapcaps"))
-
-(defun thanos/center-buffer ()
- (interactive)
- (set-fringe-mode
- (/ (- (frame-pixel-width)
- (* 150 (frame-char-width)))
- 2)))
-
-(defun thanos/git-clone (repository)
- "Clone git REPOSITORY."
- (interactive (list (read-string "repo: ")))
- (call-process-shell-command
- (concat "git clone " (shell-quote-argument repository)) nil 0))
-
-;; CREATE
-
-(defun create-text-scratch ()
- "Create a scratch buffer."
- (interactive)
- (switch-to-buffer (get-buffer-create "*Text Scratch*"))
- (org-mode))
-
-(defun create-scratch ()
- "Create scratch buffer."
- (interactive)
- (switch-to-buffer (get-buffer-create "*scratch*"))
- (emacs-lisp-mode))
-
-(defvar-keymap thanos/create-map
- :doc "Create custom buffers"
- "t" #'create-text-scratch
- "e" #'create-scratch)
-
-;; THEMING
-(defvar wallpapers-dir "~/wallpapers/")
-
-(defun thanos/load-theme (&optional theme)
- "Disable current theme and load a new THEME."
- (interactive)
- (let ((theme (or theme (intern (completing-read "Theme: " (custom-available-themes))))))
- (disable-theme (car custom-enabled-themes))
- (load-theme theme t)))
-
-(defun thanos/wallpaper-set (image)
- "Set IMAGE as wallpaper, using feh."
- (let ((command (if is-zeus "xwallpaper --output DisplayPort-1 --stretch" "feh --bg-scale")))
- (call-process-shell-command (concat command " " wallpapers-dir image) nil 0)))
-
-(defun thanos/wallpaper-random ()
- "Set random wallpaper."
- (interactive)
- (let ((wallpapers (directory-files "~/wallpapers" nil "^[^.].*")))
- (thanos/wallpaper-set (nth (random (length wallpapers)) wallpapers))))
-
-(defun thanos/wallpaper-select ()
- "Set wallpaper."
- (interactive)
- (let ((wallpaper (completing-read "Choose wallpaper: " (directory-files wallpapers-dir nil "^[^.].*"))))
- (thanos/wallpaper-set wallpaper)))
-
-(defvar-keymap thanos/applications-map
- :doc "Thanos commonly used programs"
- "t" #'thanos/load-theme
- "w" #'thanos/wallpaper-select
- "C-c" thanos/create-map)
-
-(define-key global-map (kbd "C-c a") thanos/applications-map)
-
-
-(defun dired-watch-video ()
- "Watch play file with mpv."
- (interactive)
- (call-process-shell-command
- (format "mpv \"%s\"" (dired-get-filename)) nil 0))
-
-(defun dired-set-wallpaper ()
- "Set NAME as wallpaper using feh."
- (interactive)
- (let ((command (if is-zeus "xwallpaper --output DisplayPort-1 --stretch" "feh --bg-scale")))
- (call-process-shell-command
- (format "%s %s" command (dired-get-filename)) nil 0)))
-
-(defun dired-delete-files-except ()
- "Delete all files inside directory except match."
- (interactive)
- (let* ((directory (read-directory-name "Select directory: "))
- (files (directory-files directory t))
- (except-match (read-string "Except the ones that have: ")))
- (dolist (file files)
- (unless (or (string= "." (substring file -1))
- (string= ".." (substring file -2))
- (string-match except-match file))
- (dired-delete-file file t)))))
-
-(defun dired-delete-file-match ()
- "Delete all files inside directory except match."
- (interactive)
- (let* ((directory (read-directory-name "Select directory: "))
- (files (directory-files directory t))
- (match (read-string "Delete files that match: ")))
- (dolist (file files)
- (when (string-match-p match file)
- (dired-delete-file file t)))))
-
-(defun dired-rename-capitalize-file ()
- "Capitalize the base name of the file at point in a Dired buffer."
- (interactive)
- (let* ((file (dired-get-file-for-visit))
- (new-file (capitalize (file-name-nondirectory file))))
- (if (string-prefix-p "." file)
- (message "Skipping file starting with '.'")
- (progn
- (rename-file file (concat (file-name-directory file) new-file))
- (revert-buffer)
- (message "Renamed %s to %s" file new-file)))))
-
-(defun thanos/0x0-upload-file ()
- "Update file to 0x0.st"
- (interactive)
- (async-shell-command (format "curl -F'file=@%s' https://0x0.st" (dired-get-filename))))
-
-;; yeetube
-(defun yeetube-download-videos-ffmpeg ()
- "Download videos using ffmpeg."
- (interactive)
- (let ((url "")
- (name "")
- (download-counter 1)
- (stored-contents nil))
- ;; Read links and names until "q" is entered
- (while (not (string= url "q"))
- (setf url (read-string "Enter URL (q to quit): "))
- (unless (string= url "q")
- (setf name (read-string (format "Custom name (download counter: %d) " download-counter)))
- (push (cons url name) stored-contents)
- (setf download-counter (1+ download-counter))))
- ;; Process the collected links and names
- (dolist (pair stored-contents)
- (let ((url (car pair))
- (name (cdr pair)))
- (async-shell-command
- (format
- "ffmpeg -protocol_whitelist file,crypto,data,https,tls,tcp -stats -i '%s' -codec copy '%s.mp4'"
- url name))))))
-
-(defun yeetube-download-vimeo-videos ()
- "Download videos from vimeo services."
- (interactive)
- (let ((url "")
- (name "")
- (download-counter 1))
- (while (not (string= url "q"))
- (setf url (read-string "Enter URL (q to quit): "))
- (unless (string= url "q")
- (setf name (read-string (format "Custom name (download counter: %d) " download-counter)))
- (setf download-counter (1+ download-counter))
- (call-process-shell-command
- (format
- "yt-dlp '%s' -o '%s'"
- (replace-regexp-in-string "\\.json" ".m3u8" url) name)
- nil 0)))))
-
-;; Input methods
-(defvar thanos/input-methods
- '("greek" "bulgarian-phonetic" "nil")
- "List of input methods to toggle.")
-
-(defvar thanos/input-methods-index 0
- "Index of the next input method in `thanos/input-methods' to use.")
-
-(defun thanos/toggle-input-method ()
- "Switch to the next input method in `thanos/input-methods'."
- (interactive)
- (setf thanos/input-methods-index
- (mod (1+ thanos/input-methods-index) (length thanos/input-methods)))
- (let ((input-method (nth thanos/input-methods-index thanos/input-methods)))
- (set-input-method (if (string= "nil" input-method) nil input-method))))
-
-(defun thanos/toggle-input-method ()
- "Switch to the next input method in `thanos/input-methods'."
- (interactive)
- (setf thanos/input-methods-index
- (mod (1+ thanos/input-methods-index) (length thanos/input-methods)))
- (let ((input-method (nth thanos/input-methods-index thanos/input-methods)))
- (set-input-method (if (string= "nil" input-method) nil input-method))))
-
-(defun erc-libera ()
- "Login to liberachat with erc."
- (interactive)
- (erc :server (password-store-get-field "znc/admin" "server")
- :port (password-store-get-field "znc/admin" "port")
- :user (password-store-get-field "znc/admin" "user")
- :password (password-store-get "znc/admin")))
-
-
-(defun thanos/iimage-mode-buffer (arg)
- "Display images if ARG is non-nil, undisplay them otherwise."
- (let ((image-path (cons default-directory iimage-mode-image-search-path))
- (edges (window-inside-pixel-edges (get-buffer-window)))
- file)
- (with-silent-modifications
- (save-excursion
- (dolist (pair iimage-mode-image-regex-alist)
- (goto-char (point-min))
- (while (re-search-forward (car pair) nil t)
- (when (and (setq file (match-string (cdr pair)))
- (setq file (locate-file file image-path)))
- (if arg
- (add-text-properties
- (match-beginning 0) (match-end 0)
- `(display
- ,(create-image file nil nil
- :max-width 120
- :max-height 120)
- keymap ,image-map
- modification-hooks
- (iimage-modification-hook)))
- (remove-list-of-text-properties
- (match-beginning 0) (match-end 0)
- '(display modification-hooks))))))))))
-
-(define-minor-mode thanos/iimage-mode nil
- :group 'iimage :lighter " iImg"
- (thanos/iimage-mode-buffer thanos/iimage-mode))
-
-(provide 'thanos-commands)
-;;; thanos-commands.el ends here