sqrtminusone/dotfiles
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/dotfiles.git synced 2025-12-10 19:23:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat(emacs): msmtp, org-present, zone

Browse source
This commit is contained in:
Pavel Korytov 2021-03-07 16:02:27 +03:00
parent fad031bcb9
commit 3f9d86fe95
2 changed files with 168 additions and 58 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

120
.emacs.d/emacs.org
View file

@ -497,7 +497,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
:straight t)
(use-package treemacs-magit
:after treemacs magit
:after (treemacs magit)
:straight t)
(general-define-key
@ -663,11 +663,10 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
:config
(editorconfig-mode 1))
#+end_src
** Avy
#+begin_src emacs-lisp
** OFF Avy
#+begin_src emacs-lisp :tangle no
(use-package avy
:straight t
:defer t)
:straight t)
(general-nmap "\\\\w" 'avy-goto-word-0-below)
(general-nmap "\\\\b" 'avy-goto-word-0-above)
@ -942,6 +941,10 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(org-babel-jupyter-override-src-block "python")
(add-hook 'org-src-mode-hook
(lambda ()
(hs-minor-mode 0)))
(use-package ob-async
:straight t
:after (org)
@ -1008,7 +1011,9 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
:keymaps 'org-mode-map
:states '(normal emacs)
"L" 'org-shiftright
"H" 'org-shiftleft)
"H" 'org-shiftleft
"S-<next>" 'org-babel-next-src-block
"S-<prior>" 'org-babel-previous-src-block)
(general-define-key
:keymaps 'org-agenda-mode-map
@ -1067,6 +1072,38 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
("event" ,(list (all-the-icons-octicon "clock")) nil nil :ascent center)
))
#+end_src
** Presentations
#+begin_src emacs-lisp
(use-package hide-mode-line
:straight t)
(use-package org-present
:straight (:host github :repo "rlister/org-present")
:commands (org-present)
:config
(general-define-key
:keymaps 'org-present-mode-keymap
"<next>" 'org-present-next
"<prior>" 'org-present-prev)
(add-hook 'org-present-mode-hook
(lambda ()
(org-present-big)
(org-display-inline-images)
(org-present-hide-cursor)
(org-present-read-only)
(display-line-numbers-mode 0)
(hide-mode-line-mode +1)
(tab-bar-mode 0)))
(add-hook 'org-present-mode-quit-hook
(lambda ()
(org-present-small)
(org-remove-inline-images)
(org-present-show-cursor)
(org-present-read-write)
(display-line-numbers-mode 1)
(hide-mode-line-mode 0)
(tab-bar-mode 1))))
#+end_src
** Other settings
#+begin_src emacs-lisp
(setq org-startup-indented t)
@ -1146,8 +1183,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
:states '(normal emacs)
"gt" 'tab-bar-switch-to-next-tab
"gT" 'tab-bar-switch-to-prev-tab
"gn" 'tab-bar-new-tab
)
"gn" 'tab-bar-new-tab)
(setq tab-bar-show 1)
(setq tab-bar-tab-hints t)
@ -1168,12 +1204,12 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
"]")
(let ((prefix (car (s-match my/project-title-separators elem))))
(let ((rest
(substring
(if prefix
(substring elem (length prefix))
elem)
0 (if crop 1 nil))
))
(substring
(if prefix
(substring elem (length prefix))
elem)
0 (if crop 1 nil))
))
(concat prefix rest))
)))
@ -1184,13 +1220,13 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
#'concat
(cl-mapcar (lambda (elem) (my/shorten-project-name-elem elem t)) (butlast elems)))
(my/shorten-project-name-elem (car (last elems)) nil))))
(defun my/tab-bar-name-function ()
(let ((project-name (projectile-project-name)))
(if (string= "-" project-name)
(tab-bar-tab-name-current-with-count)
(concat "[" (my/shorten-project-name project-name) "] " (tab-bar-tab-name-current-with-count)))))
(setq tab-bar-tab-name-function #'my/tab-bar-name-function)
#+end_src
** Modeline
@ -1306,7 +1342,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
#+end_src
** Zoom
#+begin_src emacs-lisp
(defun zoom-in ()
(defun my/zoom-in ()
"Increase font size by 10 points"
(interactive)
(set-face-attribute 'default nil
@ -1314,7 +1350,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(+ (face-attribute 'default :height)
10)))
(defun zoom-out ()
(defun my/zoom-out ()
"Decrease font size by 10 points"
(interactive)
(set-face-attribute 'default nil
@ -1323,8 +1359,8 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
10)))
;; change font size, interactively
(global-set-key (kbd "C-+") 'zoom-in)
(global-set-key (kbd "C-=") 'zoom-out)
(global-set-key (kbd "C-+") 'my/zoom-in)
(global-set-key (kbd "C-=") 'my/zoom-out)
#+end_src
** OFF Transparency
#+begin_src emacs-lisp :tangle no
@ -1383,6 +1419,12 @@ pip install qtconsole markdown qrcode[pil] PyQt5 PyQtWebEngine
:ensure nil
:commands (notmuch)
:config
(setq mail-specify-envelope-from t)
(setq message-sendmail-envelope-from 'header)
(setq mail-envelope-from 'header)
(setq notmuch-always-prompt-for-sender t)
(setq sendmail-program "/usr/bin/msmtp")
(setq send-mail-function #'sendmail-send-it)
(add-hook 'notmuch-hello-mode-hook
(lambda () (display-line-numbers-mode 0))))
@ -1820,10 +1862,16 @@ pip install qtconsole markdown qrcode[pil] PyQt5 PyQtWebEngine
"p" 'langtool-goto-previous-error)
#+end_src
** Python
*** Python mode
#+begin_src emacs-lisp
(add-hook 'python-mode-hook #'smartparens-mode)
(add-hook 'python-mode-hook #'hs-minor-mode)
#+end_src
*** OFF Jupyter Notebooks
#+begin_src emacs-lisp :tangle no
(use-package ein
:straight (:build (:not native-compile) :source melpa))
#+end_src
** OFF SQL
#+begin_src emacs-lisp :tangle no
(use-package ejc-sql
@ -1858,9 +1906,14 @@ pip install qtconsole markdown qrcode[pil] PyQt5 PyQtWebEngine
:mode "\\.clj[sc]?\\'"
:straight t)
#+end_src
** Elisp
** Emacs Lisp
#+begin_src emacs-lisp
(add-hook 'lisp-interaction-mode-hook #'smartparens-mode)
(add-hook 'emacs-lisp-mode-hook #'smartparens-strict-mode)
(add-hook 'emacs-lisp-mode-hook #'aggressive-indent-mode)
(sp-with-modes sp-lisp-modes
(sp-local-pair "'" nil :actions nil))
#+end_src
** Go
#+begin_src emacs-lisp
@ -1930,14 +1983,6 @@ pip install qtconsole markdown qrcode[pil] PyQt5 PyQtWebEngine
:mode "Dockerfile\\'"
:straight t)
#+end_src
** Emacs Lisp
#+begin_src emacs-lisp
(add-hook 'emacs-lisp-mode-hook #'smartparens-strict-mode)
(add-hook 'emacs-lisp-mode-hook #'aggressive-indent-mode)
(sp-with-modes sp-lisp-modes
(sp-local-pair "'" nil :actions nil))
#+end_src
* TRAMP
** Performance
#+begin_src emacs-lisp
@ -1965,6 +2010,23 @@ pip install qtconsole markdown qrcode[pil] PyQt5 PyQtWebEngine
:straight (:repo "alphapapa/snow.el" :host github)
:commands (snow))
#+end_src
** Zone
#+begin_src emacs-lisp
(use-package zone
:ensure nil
:config
(setq original-zone-programs (copy-sequence zone-programs)))
(defun my/zone-with-select ()
(interactive)
(ivy-read "Zone programs"
(cl-pairlis
(cl-mapcar 'symbol-name original-zone-programs)
original-zone-programs)
:action (lambda (elem)
(setq zone-programs (vector (cdr elem)))
(zone))))
#+end_src
** OFF Telegram
#+begin_src emacs-lisp :tangle no
(use-package telega

106
.emacs.d/init.el
View file

@ -373,7 +373,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
:straight t)
(use-package treemacs-magit
:after treemacs magit
:after (treemacs magit)
:straight t)
(general-define-key
@ -504,13 +504,6 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
:config
(editorconfig-mode 1))
(use-package avy
:straight t
:defer t)
(general-nmap "\\\\w" 'avy-goto-word-0-below)
(general-nmap "\\\\b" 'avy-goto-word-0-above)
(use-package yasnippet
:straight t
:config
@ -751,6 +744,10 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(org-babel-jupyter-override-src-block "python")
(add-hook 'org-src-mode-hook
(lambda ()
(hs-minor-mode 0)))
(use-package ob-async
:straight t
:after (org)
@ -807,7 +804,9 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
:keymaps 'org-mode-map
:states '(normal emacs)
"L" 'org-shiftright
"H" 'org-shiftleft)
"H" 'org-shiftleft
"S-<next>" 'org-babel-next-src-block
"S-<prior>" 'org-babel-previous-src-block)
(general-define-key
:keymaps 'org-agenda-mode-map
@ -850,6 +849,36 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
("event" ,(list (all-the-icons-octicon "clock")) nil nil :ascent center)
))
(use-package hide-mode-line
:straight t)
(use-package org-present
:straight (:host github :repo "rlister/org-present")
:commands (org-present)
:config
(general-define-key
:keymaps 'org-present-mode-keymap
"<next>" 'org-present-next
"<prior>" 'org-present-prev)
(add-hook 'org-present-mode-hook
(lambda ()
(org-present-big)
(org-display-inline-images)
(org-present-hide-cursor)
(org-present-read-only)
(display-line-numbers-mode 0)
(hide-mode-line-mode +1)
(tab-bar-mode 0)))
(add-hook 'org-present-mode-quit-hook
(lambda ()
(org-present-small)
(org-remove-inline-images)
(org-present-show-cursor)
(org-present-read-write)
(display-line-numbers-mode 1)
(hide-mode-line-mode 0)
(tab-bar-mode 1))))
(setq org-startup-indented t)
(setq org-return-follows-link t)
@ -919,8 +948,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
:states '(normal emacs)
"gt" 'tab-bar-switch-to-next-tab
"gT" 'tab-bar-switch-to-prev-tab
"gn" 'tab-bar-new-tab
)
"gn" 'tab-bar-new-tab)
(setq tab-bar-show 1)
(setq tab-bar-tab-hints t)
@ -939,12 +967,12 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
"]")
(let ((prefix (car (s-match my/project-title-separators elem))))
(let ((rest
(substring
(if prefix
(substring elem (length prefix))
elem)
0 (if crop 1 nil))
))
(substring
(if prefix
(substring elem (length prefix))
elem)
0 (if crop 1 nil))
))
(concat prefix rest))
)))
@ -955,13 +983,13 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
#'concat
(cl-mapcar (lambda (elem) (my/shorten-project-name-elem elem t)) (butlast elems)))
(my/shorten-project-name-elem (car (last elems)) nil))))
(defun my/tab-bar-name-function ()
(let ((project-name (projectile-project-name)))
(if (string= "-" project-name)
(tab-bar-tab-name-current-with-count)
(concat "[" (my/shorten-project-name project-name) "] " (tab-bar-tab-name-current-with-count)))))
(setq tab-bar-tab-name-function #'my/tab-bar-name-function)
(use-package doom-modeline
@ -1061,7 +1089,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
"//" "///" "/*" "*/" "/=" "//=" "/==" "@_" "__"))
(global-ligature-mode t))
(defun zoom-in ()
(defun my/zoom-in ()
"Increase font size by 10 points"
(interactive)
(set-face-attribute 'default nil
@ -1069,7 +1097,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(+ (face-attribute 'default :height)
10)))
(defun zoom-out ()
(defun my/zoom-out ()
"Decrease font size by 10 points"
(interactive)
(set-face-attribute 'default nil
@ -1078,8 +1106,8 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
10)))
;; change font size, interactively
(global-set-key (kbd "C-+") 'zoom-in)
(global-set-key (kbd "C-=") 'zoom-out)
(global-set-key (kbd "C-+") 'my/zoom-in)
(global-set-key (kbd "C-=") 'my/zoom-out)
(setq scroll-conservatively scroll-margin)
(setq scroll-step 1)
@ -1098,6 +1126,12 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
:ensure nil
:commands (notmuch)
:config
(setq mail-specify-envelope-from t)
(setq message-sendmail-envelope-from 'header)
(setq mail-envelope-from 'header)
(setq notmuch-always-prompt-for-sender t)
(setq sendmail-program "/usr/bin/msmtp")
(setq send-mail-function #'sendmail-send-it)
(add-hook 'notmuch-hello-mode-hook
(lambda () (display-line-numbers-mode 0))))
@ -1407,6 +1441,11 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
:straight t)
(add-hook 'lisp-interaction-mode-hook #'smartparens-mode)
(add-hook 'emacs-lisp-mode-hook #'smartparens-strict-mode)
(add-hook 'emacs-lisp-mode-hook #'aggressive-indent-mode)
(sp-with-modes sp-lisp-modes
(sp-local-pair "'" nil :actions nil))
(use-package go-mode
:straight t
@ -1458,12 +1497,6 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
:mode "Dockerfile\\'"
:straight t)
(add-hook 'emacs-lisp-mode-hook #'smartparens-strict-mode)
(add-hook 'emacs-lisp-mode-hook #'aggressive-indent-mode)
(sp-with-modes sp-lisp-modes
(sp-local-pair "'" nil :actions nil))
(setq remote-file-name-inhibit-cache nil)
(setq tramp-default-method "ssh")
(setq vc-ignore-dir-regexp
@ -1482,3 +1515,18 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(use-package snow
:straight (:repo "alphapapa/snow.el" :host github)
:commands (snow))
(use-package zone
:ensure nil
:config
(setq original-zone-programs (copy-sequence zone-programs)))
(defun my/zone-with-select ()
(interactive)
(ivy-read "Zone programs"
(cl-pairlis
(cl-mapcar 'symbol-name original-zone-programs)
original-zone-programs)
:action (lambda (elem)
(setq zone-programs (vector (cdr elem)))
(zone))))