maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

chore(tazjin/emacs): remove a bunch of unused code

Browse source 
Change-Id: Ife854e83ef97f1e9a26072f2ab2a3b23f5d64840
Reviewed-on: https://cl.tvl.fyi/c/depot/+/9154
Reviewed-by: tazjin <tazjin@tvl.su>
Autosubmit: tazjin <tazjin@tvl.su>
Tested-by: BuildkiteCI
This commit is contained in:
Vincent Ambo 2023-08-26 16:22:08 +03:00 • committed by clbot
parent 6d5d96ecea
commit 9afa1dacf8
5 changed files with 5 additions and 106 deletions
Download patch file Download diff file Expand all files Collapse all files

64
users/tazjin/emacs/config/functions.el
View file

@ -2,10 +2,6 @@
(require 'dash)
(require 'map)
(defun load-file-if-exists (filename)
(if (file-exists-p filename)
(load filename)))
(defun goto-line-with-feedback ()
"Show line numbers temporarily, while prompting for the line number input"
(interactive)
@ -30,11 +26,6 @@
(find-file (concat "/sudo:root@localhost:" (read-file-name "File: ")))
(find-alternate-file (concat "/sudo:root@localhost:" buffer-file-name))))
;; Open the NixOS man page
(defun nixos-man ()
(interactive)
(man "configuration.nix"))
;; Get the nix store path for a given derivation.
;; If the derivation has not been built before, this will trigger a build.
(defun nix-store-path (derivation)
@ -126,13 +117,6 @@ the GPG agent correctly."
(run-at-time (password-store-timeout)
nil 'password-store-clear))))
(defun browse-repositories ()
"Select a git repository and open its associated magit buffer."
(interactive)
(magit-status
(completing-read "Repository: " (magit-list-repos))))
(defun bottom-right-window-p ()
"Determines whether the last (i.e. bottom-right) window of the
active frame is showing the buffer in which this function is
@ -180,27 +164,6 @@ the GPG agent correctly."
mc/mark-more-hydra/mmlte--up
mc/mark-more-hydra/nil))
(defun memespace-region ()
"Make a meme out of it."
(interactive)
(let* ((start (region-beginning))
(end (region-end))
(memed
(message
(s-trim-right
(apply #'string
(-flatten
(nreverse
(-reduce-from (lambda (acc x)
(cons (cons x (-repeat (+ 1 (length acc)) 32)) acc))
'()
(string-to-list (buffer-substring-no-properties start end))))))))))
(save-excursion (delete-region start end)
(goto-char start)
(insert memed))))
(defun insert-todo-comment (prefix todo)
"Insert a comment at point with something for me to do."
@ -318,33 +281,6 @@ by looking for a `Cargo.toml' file."
(magit-read-file-from-rev "HEAD" "Find file")
#'pop-to-buffer-same-window))
(defun songwhip--handle-result (status &optional cbargs)
;; TODO(tazjin): Inspect status, which looks different in practice
;; than the manual claims.
(if-let* ((response (json-parse-string
(buffer-substring url-http-end-of-headers (point-max))))
(sw-path (ht-get* response "data" "path"))
(link (format "https://songwhip.com/%s" sw-path))
(select-enable-clipboard t))
(progn
(kill-new link)
(message "Copied Songwhip link (%s)" link))
(warn "Something went wrong while retrieving Songwhip link!")
;; For debug purposes, the buffer is persisted in this case.
(setq songwhip--debug-buffer (current-buffer))))
(defun songwhip-lookup-url (url)
"Look up URL on Songwhip and copy the resulting link to the clipboard."
(interactive "sEnter source URL: ")
(let ((songwhip-url "https://songwhip.com/api/")
(url-request-method "POST")
(url-request-extra-headers '(("Content-Type" . "application/json")))
(url-request-data
(json-serialize `((country . "GB")
(url . ,url)))))
(url-retrieve "https://songwhip.com/api/" #'songwhip--handle-result nil t t)
(message "Requesting Songwhip URL ... please hold the line.")))
(defun rg-in-project (&optional prefix)
"Interactively call ripgrep in the current project, or fall
back to ripgrep default behaviour if prefix is set."