deploy: 8ed5a5305f

configs/emacs/index.html

@@ -3590,7 +3590,7 @@ Emacs is also particularly good at writing Lisp code, e.g. Clojure, Common Lisp,
 </span></span><span style="display:flex;"><span>  <span style="color:#008000">:straight</span> <span style="color:#800">t</span>
 </span></span><span style="display:flex;"><span>  <span style="color:#008000">:defer</span> <span style="color:#800">t</span>)
 </span></span><span style="display:flex;"><span>
-</span></span><span style="display:flex;"><span>(<span style="color:#008000">defvar</span> <span style="color:#19177c">my/weather-last-time</span> <span style="color:#800">nil</span>)
+</span></span><span style="display:flex;"><span>(<span style="color:#008000">defvar</span> <span style="color:#19177c">my/weather-last-time</span> <span style="color:#666">0</span>)
 </span></span><span style="display:flex;"><span>(<span style="color:#008000">defvar</span> <span style="color:#19177c">my/weather-value</span> <span style="color:#800">nil</span>)
 </span></span><span style="display:flex;"><span>
 </span></span><span style="display:flex;"><span>(<span style="color:#008000">defun</span> <span style="color:#19177c">my/weather-get</span> ()
@@ -4501,15 +4501,15 @@ Emacs is also particularly good at writing Lisp code, e.g. Clojure, Common Lisp,
 </span></span><span style="display:flex;"><span>  (<span style="color:#19177c">general-define-key</span>
 </span></span><span style="display:flex;"><span>   <span style="color:#008000">:states</span> <span style="color:#666">&#39;</span>(<span style="color:#19177c">normal</span>)
 </span></span><span style="display:flex;"><span>   <span style="color:#008000">:keymaps</span> <span style="color:#19177c">&#39;dired-mode-map</span>
-</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;h&#34;</span> <span style="color:#19177c">&#39;dired-up-directory</span>
-</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;l&#34;</span> <span style="color:#19177c">&#39;dired-find-file</span>
-</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;=&#34;</span> <span style="color:#19177c">&#39;dired-narrow</span>
-</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;-&#34;</span> <span style="color:#19177c">&#39;dired-create-empty-file</span>
-</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;~&#34;</span> <span style="color:#19177c">&#39;vterm</span>
-</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;M-r&#34;</span> <span style="color:#19177c">&#39;wdired-change-to-wdired-mode</span>
-</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;&lt;left&gt;&#34;</span> <span style="color:#19177c">&#39;dired-up-directory</span>
-</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;&lt;right&gt;&#34;</span> <span style="color:#19177c">&#39;dired-find-file</span>
-</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;M-&lt;return&gt;&#34;</span> <span style="color:#19177c">&#39;dired-open-xdg</span>))
+</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;h&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">dired-up-directory</span>
+</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;l&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">dired-find-file</span>
+</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;=&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">dired-narrow</span>
+</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;-&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">my/dired-create-empty-file-subtree</span>
+</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;~&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">vterm</span>
+</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;M-r&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">wdired-change-to-wdired-mode</span>
+</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;&lt;left&gt;&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">dired-up-directory</span>
+</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;&lt;right&gt;&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">dired-find-file</span>
+</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;M-&lt;return&gt;&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">dired-open-xdg</span>))
 </span></span><span style="display:flex;"><span>
 </span></span><span style="display:flex;"><span>(<span style="color:#008000">defun</span> <span style="color:#19177c">my/dired-home</span> ()
 </span></span><span style="display:flex;"><span>  <span style="color:#ba2121">&#34;Open dired at $HOME&#34;</span>
@@ -4529,6 +4529,12 @@ Emacs is also particularly good at writing Lisp code, e.g. Clojure, Common Lisp,
 <div class="highlight"><pre tabindex="0" style=";-moz-tab-size:4;-o-tab-size:4;tab-size:4;"><code class="language-emacs-lisp" data-lang="emacs-lisp"><span style="display:flex;"><span>(<span style="color:#008000">use-package</span> <span style="color:#19177c">dired-subtree</span>
 </span></span><span style="display:flex;"><span>  <span style="color:#008000">:after</span> (<span style="color:#19177c">dired</span>)
 </span></span><span style="display:flex;"><span>  <span style="color:#008000">:straight</span> <span style="color:#800">t</span>)
+</span></span><span style="display:flex;"><span>
+</span></span><span style="display:flex;"><span>(<span style="color:#008000">defun</span> <span style="color:#19177c">my/dired-create-empty-file-subtree</span> ()
+</span></span><span style="display:flex;"><span>  (<span style="color:#008000">interactive</span>)
+</span></span><span style="display:flex;"><span>  (<span style="color:#008000">let</span> ((<span style="color:#19177c">default-directory</span> (<span style="color:#19177c">dired-current-directory</span>)))
+</span></span><span style="display:flex;"><span>    (<span style="color:#19177c">dired-create-empty-file</span>
+</span></span><span style="display:flex;"><span>     (<span style="color:#19177c">read-file-name</span> <span style="color:#ba2121">&#34;Create empty file: &#34;</span>))))
 </span></span></code></pre></div><p><a href="https://github.com/jojojames/dired-sidebar">dired-sidebar</a> enables opening Dired in sidebar. For me, with dired-subtree this makes dired a better option than Treemacs.</p>
 <div class="highlight"><pre tabindex="0" style=";-moz-tab-size:4;-o-tab-size:4;tab-size:4;"><code class="language-emacs-lisp" data-lang="emacs-lisp"><span style="display:flex;"><span>(<span style="color:#008000">use-package</span> <span style="color:#19177c">dired-sidebar</span>
 </span></span><span style="display:flex;"><span>  <span style="color:#008000">:straight</span> <span style="color:#800">t</span>
@@ -4537,19 +4543,29 @@ Emacs is also particularly good at writing Lisp code, e.g. Clojure, Common Lisp,
 </span></span><span style="display:flex;"><span>  <span style="color:#008000">:init</span>
 </span></span><span style="display:flex;"><span>  (<span style="color:#19177c">general-define-key</span>
 </span></span><span style="display:flex;"><span>   <span style="color:#008000">:keymaps</span> <span style="color:#666">&#39;</span>(<span style="color:#19177c">normal</span> <span style="color:#19177c">override</span> <span style="color:#19177c">global</span>)
-</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;C-n&#34;</span> <span style="color:#19177c">&#39;dired-sidebar-toggle-sidebar</span>)
+</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;C-n&#34;</span> <span style="color:#666">`</span>(<span style="color:#666">,</span>(<span style="color:#008000">lambda</span> ()
+</span></span><span style="display:flex;"><span>	      (<span style="color:#008000">interactive</span>)
+</span></span><span style="display:flex;"><span>	      (<span style="color:#008000">let</span> ((<span style="color:#19177c">dired-sidebar-follow-file-at-point-on-toggle-open</span>
+</span></span><span style="display:flex;"><span>		     <span style="color:#19177c">current-prefix-arg</span>)
+</span></span><span style="display:flex;"><span>		    (<span style="color:#19177c">current-prefix-arg</span> <span style="color:#800">nil</span>))
+</span></span><span style="display:flex;"><span>		(<span style="color:#19177c">dired-sidebar-toggle-sidebar</span>)))
+</span></span><span style="display:flex;"><span>	   <span style="color:#008000">:wk</span> <span style="color:#ba2121">&#34;dired-sidebar&#34;</span>))
 </span></span><span style="display:flex;"><span>  <span style="color:#008000">:config</span>
+</span></span><span style="display:flex;"><span>  (<span style="color:#008000">setq</span> <span style="color:#19177c">dired-sidebar-width</span> <span style="color:#666">45</span>)
+</span></span><span style="display:flex;"><span>  (<span style="color:#008000">setq</span> <span style="color:#19177c">dired-sidebar-follow-file-at-point-on-toggle-open</span> <span style="color:#800">nil</span>)
 </span></span><span style="display:flex;"><span>  (<span style="color:#008000">defun</span> <span style="color:#19177c">my/dired-sidebar-setup</span> ()
 </span></span><span style="display:flex;"><span>    (<span style="color:#19177c">toggle-truncate-lines</span> <span style="color:#666">1</span>)
 </span></span><span style="display:flex;"><span>    (<span style="color:#19177c">display-line-numbers-mode</span> <span style="color:#666">-1</span>)
-</span></span><span style="display:flex;"><span>    (<span style="color:#008000">setq-local</span> <span style="color:#19177c">dired-subtree-use-backgrounds</span> <span style="color:#800">nil</span>))
+</span></span><span style="display:flex;"><span>    (<span style="color:#008000">setq-local</span> <span style="color:#19177c">dired-subtree-use-backgrounds</span> <span style="color:#800">nil</span>)
+</span></span><span style="display:flex;"><span>    (<span style="color:#008000">setq-local</span> <span style="color:#19177c">window-size-fixed</span> <span style="color:#800">nil</span>))
 </span></span><span style="display:flex;"><span>  (<span style="color:#19177c">general-define-key</span>
 </span></span><span style="display:flex;"><span>   <span style="color:#008000">:keymaps</span> <span style="color:#19177c">&#39;dired-sidebar-mode-map</span>
 </span></span><span style="display:flex;"><span>   <span style="color:#008000">:states</span> <span style="color:#666">&#39;</span>(<span style="color:#19177c">normal</span> <span style="color:#19177c">emacs</span>)
-</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;l&#34;</span> <span style="color:#19177c">&#39;dired-sidebar-find-file</span>
-</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;h&#34;</span> <span style="color:#19177c">&#39;dired-sidebar-up-directory</span>
-</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;=&#34;</span> <span style="color:#19177c">&#39;dired-narrow</span>)
-</span></span><span style="display:flex;"><span>  (<span style="color:#19177c">add-hook</span> <span style="color:#19177c">&#39;dired-sidebar-mode-hook</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">my/dired-sidebar-setup</span>))
+</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;l&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">dired-sidebar-find-file</span>
+</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;h&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">dired-sidebar-up-directory</span>
+</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;=&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">dired-narrow</span>)
+</span></span><span style="display:flex;"><span>  (<span style="color:#19177c">add-hook</span> <span style="color:#19177c">&#39;dired-sidebar-mode-hook</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">my/dired-sidebar-setup</span>)
+</span></span><span style="display:flex;"><span>  (<span style="color:#19177c">advice-add</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">dired-create-empty-file</span> <span style="color:#008000">:after</span> <span style="color:#19177c">&#39;dired-sidebar-refresh-buffer</span>))
 </span></span></code></pre></div><p><a href="https://github.com/vifon/dired-recent.el">dired-recent.el</a> adds history to dired.</p>
 <div class="highlight"><pre tabindex="0" style=";-moz-tab-size:4;-o-tab-size:4;tab-size:4;"><code class="language-emacs-lisp" data-lang="emacs-lisp"><span style="display:flex;"><span>(<span style="color:#008000">use-package</span> <span style="color:#19177c">dired-recent</span>
 </span></span><span style="display:flex;"><span>  <span style="color:#008000">:straight</span> <span style="color:#800">t</span>