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):

1 files changed, 10 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.