You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 

275 lines
8.5 KiB

;;; Compilation
(setq compile-command "make ")
;; C-m functions as \r, so pressing C-x C-m C-m will call compile and skip the prompt.
(global-set-key (kbd "C-x C-m") 'compile)
;; Nicer movement in compilation-mode.
(add-hook 'compilation-mode-hook
(lambda () (local-set-key (kbd "n") 'compilation-next-error)))
(add-hook 'compilation-mode-hook
(lambda () (local-set-key (kbd "p") 'compilation-previous-error)))
;; Function for selecting the current line.
(defun fez/mark-line ()
"Selects the current line with the mark."
(interactive)
(move-beginning-of-line nil)
(set-mark (point))
(next-line))
(defun fez/toggle-indent ()
"Toggle between indenting with tabs or spaces."
(interactive)
(setq-default indent-tabs-mode (not indent-tabs-mode)))
(defun fez/current-line-empty-p ()
"Checks if the current line is empty or not."
(save-excursion
(beginning-of-line)
(looking-at-p "[[:space:]]*$")))
(defun fez/current-line-comment-p ()
"Checks if the current line is a commented out one or not."
(save-excursion
(beginning-of-line)
(let ((a (point)))
(end-of-line)
(let ((b (point)))
(comment-only-p a b)))))
(defun fez/flash-region (&optional timeout)
"Temporarily highlight region from START to END. Taken from SLIME source code and modified."
(interactive)
(transient-mark-mode)
(save-excursion
(mark-defun)
;; Don't mark the line or the comments above the s-expression.
(while (or (fez/current-line-empty-p)
(fez/current-line-comment-p))
;; Can probably be optimized...
(forward-char))
(let* ((start (region-beginning))
(end (region-end))
(overlay (make-overlay start end)))
(deactivate-mark)
(overlay-put overlay 'face 'secondary-selection)
(run-with-timer (or timeout 0.2) nil 'delete-overlay overlay)))
(transient-mark-mode))
(defun fez/insert-keybind ()
"Prompts the user for a key combination like C-h k does, then inserts that key combination."
(interactive)
(insert (concat "(kbd \""
(key-description (read-key-sequence-vector "Key sequence: "))
"\")")))
(defun fez/time-stamp ()
"Insert the current date."
(interactive)
(shell-command "LANG=nb_NO.UTF-8 date +%Y-%m-%d" t))
(defun fez/kill-all-buffers ()
"Kill all buffers other than the currently active one."
(interactive)
(mapc #'kill-buffer (delete (current-buffer) (buffer-list))))
(defun fez/view-kill-ring ()
"Display the kill ring in a buffer."
(interactive)
(get-buffer-create "*kill-buffer*")
(switch-to-buffer-other-window "*kill-buffer*")
(erase-buffer)
(dolist (l (reverse kill-ring))
(insert l)))
(defun fez/lookup-key ()
"Search for KEY in all known keymaps (outputs to *Messages*)"
(interactive)
(let ((key (read-key-sequence-vector "Key sequence: ")))
(mapatoms (lambda (ob) (when (and (boundp ob) (keymapp (symbol-value ob)))
(when (functionp (lookup-key (symbol-value ob) key))
(message (symbol-name ob)))))
obarray)))
(defun fez/ttm-upload ()
"Upload file in selected buffer to ttm.sh and output the link in the echo area (and in *Messages*)"
(interactive)
(let ((link (shell-command-to-string (concat "curl -Ffile=@"
(buffer-file-name)
" https://ttm.sh -s"))))
(message "%s" link)
(kill-new link)))
(defun fez/last-occurrence-of-char (c)
"Go to the previous occurrence of C in the current buffer."
(interactive)
(when (equal (following-char) c)
(backward-char))
(while (not (equal (following-char)
c))
(backward-char)))
(defun fez/last-open-paren ()
(interactive)
(fez/last-occurrence-of-char ?\())
(defun fez/send-vterm-command (cmd)
"Executes CMD in a vterm buffer."
(kill-new cmd)
(vterm-yank)
(vterm-send-return))
(defun fez/cl ()
"Prepares the environment for Common Lisp development."
(interactive)
(let ((original-buffer (current-buffer)))
(vterm)
(let ((vterm-buffer (current-buffer)))
(fez/send-vterm-command "slystart")
(switch-to-buffer original-buffer)
;; This is probably useless for anyone that doesn't use frames-only-mode
(make-frame-command)
(switch-to-buffer vterm-buffer)))
(sleep-for 1)
(sly-connect "localhost" 4005))
(defmacro fez/save-buffer-excursion (&rest body)
(declare (indent defun))
(let ((original-buffer (gensym)))
`(let ((,original-buffer (current-buffer)))
,@body
(switch-to-buffer ,original-buffer))))
(defun fez/goto-first-occurrence (str)
(goto-char (point-min))
(search-forward-regexp str)
(beginning-of-thing 'symbol))
;; https://emacs.stackexchange.com/a/33709
(defmacro with-keybinding (map key command &rest body)
`(let* ((map ,map)
(key ,key)
(newcommand ,command)
(prevbinding (lookup-key map key)))
(unwind-protect
(progn
(define-key map key newcommand)
,@body)
(define-key map key prevbinding))))
(defun fez/org-roam-new-note ()
"Creates a new org-roam note, and adds an entry to that note in my index.org file."
(interactive)
(let ((category (read-string "Category: ")))
(find-file (concat org-roam-directory "/index.org"))
(fez/goto-first-occurrence (concat "^\* " category))
(end-of-line)
(newline)
(org-cycle)
(with-keybinding selectrum-minibuffer-map (kbd "SPC") (lambda () (interactive (insert-char ?-)))
(org-roam-insert))))
(setq x-mouse-on t)
(setq x-mouse-value "13")
(defun fez/toggle-x-mouse ()
"Toggle the X mouse."
(interactive)
(setq x-mouse-on (not x-mouse-on))
(shell-command (concat "xinput "
(if x-mouse-on "--enable " "--disable ")
x-mouse-value))
(message (concat "Mouse "
(if x-mouse-on "enabled." "disabled."))))
(defun fez/screenshot ()
"Prompts the user for a filename and saves a screenshot at that path."
(interactive)
(let ((path (read-string "Filename: ")))
(shell-command (concat "import -window root "
path))))
(setq current-layout "nous")
(defun fez/swap-keyboard ()
"Swap between my selected keyboard layouts."
(interactive)
(cond ((string= current-layout "nous") (setq current-layout "ru"))
(t (setq current-layout "nous")))
(shell-command (concat "setxkbmap " current-layout)))
(defun fez/man-at-point ()
(interactive)
(let ((word (current-word)))
(if word
(man word)
"Not a word.")))
(defun fez/insert-line ()
(interactive)
(move-beginning-of-line nil)
(open-line 1))
;; TODO: Put this in C-mode or something
(defun fez/include-guard ()
(interactive)
(let ((guard (concat (upcase (file-name-base (buffer-file-name)))
"_H")))
(goto-char (point-min))
(insert (concat "#ifndef "
guard
"\n#define "
guard
"\n"))
(goto-char (point-max))
(insert (concat "\n\n\n#endif /* "
guard
" */\n")))
(forward-line -3))
(defun fez/tex-word-count ()
(interactive)
(message
(substring
(shell-command-to-string
(concat "detex " (buffer-file-name) " | wc -w"))
0 -1)))
;; Eshell convinience commands.
(defalias 'open 'find-file-other-window)
(defalias 'clean 'eshell/clear-scrollback)
;;; Keybinds
;; C-x C-z and C-z are normally mapped to suspend-frame, an absolutely useless function.
;; Unbind them before making the keybind useful.
(global-unset-key (kbd "C-x C-z"))
(global-unset-key (kbd "C-z"))
(global-set-key (kbd "C-x C-z") 'fez/mark-line)
;; Better buffer management (smol).
(global-set-key (kbd "C-x C-b") 'bs-show)
;; Inspiration from Nyxt, kill the current buffer.
(global-set-key (kbd "C-x C-k") 'kill-this-buffer)
(global-set-key (kbd "C-c t") 'fez/time-stamp)
(global-set-key (kbd "C-z C-m") 'fez/man-at-point)
(global-set-key (kbd "C-S-o") 'open-line)
(global-set-key (kbd "C-o") 'fez/insert-line)
;; zap-up-to-char > zap-to-char
(global-set-key (kbd "M-z") 'zap-up-to-char)
;; Binds for switching between light and dark themes.
(defmacro fez/switch-theme (new-theme)
`(lambda ()
(interactive)
(disable-theme (car custom-enabled-themes))
(enable-theme ,new-theme)))
(global-set-key [f5] (fez/switch-theme 'magik))
(global-set-key [f6] (fez/switch-theme 'basic))
(add-hook 'emacs-lisp-mode-hook
(lambda () (local-set-key (kbd "C-c k") #'fez/insert-keybind)))