From 1318e21c21f8032650e2f0e539b0d5b5a3be8c0d Mon Sep 17 00:00:00 2001
From: KJ <webmaster@outcontrol.net>
Date: Wed, 21 Jun 2023 05:55:02 -0400
Subject: [PATCH] Add so-long-mode config.

---
 configs/init-packages.el | 29 +++++++++++++++++++++++++----
 1 file changed, 25 insertions(+), 4 deletions(-)

diff --git a/configs/init-packages.el b/configs/init-packages.el
index e767f90..bdcb72b 100644
--- a/configs/init-packages.el
+++ b/configs/init-packages.el
@@ -265,6 +265,12 @@
   :config
   (setq save-place-file (locate-user-emacs-file (concat temp-dir "/places"))))
 
+;; Paquete para crear imágens (solo lo uso para sacar capturas SVG de emacs)
+(use-package silicon
+  :ensure t
+  :defer t
+  :straight (silicon :type git :host github :repo "iensu/silicon-el"))
+
 ;; Mejorando el scroll
 (use-package smooth-scrolling
   :defer t
@@ -276,11 +282,26 @@
   (setq mouse-wheel-progressive-speed nil)     ; Deshabilita la velocidad progresiva del scroll (mientras más scroll haces, mas rápido va)
   )
 
-;; Paquete para crear imágens (solo lo uso para sacar capturas SVG de emacs)
-(use-package silicon
-  :ensure t
+;; Ayuda a manipular los archivos con líneas demasiado largas
+(use-package so-long
   :defer t
-  :straight (silicon :type git :host github :repo "iensu/silicon-el"))
+  :straight (:type built-in)
+  :hook ((after-init . global-so-long-mode)
+         (so-long-mode-ad . read-only-mode))
+  :bind (:map so-long-mode-map
+              ("C-s"    . isearch-forward)
+              ("C-r"    . isearch-backward))
+  :config
+  (setq so-long-variable-overrides
+        '((bidi-inhibit-bpa . t)
+          (bidi-paragraph-direction . left-to-right)
+          (buffer-read-only . nil)
+          (global-hl-line-mode . nil)
+          (line-move-visual . t)
+          (show-paren-mode . nil)
+          (truncate-lines . nil)
+          (which-func-mode . nil)))
+  )
 
 ;; Tree-sitter :)
 (use-package treesit