mirror of
https://gitlab.com/dwt1/dotfiles.git
synced 2026-04-22 11:00:27 +10:00
Minor edits to Doom Emacs and XMonad.
This commit is contained in:
@@ -49,7 +49,7 @@
|
||||
(map! :leader
|
||||
:desc "Load new theme" "h t" #'counsel-load-theme)
|
||||
|
||||
(require 'elfeed-goodies)
|
||||
(use-package! elfeed-goodies)
|
||||
(elfeed-goodies/setup)
|
||||
(setq elfeed-goodies/entry-pane-size 0.5)
|
||||
(add-hook 'elfeed-show-mode-hook 'visual-line-mode)
|
||||
@@ -292,26 +292,6 @@
|
||||
"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
|
||||
|
||||
Reference in New Issue
Block a user