diff --git a/configs/emacs/index.html b/configs/emacs/index.html index 0794e5d..378c73b 100644 --- a/configs/emacs/index.html +++ b/configs/emacs/index.html @@ -2915,7 +2915,8 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp :init (my-leader-def "ar" #'reverso) :config - (setq reverso-languages '(russian english german))) + (setq reverso-languages '(russian english german)) + (reverso-history-mode))

Lisp

@@ -5869,7 +5870,7 @@ Didn’t work out as I expected, so I’ve made org-journal-tags "l" #'dired-find-file "=" #'dired-narrow "-" #'my/dired-create-empty-file-subtree - "~" #'vterm + "~" #'eshell "M-r" #'wdired-change-to-wdired-mode "<left>" #'dired-up-directory "<right>" #'dired-find-file @@ -6028,6 +6029,17 @@ Didn’t work out as I expected, so I’ve made org-journal-tags "sS" 'my/dired-open-this-subdir "sQ" 'my/dired-kill-all-subdirs (kbd "TAB") 'dired-hide-subdir)) +

Other functions

+

Goto project root.

+
(defun my/dired-goto-project-root ()
+  (interactive)
+  (dired--find-possibly-alternative-file (projectile-project-root)))
+
+(with-eval-after-load 'dired
+  (general-define-key
+   :states '(normal)
+   :keymaps 'dired-mode-map
+   "H" #'my/dired-goto-project-root))

TRAMP

TRAMP is a package that provides remote editing capacities. It is particularly useful for remote server management.

Unfortunately, many Emacs packages don’t exactly moderate their rate of filesystem operations, and on TRAMP over network each operation adds additional overhead, so… it can get pretty slow. To debug these issues, set the following variable to 6:

@@ -6371,7 +6383,9 @@ Some other optimization settings:

 (general-define-key :keymaps 'eshell-mode-map :states '(insert) - "<tab>" 'my/eshell-complete) + "<tab>" 'my/eshell-complete + "M-k" #'eshell-previous-matching-input-from-input + "M-j" #'eshell-next-matching-input-from-input) (general-define-key :states '(normal) @@ -6380,8 +6394,8 @@ Some other optimization settings:

 "C-l" 'evil-window-right "C-k" 'evil-window-up "C-j" 'evil-window-down) - ;; XXX Did they forget to set it to nil? - (setq eshell-first-time-p nil)) + ;; XXX Did they forget to set it to nil? + (setq eshell-first-time-p nil)) (use-package eshell :straight (:type built-in) @@ -6581,15 +6595,20 @@ Some other optimization settings:

 (my/eshell-overlay-update (line-end-position) suggestion) (my/eshell-overlay-remove)))

The function can be added in after-change-functions, which is executed on every text modification. This shouldn’t slow eshell down because eshell-send-input sets inhibit-modification-hooks to t.

-
(defun my/eshell-overlay-suggest-enable ()
-  (interactive)
-  (add-hook 'after-change-functions #'my/eshell-overlay-suggest nil t)
-  (add-hook 'company-completion-started-hook #'my/eshell-overlay-suggest nil t)
-  (add-hook 'company-after-completion-hook #'my/eshell-overlay-suggest nil t)
-  ;; (setq-local company-idle-delay nil)
-  )
+
(define-minor-mode my/eshell-overlay-suggest-mode
+  "Fish-like suggestions for eshell."
+  :after-hook
+  (if my/eshell-overlay-suggest-mode
+      (progn
+	(add-hook 'after-change-functions #'my/eshell-overlay-suggest nil t)
+	(add-hook 'company-completion-started-hook #'my/eshell-overlay-suggest nil t)
+	(add-hook 'company-after-completion-hook #'my/eshell-overlay-suggest nil t))
+    (remove-hook 'after-change-functions #'my/eshell-overlay-suggest t)
+    (add-hook 'company-completion-started-hook #'my/eshell-overlay-suggest t)
+    (add-hook 'company-after-completion-hook #'my/eshell-overlay-suggest t)
+    (my/eshell-overlay-remove)))
 
-(add-hook 'eshell-mode-hook #'my/eshell-overlay-suggest-enable)
+;; (add-hook 'eshell-mode-hook #'my/eshell-overlay-suggest-mode)
 
Finally, a function that inserts the overlay in buffer if it’s available and calls company-complete if it’s not. I’ve bound it to <tab>.

 
(defun my/eshell-complete ()
   (interactive)
@@ -6624,6 +6643,11 @@ Some other optimization settings:

 	(if (eq (selected-window) window)
 	    (kill-buffer-and-window)
 	  (select-window window))))))
