Lucas Sta Maria
347a5bcd07
Removes a random message for `switch-to-buffer` being passed an empty string.
104 lines
3.4 KiB
EmacsLisp
104 lines
3.4 KiB
EmacsLisp
;;; priime-convenience.el --- Convenience packages configuration
|
|
;;; Commentary:
|
|
;; Provides configuration for convenient packages that improve
|
|
;; development experience and productivity.
|
|
;;; Code:
|
|
|
|
(require 'dash)
|
|
(require 'priime-utils)
|
|
|
|
(defun pdf-download-and-view (&optional url filename)
|
|
"Download and view the PDF given by its URL as FILENAME."
|
|
(interactive)
|
|
(let* ((url (or url
|
|
(read-string "Download URL: ")))
|
|
(default-filename (or filename
|
|
(car (last (split-string url "/" t)))))
|
|
(filename (or filename
|
|
(read-string (format "Filename (%s): " default-filename)
|
|
nil
|
|
nil
|
|
default-filename)))
|
|
(file-path (concat "/tmp/" filename))
|
|
(download-buffer (url-retrieve-synchronously url)))
|
|
(set-buffer download-buffer)
|
|
(goto-char (point-min))
|
|
(re-search-forward "^$" nil 'move)
|
|
(forward-char)
|
|
(delete-region (point-min) (point))
|
|
(write-file file-path)
|
|
(find-file (expand-file-name file-path))))
|
|
|
|
(defun priime-terminal ()
|
|
"Open an optionally-new terminal in the current project or current directory."
|
|
(interactive)
|
|
(priime--open-terminal (and current-prefix-arg t)))
|
|
|
|
(defun priime--open-terminal (prefix-arg)
|
|
"Open a terminal in the current project or current directory."
|
|
(if (projectile-project-p)
|
|
(projectile-run-vterm prefix-arg)
|
|
(vterm prefix-arg)))
|
|
|
|
(defun priime-split-terminal ()
|
|
"Split a terminal on the right and move to it."
|
|
(interactive)
|
|
(priime-split-right)
|
|
(priime-terminal)
|
|
(balance-windows))
|
|
|
|
(defun priime-find-terminal ()
|
|
"Search for an open terminal and move to it."
|
|
(interactive)
|
|
(let* ((term-buffers (-filter #'buffer-vterm-p (buffer-list)))
|
|
(term-buf-names (-map #'buffer-name term-buffers))
|
|
(selected-term-buffer
|
|
(completing-read "terminal buffer: " term-buf-names nil t nil)))
|
|
(unless (string-empty-p selected-term-buffer)
|
|
(switch-to-buffer selected-term-buffer))))
|
|
|
|
(use-package projectile :straight t
|
|
:custom
|
|
(projectile-completion-system 'auto)
|
|
:bind
|
|
(("C-c p" . projectile-command-map))
|
|
:init
|
|
(add-hook 'after-init-hook 'projectile-global-mode))
|
|
(use-package bufler :straight t
|
|
:bind (("C-x C-b" . bufler-list)
|
|
("C-x b" . bufler-switch-buffer))
|
|
:init
|
|
(bufler-mode 1))
|
|
(use-package embark :straight t
|
|
:bind (("C-." . embark-act)))
|
|
(use-package embark-consult :straight t)
|
|
(use-package wgrep :straight t)
|
|
(use-package no-littering :straight t)
|
|
(use-package vterm :straight t
|
|
:custom (vterm-shell (or (executable-find "fish") shell-file-name))
|
|
:bind (("C-c v" . priime-terminal)
|
|
("<f8>" . priime-split-terminal)
|
|
("C-<f8>" . priime-find-terminal)))
|
|
(use-package rg :straight t)
|
|
(use-package anzu :straight t
|
|
:bind ("C-c r a" . anzu-query-replace-regexp)
|
|
:init
|
|
(add-hook 'after-init-hook 'global-anzu-mode))
|
|
(use-package pdf-tools
|
|
:straight
|
|
'(pdf-tools :type git :host github
|
|
:repo "vedang/pdf-tools")
|
|
:custom
|
|
(doc-view-resolution 300)
|
|
(pdf-view-continuous t)
|
|
:init
|
|
(pdf-tools-install))
|
|
(use-package olivetti :straight t
|
|
:hook (org-mode . olivetti-mode))
|
|
(use-package casual :straight (casual :type git :host github :repo "kickingvegas/casual")
|
|
:init
|
|
(keymap-set dired-mode-map "C-o" #'casual-dired-tmenu))
|
|
|
|
(provide 'priime-convenience)
|
|
|
|
;;; priime-convenience.el ends here
|