Changes

1 files changed, 6 insertions, 34 deletions

diff --git a/.emacs.d/org/config.org b/.emacs.d/org/config.org
index 7e4251b..eb423c3 100644
--- a/.emacs.d/org/config.org
+++ b/.emacs.d/org/config.org
@@ -13,8 +13,8 @@
 (add-hook 'prog-mode-hook 'display-line-numbers-mode)
 (add-hook 'text-mode-hook 'display-line-numbers-mode)
 
-(setq scroll-step 5)
-(setq scroll-margin 3)
+(setq scroll-step 1)
+;; (setq scroll-margin 1)
 (setq echo-keystrokes 0.1)
 (setq initial-scratch-message nil)
 (defalias 'yes-or-no-p 'y-or-n-p)
@@ -199,6 +199,7 @@
 			(string-prefix-p "*helm" name)
 			(string-prefix-p "*Helm" name)
 			(string-prefix-p "*Compile-Log*" name)
+			(string-prefix-p "*compilation*" name)
 			(string-prefix-p "*lsp" name)
 			(string-prefix-p "*elfeed-log*" name)
 			(string-prefix-p "*elfeed-search*" name)
@@ -237,7 +238,7 @@
 	  show-week-agenda-p			t)
 	  
 (setq dashboard-items '((projects . 10)
-						(recents . 15)
+						(recents . 5)
 						(agenda . 5)))
 
 (add-to-list 'evil-emacs-state-modes 'dashboard-mode)
@@ -814,40 +815,12 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
 		;;no errors, make the compilation window go away in a few seconds
 		(progn
 		  (run-at-time
-		   "0.5 sec" nil 'delete-windows-on
-		   (get-buffer-create "*compilation*"))
+		   "0.5 sec" nil 'delete-windows-on "*compilation*")
 		  (message "")))))
 #+END_SRC
 
 *** Compilation functions
 #+BEGIN_SRC emacs-lisp
-;; (defvar my/cargo-f5-minor-mode-map
-;; 	(let ((map (make-sparse-keymap)))
-;; 		(define-key map [f5] 'cargo-process-run)
-;; 		map)
-;; 		"my/cargo-f5-minor-mode keymap")
-
-;; (define-minor-mode my/cargo-f5-minor-mode
-;; 	"A minor mode to execute cargo run with F5 in rust-mode only"
-;; 	:init-value t
-;; 	:lighter " my/cargo")
-	
-;; (my/cargo-f5-minor-mode 0)
-
-;; (defun my/roff-comp ()
-;; 	;; (interactive)
-;; 	(defvar name)
-;; 	(defvar ext)
-;; 	(defvar exec)
-;; 	(setq name (file-name-sans-extension buffer-file-name))
-;; 	(setq ext (file-name-extension buffer-file-name))
-;; 	(if (string-match "ms" ext)
-;; 	(setq exec (format "%s%s%s%s%s%s%s" "nroff -ms " name "." ext " -Tpdf -Kutf8 -Wall > " name ".pdf")))
-;; 	(if (string-match "ms" ext)
-;; 	(shell-command exec)))
-
-;; (add-hook 'after-save-hook 'my/roff-comp)
-
 (defun my/exec-f5 ()
   (interactive)
   (defvar make)
@@ -905,10 +878,9 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
 (global-set-key [f4] 'helm-make-projectile)
 (global-set-key [f5] 'my/exec-f5)
 (global-set-key [f6] 'my/exec-f6)
-(global-set-key (kbd "C-x d") 'ranger)
+(global-set-key (kbd "C-x d") 'dired)
 (global-set-key (kbd "M-1") 'shell-command)
 (global-set-key (kbd "M-7") 'async-shell-command)
-;; (add-hook 'rust-mode-hook 'my/cargo-f5-minor-mode)
 
 (shell-pop--set-shell-type 'my/shell-pop-shell-type my/shell-pop-shell-type)
 #+END_SRC