mirror of
https://gitlab.com/dwt1/dotfiles.git
synced 2023-02-13 20:55:19 -05:00
346 lines
15 KiB
EmacsLisp
346 lines
15 KiB
EmacsLisp
(map! :leader
|
|
(:prefix ("b". "buffer")
|
|
:desc "List bookmarks" "L" #'list-bookmarks
|
|
:desc "Save current bookmarks to bookmark file" "w" #'bookmark-save))
|
|
|
|
(setq centaur-tabs-set-bar 'over
|
|
centaur-tabs-set-icons t
|
|
centaur-tabs-gray-out-icons 'buffer
|
|
centaur-tabs-height 24
|
|
centaur-tabs-set-modified-marker t
|
|
centaur-tabs-style "bar"
|
|
centaur-tabs-modified-marker "•")
|
|
(map! :leader
|
|
:desc "Toggle tabs globally" "t c" #'centaur-tabs-mode
|
|
:desc "Toggle tabs local display" "t C" #'centaur-tabs-local-mode)
|
|
(evil-define-key 'normal centaur-tabs-mode-map (kbd "g <right>") 'centaur-tabs-forward ; default Doom binding is 'g t'
|
|
(kbd "g <left>") 'centaur-tabs-backward ; default Doom binding is 'g T'
|
|
(kbd "g <down>") 'centaur-tabs-forward-group
|
|
(kbd "g <up>") 'centaur-tabs-backward-group)
|
|
|
|
(map! :leader
|
|
(:prefix ("d" . "dired")
|
|
:desc "Open dired" "d" #'dired
|
|
:desc "Dired jump to current" "j" #'dired-jump)
|
|
(:after dired
|
|
(:map dired-mode-map
|
|
:desc "Peep-dired image previews" "d p" #'peep-dired
|
|
:desc "Dired view file" "d v" #'dired-view-file)))
|
|
;; Make 'h' and 'l' go back and forward in dired. Much faster to navigate the directory structure!
|
|
(evil-define-key 'normal dired-mode-map
|
|
(kbd "h") 'dired-up-directory
|
|
(kbd "l") 'dired-open-file) ; use dired-find-file instead if not using dired-open package
|
|
;; If peep-dired is enabled, you will get image previews as you go up/down with 'j' and 'k'
|
|
(evil-define-key 'normal peep-dired-mode-map
|
|
(kbd "j") 'peep-dired-next-file
|
|
(kbd "k") 'peep-dired-prev-file)
|
|
(add-hook 'peep-dired-hook 'evil-normalize-keymaps)
|
|
;; Get file icons in dired
|
|
(add-hook 'dired-mode-hook 'all-the-icons-dired-mode)
|
|
;; With dired-open plugin, you can launch external programs for certain extensions
|
|
;; For example, I set all .png files to open in 'sxiv' and all .mp4 files to open in 'mpv'
|
|
(setq dired-open-extensions '(("gif" . "sxiv")
|
|
("jpg" . "sxiv")
|
|
("png" . "sxiv")
|
|
("mkv" . "mpv")
|
|
("mp4" . "mpv")))
|
|
|
|
(setq doom-theme 'doom-one)
|
|
(map! :leader
|
|
:desc "Load new theme" "h t" #'counsel-load-theme)
|
|
|
|
(custom-set-variables
|
|
'(elfeed-feeds
|
|
(quote
|
|
(("https://www.reddit.com/r/linux.rss" reddit linux)
|
|
("https://www.gamingonlinux.com/article_rss.php" gaming linux)
|
|
("https://hackaday.com/blog/feed/" hackaday linux)
|
|
("https://opensource.com/feed" opensource linux)
|
|
("https://linux.softpedia.com/backend.xml" softpedia linux)
|
|
("https://itsfoss.com/feed/" itsfoss linux)
|
|
("https://www.zdnet.com/topic/linux/rss.xml" zdnet linux)
|
|
("https://www.phoronix.com/rss.php" phoronix linux)
|
|
("http://feeds.feedburner.com/d0od" omgubuntu linux)
|
|
("https://www.computerworld.com/index.rss" computerworld linux)
|
|
("https://www.networkworld.com/category/linux/index.rss" networkworld linux)
|
|
("https://www.techrepublic.com/rssfeeds/topic/open-source/" techrepublic linux)
|
|
("https://betanews.com/feed" betanews linux)
|
|
("http://lxer.com/module/newswire/headlines.rss" lxer linux)
|
|
("https://distrowatch.com/news/dwd.xml" distrowatch linux)))))
|
|
|
|
(emms-all)
|
|
(emms-default-players)
|
|
(emms-mode-line 1)
|
|
(emms-playing-time 1)
|
|
(setq emms-source-file-default-directory "~/Music/Non-Classical/70s-80s/"
|
|
emms-playlist-buffer-name "*Music*"
|
|
emms-info-asynchronously t
|
|
emms-source-file-directory-tree-function 'emms-source-file-directory-tree-find)
|
|
(map! :leader
|
|
(:prefix ("a" . "EMMS audio player")
|
|
:desc "Go to emms playlist" "a" #'emms-playlist-mode-go
|
|
:desc "Emms pause track" "x" #'emms-pause
|
|
:desc "Emms stop track" "s" #'emms-stop
|
|
:desc "Emms play previous track" "p" #'emms-previous
|
|
:desc "Emms play next track" "n" #'emms-next))
|
|
|
|
(map! :leader
|
|
(:prefix ("e". "evaluate/EWW")
|
|
:desc "Evaluate elisp in buffer" "b" #'eval-buffer
|
|
:desc "Evaluate defun" "d" #'eval-defun
|
|
:desc "Evaluate elisp expression" "e" #'eval-expression
|
|
:desc "Evaluate last sexpression" "l" #'eval-last-sexp
|
|
:desc "Evaluate elisp in region" "r" #'eval-region))
|
|
|
|
(setq browse-url-browser-function 'eww-browse-url)
|
|
(map! :leader
|
|
:desc "Search web for text between BEG/END"
|
|
"s w" #'eww-search-words
|
|
(:prefix ("e" . "evaluate/EWW")
|
|
:desc "Eww web browser" "w" #'eww
|
|
:desc "Eww reload page" "R" #'eww-reload))
|
|
|
|
(setq doom-font (font-spec :family "Mononoki Nerd Font" :size 15)
|
|
doom-variable-pitch-font (font-spec :family "Ubuntu" :size 15)
|
|
doom-big-font (font-spec :family "Mononoki Nerd Font" :size 24))
|
|
(after! doom-themes
|
|
(setq doom-themes-enable-bold t
|
|
doom-themes-enable-italic t))
|
|
(custom-set-faces!
|
|
'(font-lock-comment-face :slant italic)
|
|
'(font-lock-keyword-face :slant italic))
|
|
|
|
(setq ivy-posframe-display-functions-alist
|
|
'((swiper . ivy-posframe-display-at-point)
|
|
(complete-symbol . ivy-posframe-display-at-point)
|
|
(counsel-M-x . ivy-display-function-fallback)
|
|
(counsel-esh-history . ivy-posframe-display-at-window-center)
|
|
(counsel-describe-function . ivy-display-function-fallback)
|
|
(counsel-describe-variable . ivy-display-function-fallback)
|
|
(counsel-find-file . ivy-display-function-fallback)
|
|
(counsel-recentf . ivy-display-function-fallback)
|
|
(counsel-register . ivy-posframe-display-at-frame-bottom-window-center)
|
|
(dmenu . ivy-posframe-display-at-frame-top-center)
|
|
(nil . ivy-posframe-display))
|
|
ivy-posframe-height-alist
|
|
'((swiper . 20)
|
|
(dmenu . 20)
|
|
(t . 10)))
|
|
(ivy-posframe-mode 1) ; 1 enables posframe-mode, 0 disables it.
|
|
|
|
(map! :leader
|
|
(:prefix ("v" . "Ivy")
|
|
:desc "Ivy push view" "v p" #'ivy-push-view
|
|
:desc "Ivy switch view" "v s" #'ivy-switch-view))
|
|
|
|
(setq display-line-numbers-type t)
|
|
(map! :leader
|
|
:desc "Comment or uncomment lines" "TAB TAB" #'comment-line
|
|
(:prefix ("t" . "toggle")
|
|
:desc "Toggle line numbers" "l" #'doom/toggle-line-numbers
|
|
:desc "Toggle line highlight in frame" "h" #'hl-line-mode
|
|
:desc "Toggle line highlight globally" "H" #'global-hl-line-mode
|
|
:desc "Toggle truncate lines" "t" #'toggle-truncate-lines))
|
|
|
|
(after! mastodon
|
|
(setq mastodon-instance-url "https://mastodon.technology/"))
|
|
|
|
(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu4e")
|
|
;;(require 'smtpmail)
|
|
(setq user-mail-address "derek@distrotube.com"
|
|
user-full-name "Derek Taylor"
|
|
;; I have my mbsyncrc in a different folder on my system, to keep it separate from the
|
|
;; mbsyncrc available publicly in my dotfiles. You MUST edit the following line.
|
|
;; Be sure that the following command is: "mbsync -c ~/.config/mu4e/mbsyncrc -a"
|
|
mu4e-get-mail-command "mbsync -c ~/.config/mu4e-dt/mbsyncrc -a"
|
|
mu4e-update-interval 300
|
|
mu4e-main-buffer-hide-personal-addresses t
|
|
message-send-mail-function 'smtpmail-send-it
|
|
starttls-use-gnutls t
|
|
smtpmail-starttls-credentials '(("smtp.1and1.com" 587 nil nil))
|
|
mu4e-sent-folder "/account-1/Sent"
|
|
mu4e-drafts-folder "/account-1/Drafts"
|
|
mu4e-trash-folder "/account-1/Trash"
|
|
mu4e-maildir-shortcuts
|
|
'(("/account-1/Inbox" . ?i)
|
|
("/account-1/Sent Items" . ?s)
|
|
("/account-1/Drafts" . ?d)
|
|
("/account-1/Trash" . ?t)))
|
|
|
|
;; (defvar my-mu4e-account-alist
|
|
;; '(("acc1-domain"
|
|
;; (mu4e-sent-folder "/acc1-domain/Sent")
|
|
;; (mu4e-drafts-folder "/acc1-domain/Drafts")
|
|
;; (mu4e-trash-folder "/acc1-domain/Trash")
|
|
;; (mu4e-compose-signature
|
|
;; (concat
|
|
;; "Ricky Bobby\n"
|
|
;; "acc1@domain.com\n"))
|
|
;; (user-mail-address "acc1@domain.com")
|
|
;; (smtpmail-default-smtp-server "smtp.domain.com")
|
|
;; (smtpmail-smtp-server "smtp.domain.com")
|
|
;; (smtpmail-smtp-user "acc1@domain.com")
|
|
;; (smtpmail-stream-type starttls)
|
|
;; (smtpmail-smtp-service 587))
|
|
;; ("acc2-domain"
|
|
;; (mu4e-sent-folder "/acc2-domain/Sent")
|
|
;; (mu4e-drafts-folder "/acc2-domain/Drafts")
|
|
;; (mu4e-trash-folder "/acc2-domain/Trash")
|
|
;; (mu4e-compose-signature
|
|
;; (concat
|
|
;; "Suzy Q\n"
|
|
;; "acc2@domain.com\n"))
|
|
;; (user-mail-address "acc2@domain.com")
|
|
;; (smtpmail-default-smtp-server "smtp.domain.com")
|
|
;; (smtpmail-smtp-server "smtp.domain.com")
|
|
;; (smtpmail-smtp-user "acc2@domain.com")
|
|
;; (smtpmail-stream-type starttls)
|
|
;; (smtpmail-smtp-service 587))
|
|
;; ("acc3-domain"
|
|
;; (mu4e-sent-folder "/acc3-domain/Sent")
|
|
;; (mu4e-drafts-folder "/acc3-domain/Drafts")
|
|
;; (mu4e-trash-folder "/acc3-domain/Trash")
|
|
;; (mu4e-compose-signature
|
|
;; (concat
|
|
;; "John Boy\n"
|
|
;; "acc3@domain.com\n"))
|
|
;; (user-mail-address "acc3@domain.com")
|
|
;; (smtpmail-default-smtp-server "smtp.domain.com")
|
|
;; (smtpmail-smtp-server "smtp.domain.com")
|
|
;; (smtpmail-smtp-user "acc3@domain.com")
|
|
;; (smtpmail-stream-type starttls)
|
|
;; (smtpmail-smtp-service 587))))
|
|
|
|
(load "~/.config/doom/email")
|
|
|
|
(defun my-mu4e-set-account ()
|
|
"Set the account for composing a message."
|
|
(let* ((account
|
|
(if mu4e-compose-parent-message
|
|
(let ((maildir (mu4e-message-field mu4e-compose-parent-message :maildir)))
|
|
(string-match "/\\(.*?\\)/" maildir)
|
|
(match-string 1 maildir))
|
|
(completing-read (format "Compose with account: (%s) "
|
|
(mapconcat #'(lambda (var) (car var))
|
|
my-mu4e-account-alist "/"))
|
|
(mapcar #'(lambda (var) (car var)) my-mu4e-account-alist)
|
|
nil t nil nil (caar my-mu4e-account-alist))))
|
|
(account-vars (cdr (assoc account my-mu4e-account-alist))))
|
|
(if account-vars
|
|
(mapc #'(lambda (var)
|
|
(set (car var) (cadr var)))
|
|
account-vars)
|
|
(error "No email account found"))))
|
|
|
|
(add-hook 'mu4e-compose-pre-hook 'my-mu4e-set-account)
|
|
|
|
(after! neotree
|
|
(setq neo-smart-open t
|
|
neo-window-fixed-size nil))
|
|
(after! doom-themes
|
|
(setq doom-neotree-enable-variable-pitch t))
|
|
(map! :leader
|
|
:desc "Toggle neotree file viewer" "t n" #'neotree-toggle
|
|
:desc "Open directory in neotree" "d n" #'neotree-dir)
|
|
|
|
(map! :leader
|
|
(:prefix ("-" . "open file")
|
|
:desc "Edit agenda file" "a" #'(lambda () (interactive) (find-file "~/Org/agenda.org"))
|
|
:desc "Edit doom config.org" "c" #'(lambda () (interactive) (find-file "~/.doom.d/config.org"))
|
|
:desc "Edit eshell aliases" "e" #'(lambda () (interactive) (find-file "~/.doom.d/aliases"))
|
|
:desc "Edit doom init.el" "i" #'(lambda () (interactive) (find-file "~/.doom.d/init.el"))
|
|
:desc "Edit doom packages.el" "p" #'(lambda () (interactive) (find-file "~/.doom.d/packages.el"))))
|
|
|
|
(after! org
|
|
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
|
|
(setq org-directory "~/Org/"
|
|
org-agenda-files '("~/Org/agenda.org")
|
|
org-default-notes-file (expand-file-name "notes.org" org-directory)
|
|
org-ellipsis " ▼ "
|
|
org-log-done 'time
|
|
org-journal-dir "~/Org/journal/"
|
|
org-journal-date-format "%B %d, %Y (%A) "
|
|
org-journal-file-format "%Y-%m-%d.org"
|
|
org-hide-emphasis-markers t
|
|
;; ex. of org-link-abbrev-alist in action
|
|
;; [[arch-wiki:Name_of_Page][Description]]
|
|
org-link-abbrev-alist ; This overwrites the default Doom org-link-abbrev-list
|
|
'(("google" . "http://www.google.com/search?q=")
|
|
("arch-wiki" . "https://wiki.archlinux.org/index.php/")
|
|
("ddg" . "https://duckduckgo.com/?q=")
|
|
("wiki" . "https://en.wikipedia.org/wiki/"))
|
|
org-todo-keywords ; This overwrites the default Doom org-todo-keywords
|
|
'((sequence
|
|
"TODO(t)" ; A task that is ready to be tackled
|
|
"BLOG(b)" ; Blog writing assignments
|
|
"GYM(g)" ; Things to accomplish at the gym
|
|
"PROJ(p)" ; A project that contains other tasks
|
|
"VIDEO(v)" ; Video assignments
|
|
"WAIT(w)" ; Something is holding up this task
|
|
"|" ; The pipe necessary to separate "active" states and "inactive" states
|
|
"DONE(d)" ; Task has been completed
|
|
"CANCELLED(c)" )))) ; Task has been cancelled
|
|
|
|
(defun dt/org-babel-tangle-async (file)
|
|
"Invoke `org-babel-tangle-file' asynchronously."
|
|
(message "Tangling %s..." (buffer-file-name))
|
|
(async-start
|
|
(let ((args (list file)))
|
|
`(lambda ()
|
|
(require 'org)
|
|
;;(load "~/.emacs.d/init.el")
|
|
(let ((start-time (current-time)))
|
|
(apply #'org-babel-tangle-file ',args)
|
|
(format "%.2f" (float-time (time-since start-time))))))
|
|
(let ((message-string (format "Tangling %S completed after " file)))
|
|
`(lambda (tangle-time)
|
|
(message (concat ,message-string
|
|
(format "%s seconds" tangle-time)))))))
|
|
|
|
(defun dt/org-babel-tangle-current-buffer-async ()
|
|
"Tangle current buffer asynchronously."
|
|
(dt/org-babel-tangle-async (buffer-file-name)))
|
|
|
|
(map! :leader
|
|
(:prefix ("r" . "registers")
|
|
:desc "Copy to register" "c" #'copy-to-register
|
|
:desc "Frameset to register" "f" #'frameset-to-register
|
|
:desc "Insert contents of register" "i" #'insert-register
|
|
:desc "Jump to register" "j" #'jump-to-register
|
|
:desc "List registers" "l" #'list-registers
|
|
:desc "Number to register" "n" #'number-to-register
|
|
:desc "Interactively choose a register" "r" #'counsel-register
|
|
:desc "View a register" "v" #'view-register
|
|
:desc "Window configuration to register" "w" #'window-configuration-to-register
|
|
:desc "Increment register" "+" #'increment-register
|
|
:desc "Point to register" "SPC" #'point-to-register))
|
|
|
|
(map! :leader
|
|
(:prefix ("\\" . "ssh")
|
|
:desc "Ssh into distrotube.com" "\\ d" #'(lambda () (interactive) (find-file "/scp:derek@distrotube.com"))
|
|
:desc "Ssh into my nextcloud" "\\ n" #'(lambda () (interactive) (find-file "/scp:derek@distrotube.net"))))
|
|
|
|
(setq shell-file-name "/bin/fish"
|
|
eshell-aliases-file "~/.doom.d/aliases"
|
|
eshell-history-size 5000
|
|
eshell-buffer-maximum-lines 5000
|
|
eshell-hist-ignoredups t
|
|
eshell-scroll-to-bottom-on-input t
|
|
eshell-destroy-buffer-when-process-dies t
|
|
eshell-visual-commands'("bash" "fish" "htop" "ssh" "top" "zsh")
|
|
vterm-max-scrollback 5000)
|
|
(map! :leader
|
|
:desc "Eshell" "e s" #'eshell
|
|
:desc "Counsel eshell history" "e h" #'counsel-esh-history)
|
|
|
|
(defun prefer-horizontal-split ()
|
|
(set-variable 'split-height-threshold nil t)
|
|
(set-variable 'split-width-threshold 40 t)) ; make this as low as needed
|
|
(add-hook 'markdown-mode-hook 'prefer-horizontal-split)
|
|
(map! :leader
|
|
:desc "Clone indirect buffer other window" "b c" #'clone-indirect-buffer-other-window)
|
|
|
|
(map! :leader
|
|
(:prefix ("w" . "window")
|
|
:desc "Winner redo" "<right>" #'winner-redo
|
|
:desc "Winner undo" "<left>" #'winner-undo))
|