Evil experiences

[Michael Markert]

On 14 Sep 2011, Alan Schmitt wrote:

> On 13 sept. 2011, at 22:32, Michael Markert wrote:
>
>>> (setq evil-emacs-state-cursor '("red" box))
>>
>> I use this for `evil-default-cursor':
>>
>> #+begin_src emacs_lisp
>> (defun cofi/evil-cursor ()
>>  "Change cursor color according to evil-state."
>>  (let ((default "OliveDrab4")
>>        (cursor-colors '((insert . "dark orange")
>>                         (emacs  . "sienna")
>>                         (visual . "white"))))
>>    (setq cursor-type (if (eq evil-state 'visual)
>>                          'hollow
>>                        'bar))
>>    (set-cursor-color (def-assoc evil-state cursor-colors default))))
>> #+end_src
>
> Hello,
>
> I've tried both of these (adding them to my .emacs), and I could make
> neither work. Is it because I'm on Aquamacs? Or because I'm using a
> color theme?

For my code this is missing (sorry):
#+begin_src emacs-lisp
(defun def-assoc (key alist default)
  "Return cdr of `KEY' in `ALIST' or `DEFAULT' if key is no car in alist."
  (let ((match (assoc key alist)))
    (if match
        (cdr match)
      default)))
#+end_src emacs-lisp

Aquamacs could be a cause for this but I have no experience with
it. color themes are most probably not interfering as they do little
more than assigning faces themselves.

Michael
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 835 bytes
Desc: not available
Url : https://lists.ourproject.org/pipermail/implementations-list/attachments/20110914/7deee94c/attachment.pgp