weird cursor issues

[anarcat]

So I really enjoy this mode. I used to use the official one, but I had to patch it to make it do what i need and it wouldn't support light mode. This one just works, so first congrats on that, good job. :)

A weird thing that happens here though is that the cursor disappears when i select backwards. It's a little hard to explain so hopefully a screenshot will help?

This is a normal string of digits, with the cursor at the beginning:

I hit c-space and move the cursor left, the first character is selected:

You can already see the first problem: because there's no distinction between the cursor color and the selection color, it seems that two characters (12) are selected, when in fact, only one is selected (1). Let's try this backwards now. Clear the mark and go to the end of line:

Right. Then let's do c-space again and move the point one character to the left:

Heeey what happened to my cursor! It disappeared!?

That's not so great... now the last character is selected, but there's no visual feedback at all.

This is all quite confusing: I think it would help tremendously if the cursor and the region would have slightly different colors.

I probably noticed this only because I was experimenting with a blinking cursor and recently went back to a fixed one...

Am I the only one seeing this?

[anarcat]

hopefully #291 will fix this by using a stronger color for the cursor.

[anarcat]

another approach i'd consider for this would be to make the cursor face customizable. i'd like, for example, to be able to pick a color like blue-hc for my cursor but that is, naturally, not available outside the color theme.. and while I could put the raw hex value for that color in a custom face, that won't work when flipping back and forth with light and dark...

i know this possibly opens a pandora's box, but can we make at least some faces customizable?

[thomasf]

Some face properties have defcustoms already.

[thomasf]

Doesnt emacs use a blinking cursor by default to make it clear where the active current cursor is located?

I even have different cursor colors to highlight different modes but thats not handeled by the theme at all.. Since I use region-bindings-mode I have a special cursor when a region is active so that I know which bindings are active....

;; Settings that might have been set by loading libraries
;; use-package frame.el
(setq-default blink-cursor-mode t
              blink-cursor-interval 0.6
              cursor-type 'bar)
(blink-cursor-mode)

(defun cursor-style-update-action ()
  (when (bound-and-true-p cua-normal-cursor-color)
    (let* ((current-cursor-color (cdr (assq 'cursor-color (frame-parameters))))
           (cursor-style (cond
                          ((bound-and-true-p region-bindings-mode) (list "#d33682" '(bar . 8) t))
                          ((bound-and-true-p god-local-mode) (list "#268bd2" 'box nil))
                          ((bound-and-true-p buffer-read-only) (list "#859900" 'box nil))
                          (t (list cua-normal-cursor-color my-normal-cursor-type t)))))
      (unless (equal (nth 0 cursor-style) current-cursor-color)
        (set-cursor-color (nth 0 cursor-style)))
      (unless (equal (nth 1 cursor-style) cursor-type)
        (setq cursor-type (nth 1 cursor-style)))
      (unless (equal (nth 2 cursor-style) blink-cursor-mode)
        (blink-cursor-mode (or (nth 2 cursor-style) -1))))))

(defvar cursor-style-timer nil)
(defun cursor-style-update ()
  (when cursor-style-timer
    (cancel-timer cursor-style-timer))
  (setq cursor-style-timer
        (run-with-idle-timer 0.2 nil 'cursor-style-update-action)))

(hook-into-modes 'cursor-style-update
                 '(activate-mark-hook
                   deactivate-mark-hook
                   region-bindings-mode-hook
                   window-configuration-change-hook
                   minibuffer-setup-hook
                   minibuffer-exit-hook
                   god-mode-enabled-hook
                   god-mode-disabled-hook
                   god-local-mode-hook
                   read-only-mode-hook
                   after-change-major-mode-hook
                   focus-in-hook
                   focus-out-hook
                   ))

(defadvice hardhat-local-hook (after cursor-style-update activate)
  (cursor-style-update))

[thomasf]

A video preview of my cursor config... https://youtu.be/EAIH0TdxzRA

[anarcat]

Doesnt emacs use a blinking cursor by default to make it clear where the active current cursor is located?

It makes it clearer, but not clear enough to my taste. Beyond, I disabled the blinking cursor here and I think it's reasonable to support that configuration as well.

[anarcat]

So #291 was closed and I'm not sure what the way forward is here: are you saying that the cursor should be a defcustom? How about having the possibility of flipping back and forth between light and dark while keeping meaningful customization?

[thomasf]

Idk. we could have an solarized-emphasize-cursor boolean setting or something similar.

[anarcat]

what i would really like is the possibility of setting the cursor to an arbitrary solarized color (e.g. "red") and have it switch correctly when i select the dark or light theme (e.g. #FF6E64 vs #990A1B). do you know what i mean? is that even possible?

[anarcat]

one thing I have tried is doing a customize-face on the cursor face, but that fails: when Emacs restarts, it reloads the theme which overrides the face customization. That might be a bug in the theme system, but it still makes it difficult to fix this problem.

[anarcat]

okay - here's another proposal: how about we make the cursor and region look different? right now, cursor is:

solarized-emacs/solarized.el

Line 270 in 7c91f48

`(cursor ((,class (:foreground ,base03 :background ,base0

and region is:

solarized-emacs/solarized.el

Line 309 in 7c91f48

`(region ((,class (:foreground ,base03 :background ,base1))))

I have found I have better results with:

     `(cursor ((,class (:foreground ,base03 :background ,base3
                                    :inverse-video t))))
     `(region ((,class (:foreground ,base01 :background ,base1))))

Does that make sense?

[thomasf]

I don't think that it might skew the intended solarized normal contrasts but I'll try it and see what happens..

Regarding the customization.. If the theme fails to pick it up on emacs start up maybe the theme is loaded before the customization is set in your init file?

[anarcat]

I don't think that it might skew the intended solarized normal contrasts but I'll try it and see what happens..

I'm not sure what you mean here, but i must say that i feel it looks much better. The region looks a little more toned down than before and contrasts better with the cursor.

Looking back at the original solarized page I wonder if selection areas shouldn't be using base2/base02 instead, however... It looks like that was reserved for the secondary selection though, so I guess that makes sense as well...

Regarding the customization.. If the theme fails to pick it up on emacs start up maybe the theme is loaded before the customization is set in your init file?

i am not sure what's happening with that... I have a very old .emacs file, created before themese were even a thing, so I may doing something wrong. At the end of the .emacs file, I have:

(load "~/.emacs-custom")

And that's where the theme is configured. First there's something like:

(custom-set-variables
;; ...
 '(custom-enabled-themes (quote (solarized-dark)))
;; ...
)

And then at the end of that same file, the faces are set:

(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(default ((t (:background nil))))
 '(anzu-mode-line ((t (:foreground "orange" :weight bold))))
 '(cursor ((t (:background "#990A1B"))))
 '(notmuch-search-flagged-face ((t nil)))
 '(notmuch-tag-flagged ((t nil))))

At startup, the cursor face does not take effect, but if I visit the .emacs-custom file, and (eval-defun) the (custom-set-faces) block, the cursor gets reset properly.

Not sure wth is going on here...