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

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

308 bytes added , 14 December 2011

m

no edit summary

37

edits

@@ Line 4: / Line 4: @@
 (add-key-binding "Refine Active Residue AA" "x" (lambda () (refine-active-residue)))
 (add-key-binding "Triple Refine" "t" (lambda () (manual-refine-residues 1)))
-(add-key-binding "Triple Refine AA" "h" (lambda () (refine-active-residue-triple)))
 (add-key-binding "Autofit Rotamer" "j" (lambda () (auto-fit-rotamer-active-residue)))
 (add-key-binding "Pepflip" "q" (lambda () (pepflip-active-residue)))
@@ Line 53: / Line 52: @@
                                       (list centred-residue))))
                (refine-residues imol all-residues))))))
+(add-key-binding "Neighbours Refine" "h"
+   (lambda ()
+     (if (not (valid-map-molecule? (imol-refinement-map)))
+	 (info-dialog "Must set the refinement map"))
+     (using-active-atom
+      (let* ((rc-spec (list aa-chain-id aa-res-no aa-ins-code))
+	     (ls (residues-near-residue aa-imol rc-spec 1.9)))
+	(with-auto-accept
+	 (refine-residues aa-imol (cons rc-spec ls)))))))