opfez
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

improve fez/flash-region, remove string syntax highlighting

This commit is contained in:
opfez 2021-06-13 12:11:06 +02:00
parent 18cae6b35b
commit 271a5cedb6
3 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
custom.el
View File

@ -28,14 +28,25 @@
(beginning-of-line) (beginning-of-line)
(looking-at-p "[[:space:]]*$"))) (looking-at-p "[[:space:]]*$")))
(defun fez/current-line-comment-p ()
"Checks if the current line is a commented out one or not."
(save-excursion
(beginning-of-line)
(let ((a (point)))
(end-of-line)
(let ((b (point)))
(comment-only-p a b)))))
(defun fez/flash-region (&optional timeout) (defun fez/flash-region (&optional timeout)
"Temporarily highlight region from START to END. Taken from SLIME source code and modified." "Temporarily highlight region from START to END. Taken from SLIME source code and modified."
(interactive) (interactive)
(transient-mark-mode) (transient-mark-mode)
(save-excursion (save-excursion
(mark-defun) (mark-defun)
;; Don't mark the line above the s-expression. ;; Don't mark the line or the comments above the s-expression.
(while (fez/current-line-empty-p) (while (or (fez/current-line-empty-p)
(fez/current-line-comment-p))
;; Can probably be optimized...
(forward-char)) (forward-char))
(let* ((start (region-beginning)) (let* ((start (region-beginning))
(end (region-end)) (end (region-end))
@ -93,6 +104,8 @@
;;; Keybinds ;;; Keybinds
;; C-x C-z and C-z are normally mapped to suspend-frame, an absolutely useless function. ;; C-x C-z and C-z are normally mapped to suspend-frame, an absolutely useless function.
;; Unbind them before making the keybind useful. ;; Unbind them before making the keybind useful.
(global-unset-key (kbd "C-x C-z")) (global-unset-key (kbd "C-x C-z"))

2
themes/magik-theme.el
View File

@ -142,7 +142,7 @@
(font-lock-preprocessor-face (:foreground fg)) (font-lock-preprocessor-face (:foreground fg))
(font-lock-regexp-grouping-backslash (:foreground fg)) (font-lock-regexp-grouping-backslash (:foreground fg))
(font-lock-regexp-grouping-construct-face (:foreground fg)) (font-lock-regexp-grouping-construct-face (:foreground fg))
(font-lock-string-face (:foreground c9)) (font-lock-string-face (:foreground fg))
(font-lock-reference-face (:foreground fg)) (font-lock-reference-face (:foreground fg))
(font-lock-type-face (:foreground fg)) (font-lock-type-face (:foreground fg))
(font-lock-variable-name-face (:foreground fg)) (font-lock-variable-name-face (:foreground fg))

3
tweaks.el
View File

@ -14,6 +14,9 @@
(horizontal-scroll-bars . nil)))) (horizontal-scroll-bars . nil))))
(add-hook 'after-make-frame-functions 'my/disable-scroll-bars) (add-hook 'after-make-frame-functions 'my/disable-scroll-bars)
;; Disable startup screen
(setq inhibit-startup-screen t)
;; Make sure UTF-8 is used. ;; Make sure UTF-8 is used.
(set-language-environment "UTF-8") (set-language-environment "UTF-8")