(defun ve/show-value-of-variable (symbol)
    (message (format "The value of '%s' is %S" symbol (symbol-value symbol))))

(defun ve/show-value-of-variable (symbol)
  (message (format "The value of '%s' is %S" symbol (symbol-value symbol))))

  (defun my/bookmark-jump-other-tab (bookmark)
    "Jump to BOOKMARK in another tab. See `bookmark-jump' for more."
    (interactive
     (bookmark-jump bookmark 'switch-to-buffer-other-tab))
    )

(defun my/bookmark-jump-other-tab (bookmark)
  "Jump to BOOKMARK in another tab. See `bookmark-jump' for more."
  (interactive
   (bookmark-jump bookmark 'switch-to-buffer-other-tab))
  )

  (defun rename-file-and-buffer ()
    "Rename the current buffer and file it is visiting."
    (interactive)
    (let ((filename (buffer-file-name)))
      (if (not (and filename (file-exists-p filename)))
	  (message "Buffer is not visiting a file!")
	(let ((new-name (read-file-name "New name: " filename)))
	  (cond
	   ((vc-backend filename) (vc-rename-file filename new-name))
	   (t
	    (rename-file filename new-name t)
	    (set-visited-file-name new-name t t)))))))

(defun rename-file-and-buffer ()
  "Rename the current buffer and file it is visiting."
  (interactive)
  (let ((filename (buffer-file-name)))
    (if (not (and filename (file-exists-p filename)))
	(message "Buffer is not visiting a file!")
      (let ((new-name (read-file-name "New name: " filename)))
	(cond
	 ((vc-backend filename) (vc-rename-file filename new-name))
	 (t
	  (rename-file filename new-name t)
	  (set-visited-file-name new-name t t)))))))

  (bind-key* (kbd "<f5>")   #'ve/desc-completion-functions)
(bind-key* (kbd "M-p")   #'avy-goto-char-timer)

(bind-key* (kbd "<f5>")   #'ve/desc-completion-functions)
(bind-key* (kbd "M-j")   #'avy-goto-char-timer)

(bind-key* (kbd "C-c p")   'proced)

  (bind-key* (kbd "C-k")     'kill-line)
(bind-key* (kbd "C-S-k")    'kill-whole-line)
  (bind-key* (kbd "C-S-<right>") 'tab-next)
(bind-key* (kbd "C-S-<left>")  'tab-previous)
(bind-key* (kbd "C-.")     'embark-act)

(bind-key* (kbd "C-k")     'kill-line)
  (bind-key* (kbd "C-S-k")   'kill-whole-line)
  (bind-key* (kbd "C-.")     'embark-act)
#+end_src
#+begin_src emacs-lisp
  
(bind-key* (kbd "C-c t") #'hydra-toggle/body)
(bind-key* (kbd "C-c w") #'hydra-window/body)
(bind-key* (kbd "C-c T") #'hydra-tab-bar/body)
(bind-key* (kbd "C-c d") #'hydra-desktop/body)
(bind-key* (kbd "C-c R") #'hydra-register/body)
;;(bind-key* (kbd "C-c c") #'hydra-complete/body)    
;;(bind-key* (kbd "C-c p") #'hydra-project/body)
(bind-key* (kbd "C-c p")   'proced)
#+end_src
#+begin_src emacs-lisp  
  (bind-key* (kbd "C-c ?") #'consult-apropos)
(bind-key* (kbd "C-c g") #'rg)
(bind-key* (kbd "C-c G") #'consult-ripgrep)
(bind-key* (kbd "C-c f") #'consult-fd)
(bind-key* (kbd "C-c b") #'consult-buffer)
(bind-key* (kbd "C-c r") #'consult-register)
(bind-key* (kbd "C-c l") #'consult-line)      
(bind-key* (kbd "C-c k") #'consult-yank-from-kill-ring)

  (require 'pp)

(require 'pp)

* General: define leader keys
("Highlight"
      ;; Quit operations
      "q"   '(:ignore t :which-key "kill/exit")
      "qz"  'kill-emacs       :wk "exit Emacs"
      "qw"  'delete-window    :wk "kill window"
      "qq"  'kill-this-buffer :wk "kill buffer"
      "qq"  'delete-frame     :wk "kill frame"
      ;; Buffer operations
      "b"   '(:ignore t :which-key "buffer")
      "bb"  'ibuffer            :wk "I-Buffer"
      "bn"  'next-buffer        :wk "next"
      "bs"  'switch-to-buffer   :wk "switch buffer"
      "br"  'revert-buffer      :wk "revert"
      "bm"  '(switch-to-buffer "*Messages*") :wk "*Messages*"
      "bS"  '(switch-to-buffer "*scratch*")  :wk "*scratch*"
      "b0"  'kill-this-buffer                :wk "kill buffer"
      "bq"  'kill-buffer-and-window          :wk "kill window & buffer"
      "bR"  'rename-file-and-buffer          :wk "rename buffer & file"
      ;; File operations
      "f"  '(:ignore t :which-key "files")
      "fj" 'dired-jump             :wk "open dired for visited file"
      "fl" 'find-file-literally    :wk "open file/no conversion"
      "h"   '(:ignore t :which-key "Hydras")
      "h." '(hydra-complete/body     :wk "complete at point")
      "hj" '(hydra-dump-jump/body    :wk "(dump) jump to")
      "hc" '(hydra-consult/body      :wk "consult")
      "hg" '(hydra-web-search/body   :wk "web search")
      "hm" '(hydra-kmacro/body       :wk "keyboard macros")
      "hr" '(hydra-rectangle/body    :wk "rectangle editing")
      "hs" '(hydra-registers/body    :wk "registers")
      "ht" '(hydra-org-template/body :wk "org-templates")
      )
    )