update my-help

lisp/my/my.el

@@ -29,7 +29,9 @@
 (defun my-help ()
   "Display help"
   (interactive)
-  (let ((buffer-name "*Quick Help*"))
+  (let ((buffer-name "*Quick Help*")
+        (org-link-descriptive t)
+        (org-hide-emphasis-markers t))
     (with-current-buffer (get-buffer-create buffer-name)
       (define-derived-mode my-org-help-mode org-mode "Org help mode"
         "Major mode for help buffers using Org mode")
@@ -115,13 +117,15 @@
   *Export LaTeX* [[help:org-latex-remove-logfiles][Logfiles are removed]] (deactivate for debugging)
 
 
-*Python*
+*Programming languages*
 
+  [[help:completion-at-point][Completion]] ............... =C-M-i=    [[help:xref-find-definitions][Definitions]] ................ =M-.=
+  [[help:eldoc][Help]] ................... =C-c e d=    [[help:xref-find-references][References]] ................. =M-?=
+
+  *Python*
   IDE view ........ [[help:my-view-python][my-view-python]]
 
-
+  *Elisp*
-*Elisp*
-
   [[help:eval-expression][Evaluate expression]] ........ =M-:=    [[help:forward-sexp][Jump to next expression]] .. =C-M-f=
   - [[help:eval-last-sexp][last to echo]] ......... =C-x= =C-e=    [[help:backward-sexp][Jump tp prev. expression]] . =C-M-b=
   - [[help:eval-print-last-sexp][last to buffer]]                    [[help:kill-sexp][Cut expression]] ........... =C-M-k=
@@ -278,6 +282,12 @@ Examples:
        (my-interpolate (nth 2 (car rgbsteps)) (nth 2 (cadr rgbsteps)) position (caar rgbsteps) (caadr rgbsteps))
        (my-interpolate (nth 3 (car rgbsteps)) (nth 3 (cadr rgbsteps)) position (caar rgbsteps) (caadr rgbsteps))))))
 
+(defun my-gui-elements-toggle ()
+  "Function to toggle gui elements on/off."
+  (interactive)
+  (menu-bar-mode 'toggle)
+  (tool-bar-mode 'toggle))
+
 (with-eval-after-load 'org
 
   ;;; colored table cells