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