From aa535ab7614d48b895f3bf8183b367c0ea51370f Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 27 Jan 2022 06:19:48 +0000
Subject: little things

---
 init.org | 75 ++++++++++++++++++++++++++++++++--------------------------------
 1 file changed, 38 insertions(+), 37 deletions(-)

(limited to 'init.org')

diff --git a/init.org b/init.org
index 9e11da4..79844f0 100644
--- a/init.org
+++ b/init.org
@@ -299,6 +299,19 @@
           (let ((alpha (/ level 100.0)))
             (jao-swaymsg (format "[app_id=emacs] opacity %s" alpha)))))
 
+      (defun jao-set-transparency (level)
+        (interactive "nOpacity (0-100): ")
+        (let ((level (or level jao-frames-default-alpha)))
+          (setq jao-transparent-p (< level 100))
+          (if jao-sway-enabled-p
+              (jao-sway-set-transparency level)
+            (set-frame-parameter nil 'alpha (list level level)))))
+
+      (defun jao-transparent-p ()
+        (if jao-sway-enabled-p
+            jao-transparent-p
+          (/= (or (cadr (frame-parameter nil 'alpha)) 100) 100)))
+
       (defun jao-toggle-transparency (&optional all)
         (interactive "P")
         (setq jao-transparent-p (not jao-transparent-p))
@@ -308,23 +321,8 @@
                           (new-alpha (if trans 100 jao-frames-default-alpha))
                           (a `((alpha . (,new-alpha ,new-alpha)))))
                      (modify-all-frames-parameters a)))
-              ((/= (or (cadr (frame-parameter nil 'alpha)) 100) 100)
-               (set-frame-parameter nil 'alpha '(100 100)))
-              (t (set-frame-parameter nil 'alpha `(,jao-frames-default-alpha
-                                                   ,jao-frames-default-alpha)))))
-
-      (defun jao-transparent-p ()
-        (if jao-sway-enabled-p
-            jao-transparent-p
-          (/= (or (cadr (frame-parameter nil 'alpha)) 100) 100)))
-
-      (defun jao-set-transparency (level)
-        (interactive "nOpacity (0-100): ")
-        (let ((level (or level jao-frames-default-alpha)))
-          (setq jao-transparent-p (< level 100))
-          (if jao-sway-enabled-p
-              (jao-sway-set-transparency level)
-            (set-frame-parameter nil 'alpha (list level level)))))
+              ((jao-transparent-p) (jao-set-transparency 100))
+              (t (jao-set-transparency jao-frames-default-alpha))))
     #+end_src
 *** Widgets
     #+begin_src emacs-lisp
@@ -2384,14 +2382,14 @@
         )
     #+end_src
 *** Idris
-    #+begin_src emacs-lisp :tangle no
+    #+begin_src emacs-lisp
       (use-package idris-mode
         :ensure t
         :custom ((idris-interpreter-path "idris2")
                  (idris-pretty-printer-width 80)
                  (idris-repl-history-file "~/.emacs.d/cache/idris-history.eld")
                  (idris-stay-in-current-window-on-compiler-error t)))
-      (jao-define-attached-buffer "^\\*idris.*" 0.4)
+      (jao-define-attached-buffer "^\\*idris.*")
     #+end_src
 *** Clojure
     #+begin_src emacs-lisp
@@ -2472,28 +2470,13 @@
       ;; (jao-load-path "geiser/gambit")
       ;; (use-package geiser-gambit)
 
+      ;; (jao-load-path "geiser/gauche")
+      ;; (use-package geiser-gauche)
+
       (jao-define-attached-buffer "^\\* ?Geiser .*\\*" 0.4)
       (jao-define-attached-buffer "^\\* Guile REPL \\*" 0.4)
 
     #+end_src
-*** Pie
-    #+begin_src emacs-lisp
-      (jao-load-path "pie")
-      (use-package pie
-        :demand t
-        :commands (pie-mode))
-    #+end_src
-*** Lisp
-    #+begin_src emacs-lisp :tangle no
-      (use-package sly
-        :ensure t
-        :init (setq inferior-lisp-program "sbcl")
-        :config (sly-setup))
-
-      (use-package sly-quicklisp
-        :after (sly)
-        :ensure t)
-    #+end_src
 *** Haskell
 ***** packages
       #+begin_src emacs-lisp
@@ -2564,6 +2547,24 @@
            ("h" "Hoogle" jao-haskell-hoogle)
            ("H" "Hoogle from local server" haskell-hoogle-lookup-from-local)])
       #+end_src
+*** Pie
+    #+begin_src emacs-lisp
+      (jao-load-path "pie")
+      (use-package pie
+        :demand t
+        :commands (pie-mode))
+    #+end_src
+*** Lisp
+    #+begin_src emacs-lisp :tangle no
+      (use-package sly
+        :ensure t
+        :init (setq inferior-lisp-program "sbcl")
+        :config (sly-setup))
+
+      (use-package sly-quicklisp
+        :after (sly)
+        :ensure t)
+    #+end_src
 *** Prolog
     #+BEGIN_SRC emacs-lisp
       (use-package ediprolog :ensure t)
-- 
cgit v1.2.3