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

no edit summary
No edit summary
No edit summary
Line 32: Line 32:
                                     (alt-conf  (list-ref active-atom 5)))
                                     (alt-conf  (list-ref active-atom 5)))
                                 (fill-partial-residue imol chain-id res-no ins-code))))))
                                 (fill-partial-residue imol chain-id res-no ins-code))))))
(add-key-binding "Kill Sidechain" "K"
  (lambda ()
      (using-active-atom
(delete-residue-sidechain aa-imol aa-chain-id aa-res-no aa-ins-code 0))))
(define *refine-residue-sphere-radius* 3.5) ;; Angstroms
(add-key-binding "Refine residues in a sphere" "R"
    (lambda ()
      (let ((active-atom (active-residue)))
        (if (not (list? active-atom))
            (format #t "No active atom~%")
            (let* ((centred-residue (list-head (cdr active-atom) 3))
                  (imol (car active-atom))
                  (other-residues (residues-near-residue imol centred-residue *refine-residue-sphere-radius*))
                  (all-residues (if (list? other-residues)
                                    (cons centred-residue other-residues)
                                    (list centred-residue))))
              (refine-residues imol all-residues))))))
(add-key-binding "Load RNAs files" "F9"  
(add-key-binding "Load RNAs files" "F9"  
                 (lambda ()
                 (lambda ()
37

edits