Pauls-key-bindings-for-coot: Difference between revisions

Pauls-key-bindings-for-coot (edit)

463 bytes added , 16 September 2008

m

no edit summary

37

edits

@@ Line 56: / Line 56: @@
                           (set-draw-ncs-ghosts keyboard-ghosts-mol 1)
                           (set-draw-ncs-ghosts keyboard-ghosts-mol 0)))))
-(add-key-binding "Hydrogens off" "("
+(add-key-binding "Hydrogens off" "["
                   (lambda ()
-                    (set-draw-hydrogens 0 0)))
+                   (let ((imol
-(add-key-binding "Hydrogens on" ")"
+                          (let ((active-atom (active-residue)))
+                            (if active-atom
+                                (car active-atom)
+))))
+                    (set-draw-hydrogens imol 0))))
+(add-key-binding "Hydrogens on" "]"
                   (lambda ()
-                    (set-draw-hydrogens 0 1)))
+                   (let ((imol
+                          (let ((active-atom (active-residue)))
+                            (if active-atom
+                                (car active-atom)
+))))
+                    (set-draw-hydrogens imol 1))))
 (add-key-binding "Rotamer name in Status Bar" "~"