diff options
| -rw-r--r-- | init.org | 75 | ||||
| -rw-r--r-- | notmuch.org | 2 |
2 files changed, 40 insertions, 37 deletions
@@ -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) diff --git a/notmuch.org b/notmuch.org index d3eca93..a0fb99f 100644 --- a/notmuch.org +++ b/notmuch.org @@ -86,6 +86,7 @@ "lobsters" "clojure" "haskell" + "idris" "pharo" "lisp" "scheme" @@ -259,6 +260,7 @@ (save-window-excursion (org-agenda-list)) (let ((b (current-buffer))) (pop-to-buffer "*Calendar*") + (goto-char (point-min)) (calendar-goto-today) (pop-to-buffer b))) |