Hyper experiment

Adding some hyper key-bindings.
* basic.el (ns-right-alternate-modifier):
(ns-function-modifier):
(ns-pop-up-frames):
(ns-use-native-fullscreen):
(ns-use-proxy-icon):
(global-map):
* org-conf.el (global-map):
* view-conf.el (durand-view-map):

3 files changed, 14 insertions, 4 deletions

diff --git a/basic.el b/basic.el
index 8a3b12f..691ec9d 100644
--- a/basic.el
+++ b/basic.el
@@ -91,10 +91,16 @@
 
 ;;; mac specific settings
 
-(setq ns-right-alternate-modifier 'none
-      ns-pop-up-frames nil
-      ns-use-native-fullscreen nil
-      ns-use-proxy-icon nil)
+(setq ns-right-alternate-modifier 'none)
+(setq ns-function-modifier (list :ordinary 'hyper :function 'none :mouse 'none))
+(setq ns-pop-up-frames nil)
+(setq ns-use-native-fullscreen nil)
+(setq ns-use-proxy-icon nil)
+
+;;; bookmark
+
+(define-key global-map (vector ?\H-b) #'bookmark-jump)
+(define-key global-map (vector ?\H-m) #'bookmark-set)
 
 ;;; where to find the C source code of Emacs.
 
diff --git a/org-conf.el b/org-conf.el
index 04eb26f..a3ce49b 100644
--- a/org-conf.el
+++ b/org-conf.el
@@ -32,6 +32,7 @@
 
 ;;; Keys
 
+(define-key global-map (vector ?\H-a) #'org-agenda)
 (define-key global-map (vector 3 97) #'org-agenda)
 (define-key global-map (vector 3 99) #'org-capture)
 (define-key global-map (vector 3 ?l) #'org-store-link)
diff --git a/view-conf.el b/view-conf.el
index b58e04d..8556eff 100644
--- a/view-conf.el
+++ b/view-conf.el
@@ -108,6 +108,9 @@ If ARG is '(16), view the battery information."
     (define-key map (vector ?n) #'novel)
     map)
   "The keymap that is related to my custom functions about viewing.")
+;;; Hyper key
+
+(define-key global-map (vector ?\H-n) #'novel)
 
 ;;; About view-mode