399 lines
11 KiB
EmacsLisp
399 lines
11 KiB
EmacsLisp
|
|
|
|
|
|
|
|
;;; relative line numbers
|
|
(setq display-line-numbers 'relative)
|
|
|
|
|
|
;;; set my org directory
|
|
(setq org-directory "~/work/things/org")
|
|
|
|
|
|
;;; set my name and email
|
|
(setq user-full-name "Sebastian Moser"
|
|
user-mail-address "c2vi.dev@gmail.com")
|
|
|
|
|
|
;;; theme
|
|
(setq doom-theme 'doom-one)
|
|
|
|
|
|
;;; C-p to be M-x
|
|
(map! "C-p" #'execute-extended-command)
|
|
;;(map! :leader "a" #'execute-extended-command)
|
|
;;(map! :nv ":" #'execute-extended-command)
|
|
(after! evil
|
|
;;(map! :nv ":" #'execute-extended-command)
|
|
(map! :gnv "C-p" #'execute-extended-command)
|
|
)
|
|
|
|
|
|
|
|
;;; projectile find file - quick switcher
|
|
(after! 'better-jumper
|
|
(map! :gnv "C-i" #'projectile-find-file)
|
|
)
|
|
(with-eval-after-load 'projectile
|
|
(add-to-list 'projectile-globally-ignored-directories "node_modules")
|
|
(add-to-list 'projectile-globally-ignored-directories ".obsidian")
|
|
(setq projectile-indexing-method 'native)
|
|
)
|
|
|
|
|
|
|
|
;;; obsidian
|
|
(after! obsidian
|
|
(setq obsidian-directory "~/work/things"
|
|
obsidian-inbox-directory "semi-public"
|
|
markdown-enable-wiki-links t
|
|
)
|
|
(global-obsidian-mode t)
|
|
)
|
|
|
|
|
|
|
|
|
|
;;; clipboard
|
|
(after! evil
|
|
(setq interprogram-cut-function nil
|
|
interprogram-paste-function nil)
|
|
)
|
|
(defun my/clipboard-copy (beg end)
|
|
"Copy region to the OS clipboard (bypassing the kill-ring)."
|
|
(interactive "r")
|
|
(let ((text (buffer-substring-no-properties beg end))
|
|
(inhibit-message t))
|
|
(gui-select-text text)
|
|
(deactivate-mark)
|
|
(when (called-interactively-p 'any)
|
|
(message "Copied to clipboard: %d chars" (length text)))))
|
|
|
|
(defun my/clipboard-paste ()
|
|
"Paste from the OS clipboard, replacing the region if active."
|
|
(interactive)
|
|
(let ((text (gui-get-selection 'CLIPBOARD)))
|
|
(unless text
|
|
(user-error "OS clipboard is empty"))
|
|
(when (use-region-p)
|
|
(delete-region (region-beginning) (region-end)))
|
|
(insert-for-yank text)))
|
|
(map! :v "C-c" #'my/clipboard-copy
|
|
:v "C-v" #'my/clipboard-paste
|
|
:i "C-v" #'my/clipboard-paste) ; insert-state paste, terminal-style
|
|
|
|
|
|
|
|
;;; in buffer completions
|
|
(setq tab-always-indent 'complete)
|
|
(after! corfu
|
|
; possible: basic, initials, orderless, partial-completion substring, flex
|
|
(setq completion-styles '(orderless flex partial-completion substring))
|
|
(setq corfu-cycle t
|
|
corfu-preview-current nil
|
|
corfu-min-width 20
|
|
corfu-on-exact-match 'insert
|
|
corfu-quit-no-match t
|
|
corfu-quit-at-boundary t
|
|
corfu-popupinfo-delay '(1.25 . 0.5))
|
|
(corfu-popupinfo-mode 1)
|
|
;; history-based sorting, persisted across restarts
|
|
(corfu-history-mode 1)
|
|
(after! savehist
|
|
(add-to-list 'savehist-additional-variables 'corfu-history)))
|
|
|
|
|
|
|
|
;;; C-i to pick first completion thing
|
|
(after! corfu
|
|
(defun my/corfu-insert-first ()
|
|
"Insert the first candidate immediately."
|
|
(interactive)
|
|
(corfu-next)
|
|
(corfu-insert)
|
|
)
|
|
(map! :map corfu-map
|
|
"<insert-state> C-i" #'my/corfu-insert-first
|
|
)
|
|
)
|
|
|
|
|
|
;;; better eval mappings
|
|
(map! :leader "m e" #'eval-last-sexp)
|
|
(map! :leader "m r" #'eval-print-last-sexp)
|
|
|
|
|
|
|
|
;;;; font/zoom
|
|
(setq doom-font (font-spec
|
|
;:family "Hack Mono"
|
|
:size 23 :weight 'regular))
|
|
|
|
|
|
;;; have authinfo file in my $SECRETS_DIR
|
|
(setq auth-sources '("~/secrets/authinfo"))
|
|
|
|
|
|
|
|
;;; empv
|
|
(after! empv
|
|
(customize-set-variable 'empv-subsonic-username "c2vi")
|
|
(customize-set-variable 'empv-subsonic-url "https://tunes.c2vi.dev")
|
|
(customize-set-variable 'empv-subsonic-password (f-read-text "~/secrets/tunes-password"))
|
|
)
|
|
|
|
|
|
|
|
;;; supersonic
|
|
(after! supersonic
|
|
(customize-set-variable 'supersonic-host "https://tunes.c2vi.dev")
|
|
)
|
|
|
|
|
|
;;; emms
|
|
(use-package! emms
|
|
:config
|
|
(emms-all) ;; Loads stable EMMS features
|
|
(setq emms-source-file-default-directory "~/work/music/"
|
|
emms-player-list '(emms-player-mpv))
|
|
)
|
|
(when (featurep 'dbusbind)
|
|
(after! emms
|
|
(require 'emms-mpris)
|
|
(emms-mpris-enable)))
|
|
|
|
;;; infrasonic
|
|
(use-package! infrasonic)
|
|
(defvar my-subsonic-client
|
|
(infrasonic-make-client :url "tunes.c2vi.dev")
|
|
)
|
|
(defun my-pick-song ()
|
|
(interactive)
|
|
(let* (
|
|
(playlist (infrasonic-get-playlist my-subsonic-client "6ad5avelak6Lnu2yEbWwjj"))
|
|
(entries (cdr (assoc 'entry playlist)))
|
|
(candidates (list))
|
|
(urls '())
|
|
(void (dolist (song entries)
|
|
(let* (
|
|
(artist (cdr (assoc 'artist song)))
|
|
(cropped-artist (truncate-string-to-width artist 50))
|
|
(title (cdr (assoc 'title song)))
|
|
(id (cdr (assoc 'id song)))
|
|
(line (format "%-50s - %s" cropped-artist title))
|
|
(stream-url (infrasonic-get-stream-url my-subsonic-client id))
|
|
)
|
|
(add-to-list 'candidates line)
|
|
(push (cons line stream-url) urls)
|
|
)
|
|
))
|
|
(completion-result (completing-read "Select track: " candidates))
|
|
(url (cdr (assoc completion-result urls)))
|
|
)
|
|
(emms-play-url url)
|
|
)
|
|
)
|
|
|
|
(defun my-load-playlist ()
|
|
(interactive)
|
|
(emms-playlist-mode-go)
|
|
(emms-playlist-clear)
|
|
|
|
(let* (
|
|
(playlist-id "6ad5avelak6Lnu2yEbWwjj")
|
|
(playlist (infrasonic-get-playlist
|
|
my-subsonic-client
|
|
playlist-id
|
|
))
|
|
(entries (cdr (assoc 'entry playlist)))
|
|
(track-count 0)
|
|
(void (dolist (track entries)
|
|
(let* (
|
|
(track-id (cdr (assoc 'id track)))
|
|
(title (cdr (assoc 'title track)))
|
|
(artist (cdr (assoc 'artist track)))
|
|
(stream-url (infrasonic-get-stream-url my-subsonic-client track-id))
|
|
(emmstrack (emms-track 'url stream-url))
|
|
)
|
|
;(message title)
|
|
(emms-track-set emmstrack 'info-title title)
|
|
(emms-track-set emmstrack 'info-artist artist)
|
|
(funcall emms-playlist-insert-track-function emmstrack)
|
|
)
|
|
))
|
|
)
|
|
)
|
|
)
|
|
|
|
|
|
|
|
;;; my finder
|
|
(defun my/obsidian--extra-files ()
|
|
"Return Markdown files from additional directories."
|
|
(let ((directory "~/notes/reference"))
|
|
(when (file-directory-p directory)
|
|
(directory-files-recursively
|
|
(expand-file-name directory)
|
|
"\\.md\\'"))))
|
|
|
|
(defun my/obsidian--candidate-data ()
|
|
"Return `(DISPLAY . FILE)' candidates for the Obsidian finder."
|
|
(let (result)
|
|
|
|
;; Files known to obsidian.el.
|
|
(maphash
|
|
(lambda (file metadata)
|
|
(let* ((tags (gethash 'tags metadata))
|
|
(aliases (gethash 'aliases metadata))
|
|
(title (file-name-base file))
|
|
(display
|
|
(concat
|
|
title
|
|
(when aliases
|
|
(format " [%s]" (string-join aliases ", ")))
|
|
(when tags
|
|
(format " #%s"
|
|
(string-join tags " #"))))))
|
|
(push (cons display file) result)))
|
|
obsidian-vault-cache)
|
|
|
|
;; Files in the additional directory.
|
|
(dolist (file (my/obsidian--extra-files))
|
|
(unless (assoc (file-name-base file) result)
|
|
(push (cons (file-name-base file) file) result)))
|
|
|
|
result))
|
|
|
|
(defun my-switcher ()
|
|
"Fuzzy-find all my stuff"
|
|
(interactive)
|
|
|
|
;; Make sure obsidian.el's cache is current.
|
|
;;(obsidian-update)
|
|
|
|
(let* ((data (my/obsidian--candidate-data))
|
|
(candidates (mapcar #'car data))
|
|
(choice
|
|
(completing-read
|
|
"things: "
|
|
candidates
|
|
nil
|
|
nil ; allow a new/non-existing note
|
|
nil
|
|
nil
|
|
nil)))
|
|
|
|
(if-let ((file (cdr (assoc choice data))))
|
|
;; Existing note.
|
|
(find-file file)
|
|
|
|
;; New note.
|
|
(let ((file
|
|
(expand-file-name
|
|
(if (string-suffix-p ".md" choice)
|
|
choice
|
|
(concat choice ".md"))
|
|
(expand-file-name obsidian-inbox-directory
|
|
obsidian-directory))))
|
|
(make-directory (file-name-directory file) t)
|
|
(find-file file)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(after! evil
|
|
(map! :gnv "C-e" #'my-switcher)
|
|
)
|
|
|
|
|
|
;;; the file buffer opening I used to have in zed
|
|
(defun my-toggle-dired-current-dir ()
|
|
"Toggle between Dired for the current file's directory and the original file."
|
|
(interactive)
|
|
(if (eq major-mode 'dired-mode)
|
|
;; If in Dired, cleanly kill the buffer and jump back
|
|
(quit-window t)
|
|
;; Otherwise, check if visiting a file, then open its directory
|
|
(if (buffer-file-name)
|
|
(dired (file-name-directory (buffer-file-name)))
|
|
(message "Current buffer is not visiting a file."))))
|
|
|
|
;; Doom Emacs keybinding macro for Ctrl+Shift+P
|
|
(map! "C-S-p" #'my-toggle-dired-current-dir)
|
|
|
|
|
|
|
|
|
|
;;; open the config.el file directly instead of the whole config folder
|
|
(map! :leader
|
|
:desc "Open Doom config.el"
|
|
"f p" (lambda ()
|
|
(interactive)
|
|
(find-file (expand-file-name "config.el" doom-private-dir))))
|
|
|
|
|
|
|
|
|
|
;;; xwidget don't ask when killing a buffer
|
|
(after! xwidget
|
|
(remove-hook 'kill-buffer-query-functions #'xwidget-kill-buffer-query-function)
|
|
)
|
|
|
|
|
|
|
|
;;; markdown stuff
|
|
(use-package! md-mode
|
|
:mode ("\\.md\\'" . md-mode))
|
|
(after! md-mode
|
|
(define-key md-mode-map (kbd "C-h") 'md-mode-goto-heading)
|
|
)
|
|
|
|
|
|
;;; evil - use visial line for down/up
|
|
(after! evil
|
|
(define-key evil-motion-state-map (kbd "j") 'evil-next-visual-line)
|
|
(define-key evil-motion-state-map (kbd "k") 'evil-previous-visual-line)
|
|
)
|
|
|
|
;;; workspace setup
|
|
(after! persp-mode
|
|
;; Automatically create a "main" workspace for miscellaneous tasks
|
|
(setq +workspaces-main "things")
|
|
;; Prevent emacsclient from forcing everything into a generic or new blank workspace
|
|
(setq persp-emacsclient-init-frame-behaviour-override nil)
|
|
|
|
(defun my/switch-to-project-workspace-on-client (frame)
|
|
"When an emacsclient frame is created, check if a file/folder was passed,
|
|
and automatically switch to its matching Doom project workspace."
|
|
(with-selected-frame frame
|
|
;; Only execute if a target file or directory is actually loaded
|
|
(when-let* ((target-path (or (buffer-file-name) default-directory))
|
|
;; Ask Projectile to find if this path belongs to a known project root
|
|
(project-root (projectile-project-root target-path)))
|
|
;; Instruct Doom to switch to the project's named workspace
|
|
(+workspace-switch project-root t)
|
|
;; Update Projectile's current project state for that workspace context
|
|
(setq projectile-project-root project-root))))
|
|
|
|
;; Hook this function to run every time an emacsclient connection spawns a frame
|
|
(add-hook 'after-make-frame-functions #'my/switch-to-project-workspace-on-client)
|
|
)
|
|
|
|
|
|
|
|
|
|
;;; scratch
|
|
(defun my/scratch ()
|
|
(lookup-key corfu-map (kbd "C-u"))
|
|
(lookup-key corfu-map (kbd "C-i"))
|
|
(define-key corfu-map (kbd "C-i") 'my/corfu-insert-first)
|
|
|
|
|
|
(emms-insert-url "https://tunes.c2vi.dev/rest/stream.view?u=c2vi&t=59248d02914f93abee797adcf0f14d6a&s=8a3988f950895ee7bd87e17651e65eb1&v=1.16.1&c=infrasonic&f=json&id=0FnN5Sb3mCItKdIiJZcG7x")
|
|
(message emms-playlist-buffer)
|
|
|
|
(+workspace-current-name)
|
|
(selected-frame)
|
|
|
|
)
|