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

(One intermediate revision by the same user not shown)

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

Line 136:

Line 145:

(alt-conf (list-ref active-atom 5)))

(add-terminal-residue imol chain-id res-no "auto" 1))))))

(add-key-binding "Accept Baton Position" "quoteleft" accept-baton-position)

</pre>

@@ 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)))))))
@@ Line 136: / Line 145: @@
 			       (alt-conf  (list-ref active-atom 5)))
 			   (add-terminal-residue imol chain-id res-no "auto" 1))))))
+(add-key-binding "Accept Baton Position" "quoteleft" accept-baton-position)
 </pre>