From 63afafd29696a2cd74c66a005d32a7ed61ace22b Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 10 Sep 2022 22:05:27 +0100 Subject: wee tweaks --- init.el | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) (limited to 'init.el') diff --git a/init.el b/init.el index d5883d1..20d6daa 100644 --- a/init.el +++ b/init.el @@ -239,15 +239,21 @@ (add-to-list 'mailcap-mime-extensions '(".JPEG" . "image/jpeg")) (add-to-list 'mailcap-mime-extensions '(".JPG" . "image/jpeg")) - (defun jao-icalendar-import-buffer () + (defun jao-icalendar-import-buffer (&optional no-kill) (let ((icalendar-import-format "%s%u%l%d")) (icalendar-import-buffer diary-file t nil)) - (kill-buffer) + (unless no-kill (kill-buffer)) (message "Event imported into diary")) + (defun jao-icalendar-import-invite (file) + (with-temp-buffer + (insert-file-contents file) + (jao-icalendar-import-buffer t))) + :custom ((mailcap-user-mime-data `((jao-icalendar-import-buffer "application/ics") + ("emacsclient -e '(jao-icalendar-import-invite \"%s\")'" "application/ics") (pdf-view-mode "application/pdf" (display-graphic-p)) ("zathura \"%s\"" "application/pdf") (image-mode "image/*" (display-graphic-p)) @@ -443,9 +449,9 @@ (defun jao-xmonad-enabled-p () jao-xmonad-enabled) (defun jao-xmonad-enable () - (setq jao-browse-doc-use-emacs-p t) + (setq jao-browse-doc-use-emacs-p (display-graphic-p)) (setq jao-wallpaper-random-wake t) - (display-battery-mode 1) + (display-battery-mode -1) (jao-set-transparency) (jao-trisect) (message "Welcome to xmonad")) @@ -716,7 +722,7 @@ :demand t :init (setq jao-tracking-bkg (if (jao-colors-scheme-dark-p) "grey20" "grey93") - jao-tracking-use-scratch (not window-system)) + jao-tracking-use-scratch t) :config (jao-tracking-setup)) ;;;; tmr @@ -1279,7 +1285,7 @@ (not (bound-and-true-p jao-exwm--use-afio)) (boundp 'exwm-workspace-current-index)) (format "F%s" exwm-workspace-current-index)) - (jao-afio-use-frames (or (jao-afio-frame-name) "")) + (t jao-afio-use-frames (or (jao-afio-frame-name) "")) (t (format "%s" (or (jao-afio-frame-no) "")))) 'face 'font-lock-warning-face)) @@ -1866,7 +1872,7 @@ jao-use-vterm t) :config - (defun jao-vterm-send-C-c () (vterm-send-key "c" nil nil t)) + (defun jao-vterm-send-C-c () (interactive) (vterm-send-key "c" nil nil t)) (jao-define-attached-buffer "\\*vterm\\*" 0.5) -- cgit v1.2.3