X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/46b0569f717f7e5fa9cc43355bd5d8a544521453..dcc48cbb6e4d7f451addc45c22b48c26efa85d02:/init.el

diff --git a/init.el b/init.el
index 01ee10a..cb1a89b 100644
--- a/init.el
+++ b/init.el
@@ -250,6 +250,11 @@ For disabling the behaviour for certain buffers and/or modes."
                 (point)))
       (move-beginning-of-line arg)))
 
+(defun b/join-line-top ()
+  "Like `join-line', but join next line to the current line."
+  (interactive)
+  (join-line 1))
+
 
 ;;; Defaults
 
@@ -523,6 +528,8 @@ For disabling the behaviour for certain buffers and/or modes."
  ("C-S-h C" . describe-char)
  ("C-S-h F" . describe-face)
 
+ ("C-S-j"   . b/join-line-top)
+
  ("C-c x"   . execute-extended-command)
 
  ("C-x k"   . b/kill-current-buffer)
@@ -812,11 +819,6 @@ For disabling the behaviour for certain buffers and/or modes."
     (setq indent-tabs-mode nil))
   (add-hook 'lisp-interaction-mode-hook #'indent-spaces-mode))
 
-(use-package reveal
-  :hook (emacs-lisp-mode . reveal-mode))
-
-;; (use-package elisp-mode)
-
 (use-package alloy-mode
   :mode "\\.\\(als\\|dsh\\)\\'"
   :config
@@ -851,8 +853,6 @@ For disabling the behaviour for certain buffers and/or modes."
         lean-input-user-translations '(("/" "/")))
   (lean-input-setup))
 
-;; (use-package mhtml-mode)
-
 (use-package sgml-mode
   :config
   (setq sgml-basic-offset 0))
@@ -881,11 +881,6 @@ For disabling the behaviour for certain buffers and/or modes."
 (use-package guix
   :disabled)
 
-(use-package auctex
-  :disabled
-  :custom
-  (font-latex-fontify-sectioning 'color))
-
 (use-package go-mode
   :disabled)
 
@@ -894,6 +889,11 @@ For disabling the behaviour for certain buffers and/or modes."
   :hook
   (po-mode . (lambda () (run-with-timer 0.1 nil 'View-exit))))
 
+(use-package auctex
+  :disabled
+  :custom
+  (font-latex-fontify-sectioning 'color))
+
 (use-package tex-mode
   :config
   (cl-delete-if
@@ -1060,12 +1060,6 @@ For disabling the behaviour for certain buffers and/or modes."
          ("C-c j"   . crux-top-join-line)
          ("C-S-j"   . crux-top-join-line)))
 
-(use-package mwim
-  :bind (("C-a"    . mwim-beginning-of-code-or-line)
-         ("C-e"    . mwim-end-of-code-or-line)
-         ("<home>" . mwim-beginning-of-line-or-code)
-         ("<end>"  . mwim-end-of-line-or-code)))
-
 (use-package projectile
   :disabled
   :defer 0.5