;; -*- coding: utf-8; lexical-binding: t; -*-

;; 2024-03-03
;; http://xahlee.info/emacs/misc/xah-fly-keys_setup_major_mode_key.html 

(defvar xah-major-mode-leader-key nil "Global leader key for major modes.
Value should be the same format that `kbd' returns.
e.g. (kbd \"TAB\") or (kbd \"<f9>\") or (kbd \"C-c\")")

(if xah-major-mode-leader-key nil (setq xah-major-mode-leader-key (kbd "TAB")))

(defvar xah-org-leader-map nil "A keymap for all `org-mode' keybinding.")

(defun xah-set-org-mode-keys ()
  "Config `org-mode'.
Version: 2024-03-03"
  (interactive)

  ;; 2024-03-03 the keys are mostly same as org-mode's default, by simply replacing C-c with TAB, as much as possible.
  ;; mostly, C-c C-‹key› is now [leader ‹key›]

  (progn
    (define-prefix-command 'xah-org-leader-map)

    (define-key xah-org-leader-map (kbd "TAB") #'org-cycle)

    ;; (define-key xah-org-leader-map (kbd "TAB \" a") #'orgtbl-ascii-plot)
    ;; (define-key xah-org-leader-map (kbd "TAB \" g") #'org-plot/gnuplot)
    ;; (define-key xah-org-leader-map (kbd "TAB M-b") #'org-previous-block)
    ;; (define-key xah-org-leader-map (kbd "TAB M-f") #'org-next-block)
    ;; (define-key xah-org-leader-map (kbd "TAB M-l") #'org-insert-last-stored-link)
    ;; (define-key xah-org-leader-map (kbd "TAB M-w") #'org-refile-copy)

    (define-key xah-org-leader-map (kbd "SPC RET") #'org-ctrl-c-ret)
    (define-key xah-org-leader-map (kbd "SPC TAB") #'org-ctrl-c-tab)
    ;; (define-key xah-org-leader-map (kbd "<tab>") #'org-cycle-force-archived)

    (define-key xah-org-leader-map (kbd "^") #'org-up-element)
    (define-key xah-org-leader-map (kbd "_") #'org-down-element)
    (define-key xah-org-leader-map (kbd "a") #'org-attach)
    (define-key xah-org-leader-map (kbd "b") #'org-backward-heading-same-level)
    (define-key xah-org-leader-map (kbd "c") #'org-ctrl-c-ctrl-c)
    (define-key xah-org-leader-map (kbd "d") #'org-deadline)
    (define-key xah-org-leader-map (kbd "e") #'org-export-dispatch)
    (define-key xah-org-leader-map (kbd "f") #'org-forward-heading-same-level)
    (define-key xah-org-leader-map (kbd "j") #'org-goto)
    (define-key xah-org-leader-map (kbd "k") #'org-kill-note-or-show-branches)
    (define-key xah-org-leader-map (kbd "l") #'org-insert-link)
    (define-key xah-org-leader-map (kbd "n") #'outline-next-visible-heading)
    (define-key xah-org-leader-map (kbd "o") #'org-open-at-point)
    (define-key xah-org-leader-map (kbd "p") #'outline-previous-visible-heading)
    (define-key xah-org-leader-map (kbd "q") #'org-set-tags-command)
    (define-key xah-org-leader-map (kbd "r") #'org-fold-reveal)
    (define-key xah-org-leader-map (kbd "s") #'org-schedule)
    (define-key xah-org-leader-map (kbd "t") #'org-todo)
    (define-key xah-org-leader-map (kbd "u") #'outline-up-heading)
    (define-key xah-org-leader-map (kbd "w") #'org-refile)
    (define-key xah-org-leader-map (kbd "y") #'org-evaluate-time-range)
    (define-key xah-org-leader-map (kbd "z") #'org-add-note)

    (define-key xah-org-leader-map (kbd "!") #'org-time-stamp-inactive)
    (define-key xah-org-leader-map (kbd "#") #'org-update-statistics-cookies)
    (define-key xah-org-leader-map (kbd "$") #'org-archive-subtree)
    (define-key xah-org-leader-map (kbd "%") #'org-mark-ring-push)
    (define-key xah-org-leader-map (kbd "&") #'org-mark-ring-goto)
    (define-key xah-org-leader-map (kbd "'") #'org-edit-special)
    (define-key xah-org-leader-map (kbd "*") #'org-ctrl-c-star)
    (define-key xah-org-leader-map (kbd "+") #'org-table-sum)
    (define-key xah-org-leader-map (kbd ",") #'org-priority)
    (define-key xah-org-leader-map (kbd "-") #'org-ctrl-c-minus)
    (define-key xah-org-leader-map (kbd ".") #'org-time-stamp)
    (define-key xah-org-leader-map (kbd "/") #'org-sparse-tree)
    (define-key xah-org-leader-map (kbd ":") #'org-toggle-fixed-width)
    (define-key xah-org-leader-map (kbd ";") #'org-toggle-comment)
    (define-key xah-org-leader-map (kbd "<") #'org-date-from-calendar)
    (define-key xah-org-leader-map (kbd "=") #'org-table-eval-formula)
    (define-key xah-org-leader-map (kbd ">") #'org-goto-calendar)
    (define-key xah-org-leader-map (kbd "?") #'org-table-field-info)
    (define-key xah-org-leader-map (kbd "@") #'org-mark-subtree)
    (define-key xah-org-leader-map (kbd "[") #'org-agenda-file-to-front)
    (define-key xah-org-leader-map (kbd "\\") #'org-match-sparse-tree)

    (define-key xah-org-leader-map (kbd "]") #'org-remove-file)
    (define-key xah-org-leader-map (kbd "^") #'org-sort)
    (define-key xah-org-leader-map (kbd "`") #'org-table-edit-field)
    (define-key xah-org-leader-map (kbd "{") #'org-table-toggle-formula-debugger)
    (define-key xah-org-leader-map (kbd "|") #'org-table-create-or-convert-from-region)
    (define-key xah-org-leader-map (kbd "}") #'org-table-toggle-coordinate-overlays)
    (define-key xah-org-leader-map (kbd "~") #'org-table-create-with-table.el)

    (define-key xah-org-leader-map (kbd "*") #'org-list-make-subtree)
    (define-key xah-org-leader-map (kbd ",") #'org-insert-structure-template)
    (define-key xah-org-leader-map (kbd "<") #'outline-promote)
    (define-key xah-org-leader-map (kbd ">") #'outline-demote)

    (define-key xah-org-leader-map (kbd "v I") #'org-babel-view-src-block-info)
    (define-key xah-org-leader-map (kbd "v TAB") #'org-babel-view-src-block-info)

    (define-key xah-org-leader-map (kbd "v a") #'org-babel-sha1-hash)
    (define-key xah-org-leader-map (kbd "v b") #'org-babel-execute-buffer)
    (define-key xah-org-leader-map (kbd "v c") #'org-babel-check-src-block)
    (define-key xah-org-leader-map (kbd "v d") #'org-babel-demarcate-block)
    (define-key xah-org-leader-map (kbd "v e") #'org-babel-execute-maybe)
    (define-key xah-org-leader-map (kbd "v f") #'org-babel-tangle-file)
    (define-key xah-org-leader-map (kbd "v g") #'org-babel-goto-named-src-block)
    (define-key xah-org-leader-map (kbd "v h") #'org-babel-describe-bindings)
    (define-key xah-org-leader-map (kbd "v i") #'org-babel-lob-ingest)
    (define-key xah-org-leader-map (kbd "v j") #'org-babel-insert-header-arg)
    (define-key xah-org-leader-map (kbd "v k") #'org-babel-remove-result-one-or-many)
    (define-key xah-org-leader-map (kbd "v l") #'org-babel-load-in-session)
    (define-key xah-org-leader-map (kbd "v n") #'org-babel-next-src-block)
    (define-key xah-org-leader-map (kbd "v o") #'org-babel-open-src-block-result)
    (define-key xah-org-leader-map (kbd "v p") #'org-babel-previous-src-block)
    (define-key xah-org-leader-map (kbd "v r") #'org-babel-goto-named-result)
    (define-key xah-org-leader-map (kbd "v s") #'org-babel-execute-subtree)
    (define-key xah-org-leader-map (kbd "v t") #'org-babel-tangle)
    (define-key xah-org-leader-map (kbd "v u") #'org-babel-goto-src-block-head)
    (define-key xah-org-leader-map (kbd "v v") #'org-babel-expand-src-block)
    (define-key xah-org-leader-map (kbd "v x") #'org-babel-do-key-sequence-in-edit-buffer)
    (define-key xah-org-leader-map (kbd "v z") #'org-babel-switch-to-session-with-code)

    (define-key xah-org-leader-map (kbd "M-l") #'org-insert-all-links)
    (define-key xah-org-leader-map (kbd "M-w") #'org-refile-reverse)

    (define-key xah-org-leader-map (kbd "x TAB") #'org-clock-in)

    (define-key xah-org-leader-map (kbd "x t a") #'org-archive-subtree-default)
    (define-key xah-org-leader-map (kbd "x t b") #'org-toggle-checkbox)
    (define-key xah-org-leader-map (kbd "x t c") #'org-columns)
    (define-key xah-org-leader-map (kbd "x t d") #'org-clock-display)
    (define-key xah-org-leader-map (kbd "x t f") #'org-emphasize)
    (define-key xah-org-leader-map (kbd "x t j") #'org-clock-goto)
    (define-key xah-org-leader-map (kbd "x t l") #'org-latex-preview)
    (define-key xah-org-leader-map (kbd "x t n") #'org-next-link)
    (define-key xah-org-leader-map (kbd "x t o") #'org-clock-out)
    (define-key xah-org-leader-map (kbd "x t p") #'org-previous-link)
    (define-key xah-org-leader-map (kbd "x t q") #'org-clock-cancel)
    (define-key xah-org-leader-map (kbd "x t r") #'org-toggle-radio-button)
    (define-key xah-org-leader-map (kbd "x t s") #'org-archive-subtree)
    (define-key xah-org-leader-map (kbd "x t t") #'org-toggle-time-stamp-overlays)
    (define-key xah-org-leader-map (kbd "x t u") #'org-dblock-update)
    (define-key xah-org-leader-map (kbd "x t v") #'org-toggle-inline-images)
    (define-key xah-org-leader-map (kbd "x t w") #'org-cut-special)
    (define-key xah-org-leader-map (kbd "x t x") #'org-clock-in-last)
    (define-key xah-org-leader-map (kbd "x t y") #'org-paste-special)
    (define-key xah-org-leader-map (kbd "x t z") #'org-resolve-clocks)

    (define-key xah-org-leader-map (kbd "x !") #'org-reload)
    (define-key xah-org-leader-map (kbd "x ,") #'org-timer-pause-or-continue)
    (define-key xah-org-leader-map (kbd "x -") #'org-timer-item)
    (define-key xah-org-leader-map (kbd "x .") #'org-timer)
    (define-key xah-org-leader-map (kbd "x 0") #'org-timer-start)
    (define-key xah-org-leader-map (kbd "x ;") #'org-timer-set-timer)
    (define-key xah-org-leader-map (kbd "x <") #'org-agenda-set-restriction-lock)
    (define-key xah-org-leader-map (kbd "x >") #'org-agenda-remove-restriction-lock)
    (define-key xah-org-leader-map (kbd "x @") #'org-cite-insert)
    (define-key xah-org-leader-map (kbd "x A") #'org-archive-to-archive-sibling)
    (define-key xah-org-leader-map (kbd "x E") #'org-inc-effort)
    (define-key xah-org-leader-map (kbd "x G") #'org-feed-goto-inbox)
    (define-key xah-org-leader-map (kbd "x I") #'org-info-find-node)
    (define-key xah-org-leader-map (kbd "x P") #'org-set-property-and-value)
    (define-key xah-org-leader-map (kbd "x [") #'org-reftex-citation)
    (define-key xah-org-leader-map (kbd "x \\") #'org-toggle-pretty-entities)
    (define-key xah-org-leader-map (kbd "x _") #'org-timer-stop)
    (define-key xah-org-leader-map (kbd "x a") #'org-toggle-archive-tag)
    (define-key xah-org-leader-map (kbd "x b") #'org-tree-to-indirect-buffer)
    (define-key xah-org-leader-map (kbd "x c") #'org-clone-subtree-with-time-shift)
    (define-key xah-org-leader-map (kbd "x d") #'org-insert-drawer)
    (define-key xah-org-leader-map (kbd "x e") #'org-set-effort)
    (define-key xah-org-leader-map (kbd "x f") #'org-footnote-action)
    (define-key xah-org-leader-map (kbd "x g") #'org-feed-update-all)
    (define-key xah-org-leader-map (kbd "x o") #'org-toggle-ordered-property)
    (define-key xah-org-leader-map (kbd "x p") #'org-set-property)
    (define-key xah-org-leader-map (kbd "x q") #'org-toggle-tags-groups)
    (define-key xah-org-leader-map (kbd "x v") #'org-copy-visible)
    (define-key xah-org-leader-map (kbd "x x") #'org-dynamic-block-insert-dblock)

    (define-key xah-org-leader-map (kbd "v C-M-h") #'org-babel-mark-block)

    (define-key xah-org-leader-map (kbd "x C-M-v") #'org-redisplay-inline-images)
    (define-key xah-org-leader-map (kbd "x M-w") #'org-copy-special))

  (define-key
   org-mode-map
   (if (boundp 'xah-major-mode-leader-key)
       xah-major-mode-leader-key
     (kbd "TAB"))
   xah-org-leader-map)
  ;;
  )

(add-hook 'org-mode-hook 'xah-set-org-mode-keys)