+
Custom commands

+
(defun eshell/prt ()
+  (if-let ((root (projectile-project-root)))
+      (eshell/cd root)
+    (message "Not in a project")))
 
Global keybindings

 
(general-define-key
  :states '(normal)
@@ -10125,6 +10149,11 @@ I’ve seen a couple of cases where people would swap their username and ema
 (use-package meme
   :straight (:host github :repo "larsmagne/meme" :files (:defaults "images"))
   :commands (meme))
+
Ed

+
My text editor isn’t old enough.

+
(use-package ed-mode
+  :straight (:host github :repo "ryanprior/ed-mode")
+  :commands (ed))
 
Guix settings

 
@@ -10491,6 +10520,7 @@ I’ve seen a couple of cases where people would swap their username and ema
             
  • Basic config & keybindings
  • Addons
  • Subdirectories
    • 
+            
  • Other functions
  • TRAMP
  • Bookmarks
  • Integrations
    • 
@@ -10591,6 +10621,7 @@ I’ve seen a couple of cases where people would swap their username and ema
             
  • Zone
  • Gource
  • Memes
    • 
+            
  • Ed
    • 
diff --git a/index.xml b/index.xml
index 070d48a..d6bf81f 100644
--- a/index.xml
+++ b/index.xml
@@ -1795,6 +1795,7 @@ I&rsquo;ve seen a couple of cases where people would swap their username and
 <li><a href="https://context.reverso.net/translation/">Context</a> (AKA bilingual concordances)</li>
 <li><a href="https://www.reverso.net/spell-checker/english-spelling-grammar/">Grammar check</a></li>
 <li><a href="https://synonyms.reverso.net/synonym/">Synonyms search</a></li>
+<li><a href="https://conjugator.reverso.net/conjugation-english.html">Conjugation</a></li>
 </ul>
 <h2 id="installation">Installation</h2>
 <p>The package isn&rsquo;t yet available anywhere but in this repository. My preferred way for such cases is <a href="https://github.com/jwiegley/use-package">use-package</a> and <a href="https://github.com/radian-software/straight.el">straight.el</a>:</p>
@@ -1843,6 +1844,14 @@ I&rsquo;ve seen a couple of cases where people would swap their username and
 <li>Examples</li>
 <li>Antonyms</li>
 </ul>
+<h3 id="conjugation">Conjugation</h3>
+<p>Use <code>M-x reverso o</code> or <code>M-x reverso-conjugation</code> to invoke verb conjugation dialog.</p>
+<figure><img src="https://sqrtminusone.xyz/reverso-img/conjugation-transient.png"/>
+</figure>
+
+<figure><img src="https://sqrtminusone.xyz/reverso-img/conjugation-res.png"/>
+</figure>
+
 <h3 id="grammar-check">Grammar check</h3>
 <p>Use <code>M-x reverso g</code> or <code>M-x reverso-grammar</code> to invoke the grammar check.</p>
 <figure><img src="https://sqrtminusone.xyz/reverso-img/grammar-transient.png"/>
diff --git a/packages/index.xml b/packages/index.xml
index 69b3e28..703e183 100644
--- a/packages/index.xml
+++ b/packages/index.xml
@@ -390,6 +390,7 @@ Customize the formatting of these records through <code>org-clock-agg-elem
 <li><a href="https://context.reverso.net/translation/">Context</a> (AKA bilingual concordances)</li>
 <li><a href="https://www.reverso.net/spell-checker/english-spelling-grammar/">Grammar check</a></li>
 <li><a href="https://synonyms.reverso.net/synonym/">Synonyms search</a></li>
+<li><a href="https://conjugator.reverso.net/conjugation-english.html">Conjugation</a></li>
 </ul>
 <h2 id="installation">Installation</h2>
 <p>The package isn&rsquo;t yet available anywhere but in this repository. My preferred way for such cases is <a href="https://github.com/jwiegley/use-package">use-package</a> and <a href="https://github.com/radian-software/straight.el">straight.el</a>:</p>
@@ -438,6 +439,14 @@ Customize the formatting of these records through <code>org-clock-agg-elem
 <li>Examples</li>
 <li>Antonyms</li>
 </ul>
+<h3 id="conjugation">Conjugation</h3>
+<p>Use <code>M-x reverso o</code> or <code>M-x reverso-conjugation</code> to invoke verb conjugation dialog.</p>
+<figure><img src="https://sqrtminusone.xyz/reverso-img/conjugation-transient.png"/>
+</figure>
+
+<figure><img src="https://sqrtminusone.xyz/reverso-img/conjugation-res.png"/>
+</figure>
+
 <h3 id="grammar-check">Grammar check</h3>
 <p>Use <code>M-x reverso g</code> or <code>M-x reverso-grammar</code> to invoke the grammar check.</p>
 <figure><img src="https://sqrtminusone.xyz/reverso-img/grammar-transient.png"/>
diff --git a/packages/reverso/index.html b/packages/reverso/index.html
index dbb2cad..806d1f0 100644
--- a/packages/reverso/index.html
+++ b/packages/reverso/index.html
@@ -89,6 +89,7 @@
 
  • Context (AKA bilingual concordances)
  • Grammar check
  • Synonyms search
    • 
+
  • Conjugation
    • Installation
    The package isn’t yet available anywhere but in this repository. My preferred way for such cases is use-package and straight.el:
    
@@ -137,6 +138,14 @@
 
  • Examples
  • Antonyms
    • 
+
    Conjugation
    
+
    Use M-x reverso o or M-x reverso-conjugation to invoke verb conjugation dialog.
    
+
    
+
    
+
+
    
+
    
+
 
    Grammar check
    Use M-x reverso g or M-x reverso-grammar to invoke the grammar check.
    
@@ -227,6 +236,7 @@
         
  • Translation
    • 
         
  • Context
    • 
         
  • Synonyms
    • 
+        
  • Conjugation
    • 
         
  • Grammar check
    • 
         
  • Grammar check in buffer
    • 
         
  • History
    • 
diff --git a/reverso-img/conjugation-res.png b/reverso-img/conjugation-res.png
new file mode 100644
index 0000000..64b52d3
Binary files /dev/null and b/reverso-img/conjugation-res.png differ
diff --git a/reverso-img/conjugation-transient.png b/reverso-img/conjugation-transient.png
new file mode 100644
index 0000000..f48d917
Binary files /dev/null and b/reverso-img/conjugation-transient.png differ
diff --git a/stats/all.png b/stats/all.png
index c926788..8489128 100644
Binary files a/stats/all.png and b/stats/all.png differ
diff --git a/stats/emacs-vim.png b/stats/emacs-vim.png
index d13e779..d4cb2e8 100644
Binary files a/stats/emacs-vim.png and b/stats/emacs-vim.png differ
diff --git a/stats/literate-config.png b/stats/literate-config.png
index d67cf69..4e10807 100644
Binary files a/stats/literate-config.png and b/stats/literate-config.png differ