;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/super.el

(let ((super-global-keys))
  (defun super-global-set (key fun)
    "Make a super global KEY bound to FUN."
    (keymap-global-set key fun)
    (add-to-list 'super-global-keys key) )
  (declare-function super-global-set nil)

  (defun disable-super-global-keys (&optional map debug)
    "Disable the super global keys so they can be assigned.
Use the current map unless MAP is provided."
    (or map (setq map (current-local-map)))
    (when debug
      (message "Begin disabling keys ...") )
    (dolist (k super-global-keys)
      (when debug
        (message "disabled: %s" k) )
      (keymap-set map k nil) ))
  (declare-function disable-super-global-keys nil) )

(define-prefix-command 'C-o-prefix)
(super-global-set "C-o" 'C-o-prefix)

(provide 'super)