cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- [GUI] show 'inline' menu item only for links to supported files.

This commit is contained in:
cage 2023-05-12 15:34:58 +02:00
parent 917ca507ab
commit 13c2815268
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/gui/client/main-window.lisp
View File

@ -409,7 +409,8 @@
(let* ((popup-menu (gui:make-menu nil (_"link menu"))) (let* ((popup-menu (gui:make-menu nil (_"link menu")))
(x (gui:screen-mouse-x)) (x (gui:screen-mouse-x))
(y (gui:screen-mouse-y))) (y (gui:screen-mouse-y)))
(gui:make-menubutton popup-menu (_ "Inline") #'open-inline-callback) (when (inline-possible-p)
(gui:make-menubutton popup-menu (_ "Inline") #'open-inline-callback))
(gui:make-menubutton popup-menu (_ "Add link to bookmarks") #'bookmark-link-callback) (gui:make-menubutton popup-menu (_ "Add link to bookmarks") #'bookmark-link-callback)
(gui:make-menubutton popup-menu (_ "Add link to tour") #'add-to-tour-callback) (gui:make-menubutton popup-menu (_ "Add link to tour") #'add-to-tour-callback)
(gui:make-menubutton popup-menu (_ "Copy link to the clipboard") #'copy-link-callback) (gui:make-menubutton popup-menu (_ "Copy link to the clipboard") #'copy-link-callback)