Help with my first elisp

Help with my first elisp

[Ypo]

[-- Attachment #1: Type: text/plain, Size: 2217 bytes --]

Hi


After thinking about learning elisp for years, today I've tried my first 
script. First I made some macros that worked as I intended, and then 
using this tutorial of Protesilaos I was able to transform those macros 
into elisp code.

https://protesilaos.com/codelog/2022-01-31-learning-emacs/
(thanks a lot)


My situation: I am using Protesilaos' package logos, and I would like to 
add to it something (a hook?): to mark the position where my eyesight 
must go. Example:

https://www.tiktok.com/@yporg/video/7100510074342280454?is_from_webapp=1&sender_device=pc&web_id=7100507416085399046


My problems:

  * I don't know how to make my code work always and only when in
    logos-mode.
  * I get those jumps pressing 1, 2 and 3. I would like to use just 1
    key (for example SPACEBAR) not 3 keys to run the function.


My code:


(defun posicion1 ()
   (interactive)
   (next-line 1)
   (beginning-of-visual-line)
   (forward-char 6)
)


(defun posicion2 ()
   (interactive)
   (forward-char 23)
)


(defun posicion3 ()
   (interactive)
   (end-of-visual-line) ;;C-e
   (backward-char 7)
)

(define-key global-map (kbd "1") #'posicion1)
(define-key global-map (kbd "2") #'posicion2)
(define-key global-map (kbd "3") #'posicion3)


Additional problem: I don't know how to recover keys 1, 2 and 3 to their 
normal functioning, right now I can't type 1, 2 or 3 on my Emacs. xD


I think it could be interesting to use just SPC, instead of 1, 2 and 3. 
Maybe it could be done using conditionals, like in this not-working example:

(defvar posicion
   "Position where it is the cursor.")


(defun posicion1 ()
   (interactive)
   (next-line 1)
   (beginning-of-visual-line)
   (forward-char 6)
   (setq posicion 1)
)


(defun posicion2 ()
   (interactive)
   (forward-char 23)
   (setq posicion 2)
)


(defun posicion3 ()
   (interactive)
   (end-of-visual-line) ;;C-e
   (backward-char 7)
   (setq posicion 3)
)




(defun salto ()
   (interactive)
   (if posicion 1
     (posicion2))
   (if posicion 2
     (posicion3))
   (if posicion 3
     (posicion1))
)

(define-key global-map (kbd "SPC") #'salto)



Any help, advice, warning, or menace are welcome.

Best regards :-)

[-- Attachment #2: Type: text/html, Size: 5896 bytes --]

Re: Help with my first elisp

[Greg Minshall]

Ypo,

> Additional problem: I don't know how to recover keys 1, 2 and 3 to
> their normal functioning, right now I can't type 1, 2 or 3 on my
> Emacs. xD

you have, e.g.,

> (define-key global-map (kbd "1") #'posicion1)
> (define-key global-map (kbd "2") #'posicion2)
> (define-key global-map (kbd "3") #'posicion3)

but, that is in the global map.  for a given mode, i sometimes do
something like that:

> (add-hook 'mh-show-mode-hook #'(lambda ()
>          (local-set-key "q" 'mh-show-execute-commands)))

or, closer to what you have, sometimes like

>             (define-key mh-letter-mode-map
>              (kbd "C-c s")
>              'ggm-mh-sentaddrs-completion)

i am no elisp expert, and so those are just random things i've found
that work.  but, hopefully this may give you a hint of a direction to
follow.

cheers, Greg

Re: Help with my first elisp

[Ypo]

[-- Attachment #1: Type: text/plain, Size: 1938 bytes --]

Thanks, Greg

  * Now I am able to run my script every time I am in logos-focus mode :D
  * But my keys don't get to be "normal" after I get out of logos-focus
    mode.

This is how my code is evolving (the "conditional part" is not working yet):

(add-hook 'logos-focus-mode-hook #'(lambda ()

(defvar posicion
   "Position where is the cursor.")

(defun posicion3 ()
   (interactive)
   (end-of-visual-line) ;;C-e
   (backward-char 7)
   (setq posicion 3)
)

(defun posicion2 ()
   (interactive)
   (forward-char 23)
   (setq posicion 2)
)

(defun posicion1 ()
   (interactive)
   (next-line 1)
   (beginning-of-visual-line)
   (forward-char 6)
   (setq posicion 1)
)

(defun salto ()
   (interactive)
   (if posicion 1
     (posicion2)
       (if posicion 2
       (posicion3)
         (if posicion 3
         (posicion1)))))

;; (define-key global-map (kbd "SPC") #'salto)
(local-set-key "j" 'posicion1)
(local-set-key "k" 'posicion2)
(local-set-key "l" 'posicion3)
))


El 22/05/2022 a las 15:27, Greg Minshall escribió:
> Ypo,
>
>> Additional problem: I don't know how to recover keys 1, 2 and 3 to
>> their normal functioning, right now I can't type 1, 2 or 3 on my
>> Emacs. xD
> you have, e.g.,
>
>> (define-key global-map (kbd "1") #'posicion1)
>> (define-key global-map (kbd "2") #'posicion2)
>> (define-key global-map (kbd "3") #'posicion3)
> but, that is in the global map.  for a given mode, i sometimes do
> something like that:
>
>> (add-hook 'mh-show-mode-hook #'(lambda ()
>>           (local-set-key "q" 'mh-show-execute-commands)))
> or, closer to what you have, sometimes like
>
>>              (define-key mh-letter-mode-map
>>               (kbd "C-c s")
>>               'ggm-mh-sentaddrs-completion)
> i am no elisp expert, and so those are just random things i've found
> that work.  but, hopefully this may give you a hint of a direction to
> follow.
>
> cheers, Greg

[-- Attachment #2: Type: text/html, Size: 3698 bytes --]

Re: Help with my first elisp

[Greg Minshall]

Ypo,

> (defun salto ()
>   (interactive)
>   (if posicion 1
>     (posicion2)
>       (if posicion 2
>       (posicion3)
>         (if posicion 3
>         (posicion1)))))

your function =salto= may be using =if= incorrectly.  try marking that
=defun= and hitting TAB to justify it.  my guess is, that's not what you
want.

> ;; (define-key global-map (kbd "SPC") #'salto)
> (local-set-key "j" 'posicion1)
> (local-set-key "k" 'posicion2)
> (local-set-key "l" 'posicion3)
> ))

maybe use something like

>>              (define-key mh-letter-mode-map
>>               (kbd "C-c s")
>>               'ggm-mh-sentaddrs-completion)

but, using whatever the name of the logos-focus mode map, pointing at
your functions?

cheers, Greg

Re: Help with my first elisp

[tomas]

[-- Attachment #1: Type: text/plain, Size: 321 bytes --]

On Mon, May 23, 2022 at 09:46:09AM -0700, Greg Minshall wrote:
> Ypo,
> 
> > (defun salto ()
> >   (interactive)
> >   (if posicion 1

You are comparing the value of posicion to 1?

Then it should probably be "(if (= posicion 1) ...)" or
"(if (equal posicion 1) ...)" or something like that.

Cheers
-- 
t

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 195 bytes --]

Re: Help with my first elisp

[Kepa Diez]

[-- Attachment #1: Type: text/plain, Size: 1452 bytes --]


> maybe use something like
>
> >/> (define-key mh-letter-mode-map/
> >/> (kbd "C-c s")/
> >/> 'ggm-mh-sentaddrs-completion)/
>
> but, using whatever the name of the logos-focus mode map, pointing at
> your functions?

Hi Greg

I think "logos" doesn't have a map, is it possible?


> On Mon, May 23, 2022 at 09:46:09AM -0700, Greg Minshall wrote:
> >/Ypo,/
> >//
> >/> (defun salto ()/
> >/> (interactive)/
> >/> (if posicion 1/
>
> You are comparing the value of posicion to 1?
>
> Then it should probably be "(if (= posicion 1) ...)" or
> "(if (equal posicion 1) ...)" or something like that.
>
> Cheers
> -- 
> t
Thanks, Tomas. It seems the "if" part works, now I use my elisp just 
with the spacebar :-)

(add-hook 'logos-focus-mode-hook #'(lambda ()

(defvar posicion
   "Position where is the cursor.")

   (defun focusPointStart ()
   (interactive)
   (next-line 1)
   (beginning-of-visual-line)
   (forward-char 6)
   (setq posicion 1)
)

(defun focusPointInter ()
   (interactive)
   (forward-char 23)
   (setq posicion 2)
)


(defun focusPointEnd ()
   (interactive)
   (end-of-visual-line) ;;C-e
   (backward-char 7)
   (setq posicion 3)
)

(defun focusJump ()
   (interactive)
   (if (equal posicion 1)
     (focusPointInter)
       (if (equal posicion 2)
       (focusPointEnd)
         (if  (equal posicion 3)
         (focusPointStart)))))

(define-key global-map (kbd "SPC") #'focusJump)
))


[-- Attachment #2: Type: text/html, Size: 2422 bytes --]

Fwd: Help with my first elisp

[Ypo]

[-- Attachment #1: Type: text/plain, Size: 1456 bytes --]


> maybe use something like
>
> >/> (define-key mh-letter-mode-map/
> >/> (kbd "C-c s")/
> >/> 'ggm-mh-sentaddrs-completion)/
>
> but, using whatever the name of the logos-focus mode map, pointing at
> your functions?

Hi Greg

I think "logos" doesn't have a map, is it possible?


> On Mon, May 23, 2022 at 09:46:09AM -0700, Greg Minshall wrote:
> >/Ypo,/
> >//
> >/> (defun salto ()/
> >/> (interactive)/
> >/> (if posicion 1/
>
> You are comparing the value of posicion to 1?
>
> Then it should probably be "(if (= posicion 1) ...)" or
> "(if (equal posicion 1) ...)" or something like that.
>
> Cheers
> -- 
> t
Thanks, Tomas. It seems the "if" part works, now I can use my elisp just 
with the spacebar :-)

(add-hook 'logos-focus-mode-hook #'(lambda ()

(defvar posicion
   "Position where is the cursor.")

   (defun focusPointStart ()
   (interactive)
   (next-line 1)
   (beginning-of-visual-line)
   (forward-char 6)
   (setq posicion 1)
)

(defun focusPointInter ()
   (interactive)
   (forward-char 23)
   (setq posicion 2)
)


(defun focusPointEnd ()
   (interactive)
   (end-of-visual-line) ;;C-e
   (backward-char 7)
   (setq posicion 3)
)

(defun focusJump ()
   (interactive)
   (if (equal posicion 1)
     (focusPointInter)
       (if (equal posicion 2)
       (focusPointEnd)
         (if  (equal posicion 3)
         (focusPointStart)))))

(define-key global-map (kbd "SPC") #'focusJump)
))


[-- Attachment #2: Type: text/html, Size: 2510 bytes --]

Re: Fwd: Help with my first elisp

[tomas]

[-- Attachment #1: Type: text/plain, Size: 205 bytes --]

On Tue, May 24, 2022 at 07:32:31PM +0200, Ypo wrote:

[...]

> Thanks, Tomas. It seems the "if" part works, now I can use my elisp just
> with the spacebar :-)

Glad it worked :)

Cheers
-- 
t

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 195 bytes --]

Re: Fwd: Help with my first elisp

[Greg Minshall]

Ypo,

> > but, using whatever the name of the logos-focus mode map, pointing at
> > your functions?
...
> I think "logos" doesn't have a map, is it possible?

certainly possible (i don't use logos).

in fact,
----
https://gitlab.com/protesilaos/logos/-/blob/main/logos.el
----

has the lines

----
;; Logos does not define any key bindings.  Try something like this:
;;
;;     (let ((map global-map))
;;       (define-key map [remap narrow-to-region] #'logos-narrow-dwim)
;;       (define-key map [remap forward-page] #'logos-forward-page-dwim)
;;       (define-key map [remap backward-page] #'logos-backward-page-dwim))
;;
;; By default those key bindings are: C-x n n, C-x ], C-x [.
----

which certainly implies no map.  and, iiuc, *these* =define-key= lines
are global, i.e., remain true whether you are in, or out of, logos mode.

cheers, Greg

Re: Help with my first elisp

[Orm Finnendahl]

Hi,

Am Dienstag, den 24. Mai 2022 um 19:30:40 Uhr (+0200) schrieb Kepa Diez:
> (defun focusJump ()
>   (interactive)
>   (if (equal posicion 1)
>     (focusPointInter)
>       (if (equal posicion 2)
>       (focusPointEnd)
>         (if  (equal posicion 3)
>         (focusPointStart)))))

maybe you want to cleanup a bit:

(defun focusJump (posicion)
  (interactive "nPosicion: ")
  (case posicion
    (1 (focusPointInter))
    (2 (focusPointEnd))
    (3 (focusPointStart))))

BTW: As lisp doesn't distinguish case, it is common practice in lisp
to seperate words in symbols with dashes like 'focus-jump,
'focus-pont-inter, 'focus-point-start, etc.

--
Orm

Re: Help with my first elisp

[tomas]

[-- Attachment #1: Type: text/plain, Size: 1112 bytes --]

On Wed, May 25, 2022 at 08:35:19AM +0200, Orm Finnendahl wrote:
> Hi,
> 
> Am Dienstag, den 24. Mai 2022 um 19:30:40 Uhr (+0200) schrieb Kepa Diez:
> > (defun focusJump ()
> >   (interactive)
> >   (if (equal posicion 1)
> >     (focusPointInter)
> >       (if (equal posicion 2)
> >       (focusPointEnd)
> >         (if  (equal posicion 3)
> >         (focusPointStart)))))
> 
> maybe you want to cleanup a bit:
> 
> (defun focusJump (posicion)
>   (interactive "nPosicion: ")
>   (case posicion
>     (1 (focusPointInter))
>     (2 (focusPointEnd))
>     (3 (focusPointStart))))
> 
> BTW: As lisp doesn't distinguish case, it is common practice in lisp
> to seperate words in symbols with dashes like 'focus-jump,
> 'focus-pont-inter, 'focus-point-start, etc.

Just to avoid confusion: Emacs Lisp does distinguish case. Traditional
Lisp doesn't. I know you know, but people could misunderstand the above.

The rest stands: in Emacs Lisp it's customary to write variable and
function names with dashes, in good ol' Lisp tradition.

Cheers
-- 
t

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 195 bytes --]

Re: Help with my first elisp

[Orm Finnendahl]

[-- Attachment #1: Type: text/plain, Size: 583 bytes --]

Am Mittwoch, den 25. Mai 2022 um 10:24:01 Uhr (+0200) schrieb tomas@tuxteam.de:
> 
> Just to avoid confusion: Emacs Lisp does distinguish case. Traditional
> Lisp doesn't. I know you know, but people could misunderstand the above.

Yes, that was a bit imprecise ;-)

Best,
Orm
----------------------------------------------------------------------
Prof. Orm Finnendahl
Komposition
Hochschule für Musik und Darstellende Kunst
Eschersheimer Landstr. 29-39
60322 Frankfurt am Main

https://www.youtube.com/watch?v=2rWha1HTfFE&list=PLiGfneJSWmNw6dTUvcTHbTkCYOOTiB_N6


[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 833 bytes --]