Minor edits.

This commit is contained in:
Derek Taylor
2020-11-20 20:48:15 -06:00
parent 46225d0e12
commit 88685c9d9c
10 changed files with 97 additions and 11 deletions

View File

@@ -135,6 +135,7 @@
(require 'exwm)
(require 'exwm-config)
(exwm-config-default)
(require 'exwm-systemtray)
(exwm-systemtray-enable)
(require 'exwm-randr)
@@ -214,6 +215,23 @@
([?\s-m] . exwm-layout-toggle-mode-line)
([f11] . exwm-layout-toggle-fullscreen)))
(defun dt/exwm-start-picom ()
(interactive)
(start-process-shell-command "picom" nil "picom"))
(defun dt/exwm-start-nm-applet ()
(interactive)
(start-process-shell-command "nm-applet" nil "nm-applet"))
(defun dt/exwm-start-volume-icon ()
(interactive)
(start-process-shell-command "volume-icon" nil "volume-icon"))
(after! exwm-config
(dt/exwm-start-picom)
(dt/exwm-start-nm-applet)
(dt/exwm-start-volume-icon))
(setq doom-font (font-spec :family "SauceCodePro Nerd Font Mono" :size 15)
doom-variable-pitch-font (font-spec :family "Ubuntu" :size 15)
doom-big-font (font-spec :family "SauceCodePro Nerd Font Mono" :size 24))
@@ -346,6 +364,26 @@
"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
:desc "Copy to register"
"r c" #'copy-to-register