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

feat(emacs): olivetti, ein, keycast sx.el

Browse source
This commit is contained in:
Pavel Korytov 2022-04-08 23:17:01 +03:00
parent ac1b6a5434
commit 8145157f01
2 changed files with 223 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

171
.emacs.d/init.el
View file

@ -796,6 +796,22 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
;; (format "@%s" (system-name))))) ;; (format "@%s" (system-name)))))
)) ))
(use-package olivetti
:straight t
:config
(setq-default olivetti-body-width 86))
(use-package keycast
:config
(define-minor-mode keycast-mode
:global t
(if keycast-mode
(progn
(add-to-list 'global-mode-string '("" keycast-mode-line " "))
(add-hook 'pre-command-hook 'keycast--update t) )
(remove-hook 'pre-command-hook 'keycast--update)
(setq global-mode-string (delete '("" keycast-mode-line " ") global-mode-string)))))
(use-package doom-themes (use-package doom-themes
:straight t :straight t
:if (not my/is-termux) :if (not my/is-termux)
@ -2019,6 +2035,9 @@ Returns (<buffer> . <workspace-index>) or nil."
:config :config
(add-hook 'clips-mode 'lispy-mode)) (add-hook 'clips-mode 'lispy-mode))
(use-package ein
:straight t)
(setq my/pipenv-python-alist '()) (setq my/pipenv-python-alist '())
(defun my/get-pipenv-python () (defun my/get-pipenv-python ()
@ -2666,30 +2685,36 @@ Returns (<buffer> . <workspace-index>) or nil."
:keymaps 'org-present-mode-keymap :keymaps 'org-present-mode-keymap
"<next>" 'my/present-next-with-latex "<next>" 'my/present-next-with-latex
"<prior>" 'my/present-prev-with-latex) "<prior>" 'my/present-prev-with-latex)
(add-hook 'org-present-mode-hook (setq org-present-mode-hook
(lambda () (list (lambda ()
(blink-cursor-mode 0) (blink-cursor-mode 0)
(org-present-big) (org-present-big)
;; (org-display-inline-images) (org-bars-mode -1)
(org-present-hide-cursor) ;; (org-display-inline-images)
(org-present-read-only) (org-present-hide-cursor)
(display-line-numbers-mode 0) (org-present-read-only)
(hide-mode-line-mode +1) (display-line-numbers-mode 0)
(setq-local org-format-latex-options (hide-mode-line-mode +1)
(plist-put org-format-latex-options (setq-local org-format-latex-options
:scale (* org-present-text-scale my/org-latex-scale 0.5))) (plist-put org-format-latex-options
(org-latex-preview '(16)))) :scale (* org-present-text-scale my/org-latex-scale 0.5)))
(add-hook 'org-present-mode-quit-hook (org-latex-preview '(16))
(lambda () (setq-local olivetti-body-width 60)
(blink-cursor-mode 1) (olivetti-mode 1))))
(org-present-small) (setq org-present-mode-quit-hook
;; (org-remove-inline-images) (list (lambda ()
(org-present-show-cursor) (blink-cursor-mode 1)
(org-present-read-write) (org-present-small)
(display-line-numbers-mode 1) (org-bars-mode 1)
(hide-mode-line-mode 0) ;; (org-remove-inline-images)
(setq-local org-format-latex-options (plist-put org-format-latex-options :scale my/org-latex-scale)) (org-present-show-cursor)
(org-latex-preview '(64))))) (org-present-read-write)
(display-line-numbers-mode 1)
(hide-mode-line-mode 0)
(setq-local org-format-latex-options (plist-put org-format-latex-options :scale my/org-latex-scale))
(org-latex-preview '(64))
(olivetti-mode -1)
(setq-local olivetti-body-width (default-value 'olivetti-body-width))))))
(use-package org-make-toc (use-package org-make-toc
:after (org) :after (org)
@ -3513,6 +3538,53 @@ Returns (<buffer> . <workspace-index>) or nil."
(append tramp-remote-path (append tramp-remote-path
'(tramp-own-remote-path)))) '(tramp-own-remote-path))))
(defun avy-dired-cands ()
(let (candidates
eol
(ws (window-start))
(we (window-end (selected-window) t)))
(save-excursion
(save-restriction
(narrow-to-region ws we)
(goto-char (point-min))
(while (< (point) (point-max))
(setq eol (line-end-position))
(let ((change (next-single-property-change (point) 'dired-filename nil eol)))
(cond
((and change (< change eol))
(goto-char change)
(push (cons (point) (selected-window)) candidates))
((re-search-forward directory-listing-before-filename-regexp eol t)
(goto-char (match-end 0))
(push (cons (point) (selected-window)) candidates))))
(forward-line 1))))
(nreverse candidates)))
(defun avy-dired-goto-line ()
"Jump to a line in dired buffer"
(interactive)
(unless (derived-mode-p 'dired-mode)
(dired default-directory))
(avy-with avy-dired-goto-line
(let* ((avy-handler-old avy-handler-function)
(avy-handler-function
(lambda (char)
(pcase char
(?K (progn
(scroll-up-command)
(avy-dired-goto-line)))
(?J (progn
(scroll-down-command)
(avy-dired-goto-line)))
(_ (funcall avy-handler-old char)))))
(r (avy-process (avy-dired-cands))))
(when (not (memq r '(t nil)))
(avy-action-goto r)
(let ((file (dired-get-file-for-visit)))
(dired-open-file)
(when (file-directory-p file)
(avy-dired-goto-line)))))))
(defun my/dired-bookmark-open () (defun my/dired-bookmark-open ()
(interactive) (interactive)
(let ((bookmarks (let ((bookmarks
@ -3816,7 +3888,7 @@ Returns (<buffer> . <workspace-index>) or nil."
"Face for the elfeed entries with tag \"blogs\"") "Face for the elfeed entries with tag \"blogs\"")
(my/use-doom-colors (my/use-doom-colors
(elfeed-search-tag-face :foreground (doom-color 'yellow)) (elfeed-search-tag-face :foreground (doom-color 'yellow))
(elfeed-videos-entry :foreground (doom-color 'red)) (elfeed-videos-entry :foreground (doom-color 'red))
(elfeed-twitter-entry :foreground (doom-color 'blue)) (elfeed-twitter-entry :foreground (doom-color 'blue))
(elfeed-emacs-entry :foreground (doom-color 'magenta)) (elfeed-emacs-entry :foreground (doom-color 'magenta))
@ -4242,6 +4314,55 @@ Returns (<buffer> . <workspace-index>) or nil."
"he" #'devdocs-lookup "he" #'devdocs-lookup
"hE" #'devdocs-install)) "hE" #'devdocs-install))
(use-package sx
:straight t
:config
(general-define-key
:states '(normal)
:keymaps '(sx-question-mode-map sx-question-list-mode-map)
"go" #'sx-visit-externally
"q" #'quit-window
"s*" #'sx-tab-starred
"sU" #'sx-tab-unanswered-my-tags
"sa" #'sx-ask
"sf" #'sx-tab-featured
"sh" #'sx-tab-frontpage
"si" #'sx-inbox
"sm" #'sx-tab-meta-or-main
"sn" #'sx-tab-newest
"su" #'sx-tab-unanswered
"sv" #'sx-tab-topvoted
"sw" #'sx-tab-week
"u" #'sx-upvote
"d" #'sx-downvote
"j" nil
"k" nil)
(general-define-key
:states '(normal)
:keymaps '(sx-question-mode-map)
"gr" #'sx-question-mode-refresh
"j" #'sx-question-mode-next-section
"k" #'sx-question-mode-previous-section
"a" #'sx-answer
"e" #'sx-edit
"D" #'sx-delete
"c" #'sx-comment)
(general-define-key
:states '(normal)
:keymaps '(sx-question-list-mode-map)
"RET" 'sx-display
"j" #'sx-question-list-next
"k" #'sx-question-list-previous
"S" #'sx-search
"m" #'sx-question-list-mark-read
"t" #'sx-tab-switch)
(my/use-doom-colors
(sx-question-mode-accepted :foreground (doom-color 'green)
:weight 'bold)
(sx-question-mode-content :background nil))
(add-hook 'sx-question-mode-hook #'doom-modeline-mode)
(add-hook 'sx-question-list-mode-hook #'doom-modeline-mode))
(use-package pass (use-package pass
:straight t :straight t
:commands (pass) :commands (pass)

80
Emacs.org
View file

@ -1587,6 +1587,21 @@ Title format, which looks something like =emacs:project@hostname=.
:config :config
(setq-default olivetti-body-width 86)) (setq-default olivetti-body-width 86))
#+end_src #+end_src
*** Keycast
Showing the last pressed key. Occasionally useful.
#+begin_src emacs-lisp
(use-package keycast
:config
(define-minor-mode keycast-mode
:global t
(if keycast-mode
(progn
(add-to-list 'global-mode-string '("" keycast-mode-line " "))
(add-hook 'pre-command-hook 'keycast--update t) )
(remove-hook 'pre-command-hook 'keycast--update)
(setq global-mode-string (delete '("" keycast-mode-line " ") global-mode-string)))))
#+end_src
** Themes and colors ** Themes and colors
*** Doom themes *** Doom themes
My colorscheme of choice. My colorscheme of choice.
@ -3011,8 +3026,14 @@ An honorary Lisp
(add-hook 'clips-mode 'lispy-mode)) (add-hook 'clips-mode 'lispy-mode))
#+end_src #+end_src
** Python ** Python
Use [[https://github.com/Microsoft/python-language-server][Microsoft Language Server for Python]]. *** ein
[[https://github.com/millejoh/emacs-ipython-notebook][ein]] is a package that allows for running Jupyter notebooks in Emacs.
#+begin_src emacs-lisp
(use-package ein
:straight t)
#+end_src
*** pyright
For some reason it doesn't use pipenv python executable, so here is a small workaround. For some reason it doesn't use pipenv python executable, so here is a small workaround.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq my/pipenv-python-alist '()) (setq my/pipenv-python-alist '())
@ -3848,7 +3869,7 @@ Doing presentations with [[https://github.com/rlister/org-present][org-present]]
(plist-put org-format-latex-options (plist-put org-format-latex-options
:scale (* org-present-text-scale my/org-latex-scale 0.5))) :scale (* org-present-text-scale my/org-latex-scale 0.5)))
(org-latex-preview '(16)) (org-latex-preview '(16))
(setq-local olivetti-body-width 20) (setq-local olivetti-body-width 60)
(olivetti-mode 1)))) (olivetti-mode 1))))
(setq org-present-mode-quit-hook (setq org-present-mode-quit-hook
(list (lambda () (list (lambda ()
@ -5701,7 +5722,7 @@ Setting up custom faces for certain tags to make the feed look a bit nicer.
"Face for the elfeed entries with tag \"blogs\"") "Face for the elfeed entries with tag \"blogs\"")
(my/use-doom-colors (my/use-doom-colors
(elfeed-search-tag-face :foreground (doom-color 'yellow)) (elfeed-search-tag-face :foreground (doom-color 'yellow))
(elfeed-videos-entry :foreground (doom-color 'red)) (elfeed-videos-entry :foreground (doom-color 'red))
(elfeed-twitter-entry :foreground (doom-color 'blue)) (elfeed-twitter-entry :foreground (doom-color 'blue))
(elfeed-emacs-entry :foreground (doom-color 'magenta)) (elfeed-emacs-entry :foreground (doom-color 'magenta))
@ -6322,6 +6343,59 @@ Finally, there is also an Emacs plugin for [[https://devdocs.io][devdocs.io]].
"he" #'devdocs-lookup "he" #'devdocs-lookup
"hE" #'devdocs-install)) "hE" #'devdocs-install))
#+end_src #+end_src
*** StackExchange
[[https://github.com/vermiculus/sx.el][sx.el]] is a StackExchange client for Emacs.
#+begin_src emacs-lisp
(use-package sx
:straight t
:config
(general-define-key
:states '(normal)
:keymaps '(sx-question-mode-map sx-question-list-mode-map)
"go" #'sx-visit-externally
"q" #'quit-window
"s*" #'sx-tab-starred
"sU" #'sx-tab-unanswered-my-tags
"sa" #'sx-ask
"sf" #'sx-tab-featured
"sh" #'sx-tab-frontpage
"si" #'sx-inbox
"sm" #'sx-tab-meta-or-main
"sn" #'sx-tab-newest
"su" #'sx-tab-unanswered
"sv" #'sx-tab-topvoted
"sw" #'sx-tab-week
"u" #'sx-upvote
"d" #'sx-downvote
"j" nil
"k" nil)
(general-define-key
:states '(normal)
:keymaps '(sx-question-mode-map)
"gr" #'sx-question-mode-refresh
"j" #'sx-question-mode-next-section
"k" #'sx-question-mode-previous-section
"a" #'sx-answer
"e" #'sx-edit
"D" #'sx-delete
"c" #'sx-comment)
(general-define-key
:states '(normal)
:keymaps '(sx-question-list-mode-map)
"RET" 'sx-display
"j" #'sx-question-list-next
"k" #'sx-question-list-previous
"S" #'sx-search
"m" #'sx-question-list-mark-read
"t" #'sx-tab-switch)
(my/use-doom-colors
(sx-question-mode-accepted :foreground (doom-color 'green)
:weight 'bold)
(sx-question-mode-content :background nil))
(add-hook 'sx-question-mode-hook #'doom-modeline-mode)
(add-hook 'sx-question-list-mode-hook #'doom-modeline-mode))
#+end_src
** Utilities ** Utilities
*** pass *** pass
I use [[https://www.passwordstore.org/][pass]] as my password manager. Expectedly, there is Emacs frontend for it. I use [[https://www.passwordstore.org/][pass]] as my password manager. Expectedly, there is Emacs frontend for it.