From 5d33bbcc137c8e5299640f4345a1341d10ee60f9 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 4 Apr 2021 21:41:56 +0100 Subject: configuration nits --- init.org | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) (limited to 'init.org') diff --git a/init.org b/init.org index 33b718f..4a858e9 100644 --- a/init.org +++ b/init.org @@ -537,7 +537,7 @@ (jao-themes-setup) (message "Welcome to sway")) #+end_src -*** wallpaper +*** Wallpaper #+begin_src emacs-lisp (defvar jao-wallpaper-dir "~/.wallpapers/") @@ -576,7 +576,7 @@ (add-to-list 'jao-sleep-awake-functions #'jao-set-random-wallpaper) #+end_src -*** screensaver and lock +*** Screensaver and lock #+begin_src emacs-lisp (defun jao-screensaver-enabled () (string= (jao-exec-string "xdg-screensaver status") "enabled")) @@ -608,6 +608,12 @@ ("u" jao-screensaver-toggle "enable/disable screensaver") ("q" nil "cancel")))) #+end_src +*** X clipboard + #+BEGIN_SRC emacs-lisp + (setq x-select-enable-clipboard t + x-select-enable-primary nil + x-selection-timeout 100) + #+END_SRC * Mode line *** Time display #+BEGIN_SRC emacs-lisp @@ -989,7 +995,7 @@ (put 'list-timers 'disabled nil) #+END_SRC * Files, dired and scratch buffer -*** So-long +*** so-long #+begin_src emacs-lisp (setq large-file-warning-threshold (* 200 1024 1024)) @@ -1004,7 +1010,7 @@ :ensure t :config (persistent-scratch-setup-default)) #+END_SRC -*** Automatically uncompress: +*** Automatically uncompress #+BEGIN_SRC emacs-lisp (require 'jka-compr) (auto-compression-mode 1) @@ -1016,7 +1022,7 @@ (use-package wgrep-ag :ensure t) (require 'wgrep) #+end_src -*** Dired +*** dired - [[https://www.masteringemacs.org/article/working-multiple-files-dired][Working with multiple files in dired - Mastering Emacs]] #+BEGIN_SRC emacs-lisp (require 'dired) @@ -1091,12 +1097,6 @@ (use-package visible-mode :bind (("s-v" . visible-mode))) #+end_src -*** X Clipboard - #+BEGIN_SRC emacs-lisp - (setq x-select-enable-clipboard t - x-select-enable-primary nil - x-selection-timeout 100) - #+END_SRC *** Changes #+BEGIN_SRC emacs-lisp (use-package goto-chg @@ -2235,7 +2235,6 @@ :config (with-eval-after-load "org" (require 'ol-eww nil t)) - (defun jao-eww--title () (if (eq "" (plist-get eww-data :title)) (plist-get eww-data :url) -- cgit v1.2.3