feat: many small changes

emacs.mine/.config/emacs.mine/emacs.org

@@ -198,13 +198,13 @@ Actuall Theme:
     (doom-themes-org-config))
 #+end_src
 
-Transperancy!
+Transparency!
 #+begin_src emacs-lisp
   ;; for the first frame
-  (set-frame-parameter nil 'alpha-background 0.9)
+  (set-frame-parameter nil 'alpha-background 0.8)
   ;; for other frames
   (add-hook 'server-after-make-frame-hook
-      (lambda nil  (set-frame-parameter nil 'alpha-background 0.9)))
+      (lambda nil  (set-frame-parameter nil 'alpha-background 0.8)))
 #+end_src
 
 Center text in the frame, looks nice ;)
@@ -922,16 +922,16 @@ use-package
 	(setq org-log-done 'time)
 	(setq org-log-into-drawer t)
 	(dolist (face '((org-document-title . 2.0)
-					(org-level-1 . 1.2)
+					(org-level-1 . 1.5)
-					(org-level-2 . 1.1)
+					(org-level-2 . 1.0)
-					(org-level-3 . 1.05)
+					(org-level-3 . 1.0)
 					(org-level-4 . 1.0)
-					(org-level-5 . 1.1)
+					(org-level-5 . 1.0)
-					(org-level-6 . 1.1)
+					(org-level-6 . 1.0)
-					(org-level-7 . 1.1)
+					(org-level-7 . 1.0)
-					(org-level-8 . 1.1)))
+					(org-level-8 . 1.0)))
 	  ;; (set-face-attribute (car face) nil :font my/ui/varfont :weight 'regular :height (cdr face)))
-	  (set-face-attribute (car face) nil :font my/ui/varfont :weight 'regular :height (cdr face)))
+	  (set-face-attribute (car face) nil :font my/ui/monofont :weight 'regular :height (cdr face)))
   ;)
 
 	(setq org-todo-keyword-faces `(("NOW" (:foreground "white" :background "#444527"))
@@ -1866,7 +1866,9 @@ Auto format
     ;; formats the buffer before saving
     ;; (add-hook 'before-save-hook 'tide-format-before-save)
     (add-hook 'before-save-hook 'prettier-js)
+    (add-to-list 'auto-mode-alist '("\\.tsx\\'" . js-jsx-mode))
   :hook(typescript-mode . setup-tide-mode)
+  :hook(typescript-mode . prettier-mode)
   :hook(typescript-mode . lsp))
 #+end_src
 
@@ -1889,6 +1891,7 @@ lsp hooks setups
 #+begin_src emacs-lisp
   (add-hook 'html-mode-hook 'lsp)
   (add-hook 'js-mode-hook 'lsp)
+  (add-hook 'js-jsx-mode-hook 'lsp)
 #+end_src
 
 *** Lua
@@ -2151,7 +2154,8 @@ ivy bibtex
 #+begin_src emacs-lisp
   (use-package nix-mode
      :hook (nix-mode .  (lambda ()
-              (add-hook 'before-save-hook 'nix-mode-format nil t))))
+              ;(add-hook 'before-save-hook 'nix-mode-format nil t)))); doesn't require nixfmt
+              (add-hook 'before-save-hook 'nix-format-buffer nil t))))
 
 #+end_src
 
@@ -2193,8 +2197,8 @@ ivy bibtex
 #+begin_src emacs-lisp
   (use-package vterm
       :commands vterm
-      ;; :bind (:map vterm-mode-map
+      :bind (:map vterm-mode-map
-      ;;         ("C-t" . vterm-toggle))
+              ("C-t" . vterm-toggle))
       :config
       ;;Toggle vterm
       (evil-define-key '(normal visual insert) 'vterm-mode-map (kbd "C-t") 'vterm-toggle)
@@ -2424,7 +2428,7 @@ I wrote that, neat isn't it? :P
 #+begin_src emacs-lisp :tangle no
     ;; Doesn't tangle!
     ;; loaded in use-package (block below)
-    (load "~/Documents/passwords/circe-networks.el")
+  (load "~/Nextcloud/Passwords/circe-networks.el")
 
    ; example content
   (add-to-list 'circe-networks `("chat.name/username" :host "irc.example.com" :port 69
@@ -2475,7 +2479,7 @@ I wrote that, neat isn't it? :P
     (enable-lui-track)
     ;(add-to-list 'circe-networks `())
     ;; adding to list happens here!
-    (load "~/Documents/passwords/circe-networks.el")
+    (load "~/Nextcloud/Passwords/circe-networks.el")
     (setq circe-color-nicks-min-constrast-ratio 4.5
           circe-color-nicks-everywhere t)
     :hook (circe-channel-mode . enable-circe-color-nicks)
@@ -2519,9 +2523,12 @@ I wrote that, neat isn't it? :P
 * Email (mu4e)
 ** Package
 #+begin_src emacs-lisp
-  (use-package mu4e
+
-    :demand
+  (use-package mu4e                       ;
-    ;; :ensure-system-package mu
+  ;; this line is for nixos
+  ;; until here
+    ;;:ensure-system-package mu
+    :commands (mu4e)
     :bind   (:map mu4e-main-mode-map
              ([remap revert-buffer] . mu4e-update-index))
     :custom
@@ -2540,8 +2547,8 @@ I wrote that, neat isn't it? :P
       (mu4e-view-mode . olivetti-mode) 
       (mu4e-main-mode . olivetti-mode)
       (mu4e-compose-mode . flyspell-mode)
-      (mu4e-context-changed . mu4e-update-index)
+      (mu4e-context-changed . mu4e-update-index))
-  )
+
 #+end_src
 
 ** Contexts
@@ -2550,6 +2557,7 @@ I wrote that, neat isn't it? :P
   ;; ~/Maildir/Account0/{Inbox,Sent,Trash}
   ;; ~/Maildir/Account1/{Inbox,Sent,Trash}
   ;; where Account0 is context name
+(with-eval-after-load 'mu4e
   (defun my-make-mu4e-context (context-name full-name mail-address signature)
     "Return a mu4e context named CONTEXT-NAME with :match-func matching
   folder name CONTEXT-NAME in Maildir. The context's `user-mail-address',
@@ -2597,7 +2605,7 @@ I wrote that, neat isn't it? :P
          (mu4e-drafts-folder   .   ,(concat dir-name "/Drafts"))
          (mu4e-trash-folder    .   ,(concat dir-name "/Trash"))
          (mu4e-refile-folder   .   ,(concat dir-name "/Archive"))
-         (mu4e-compose-signature . ,signature)))))
+         (mu4e-compose-signature . ,signature))))))
   ;;Fixing duplicate UID errors when using mbsync and mu4e
 #+end_src
 
@@ -2606,6 +2614,7 @@ I wrote that, neat isn't it? :P
   ;; This is a sample, it doesn't get included in init.el
   ;; I put mine at location specified in the  next code block
   ;; any number of email can be used ofc
+(with-eval-after-load 'mu4e
   (setq mu4e-contexts `(
     ,(my-make-mu4e-context
             "maildir-context" "Full Name"
@@ -2613,13 +2622,13 @@ I wrote that, neat isn't it? :P
     ,(my-make-mu4e-context
             "maildir-context2" "Full Name2"
             "Email Address2" "Signature2")
-    ))
+    )))
 #+end_src
 
 or don't include in git source :)
 #+begin_src emacs-lisp
-(eval-after-load 'mu4e
+(with-eval-after-load 'mu4e
-  (load "~/Documents/passwords/mu4e-context.el"))
+  (load "~/Nextcloud/Passwords/mu4e-context.el"))
 #+end_src
 
 ** Other fixes
@@ -2628,16 +2637,18 @@ see: [[https://github.com/djcb/mu/issues/1136][djcb/mu#1136 Shouldn't set flag T
 should only move to trash, not delete entirely from the server
 
 #+begin_src emacs-lisp
-(setf (alist-get 'trash mu4e-marks)
+
-      (list :char '("d" . "▼")
+(with-eval-after-load 'mu4e
-            :prompt "dtrash"
+  (setf (alist-get 'trash mu4e-marks)
-            :dyn-target (lambda (target msg)
+        (list :char '("d" . "▼")
-                          (mu4e-get-trash-folder msg))
+              :prompt "dtrash"
-            :action (lambda (docid msg target)
+              :dyn-target (lambda (target msg)
-                      ;; Here's the main difference to the regular trash mark,
+                            (mu4e-get-trash-folder msg))
-                      ;; no +T before -N so the message is not marked as
+              :action (lambda (docid msg target)
-                      ;; IMAP-deleted:
+                        ;; Here's the main difference to the regular trash mark,
-                      (mu4e--server-move docid (mu4e--mark-check-target target) "-N"))))
+                        ;; no +T before -N so the message is not marked as
+                        ;; IMAP-deleted:
+                        (mu4e--server-move docid (mu4e--mark-check-target target) "-N")))))
 
 #+end_src
 
@@ -2659,9 +2670,10 @@ I prefer text/plain, over everything >:)
   (add-to-list 'mm-discouraged-alternatives "text/richtext")
   (add-to-list 'mm-discouraged-alternatives "text/html"))
 #+end_src
+
 ** Send email (msmtp)
 #+begin_src emacs-lisp
-(setq sendmail-program "/usr/bin/msmtp"
+(setq sendmail-program (executable-find "msmtp")  ;"/usr/bin/msmtp"
       message-sendmail-f-is-evil t
       message-sendmail-extra-arguments '("--read-envelope-from")
       send-mail-function 'smtpmail-send-it