37
edits
Pauls-key-bindings-for-coot: Difference between revisions
Jump to navigation
Jump to search
no edit summary
(New page: <pre> (add-key-binding "Refine Active Residue" "r" (lambda () (manual-refine-residues 0))) (add-key-binding "Refine Active Residue AA" "x" (lambda () (refine-active-residue))) (add-key-bi...) |
No edit summary |
||
| Line 62: | Line 62: | ||
(lambda () | (lambda () | ||
(set-draw-hydrogens 0 1))) | (set-draw-hydrogens 0 1))) | ||
(add-key-binding "Rotamer name in Status Bar" "~" | |||
(lambda () | |||
(let ((active-atom (active-residue))) | |||
(if (not active-residue) | |||
(add-status-bar-text "No residue found") | |||
(let ((imol (list-ref active-atom 0)) | |||
(chain-id (list-ref active-atom 1)) | |||
(res-no (list-ref active-atom 2)) | |||
(ins-code (list-ref active-atom 3)) | |||
(atom-name (list-ref active-atom 4)) | |||
(alt-conf (list-ref active-atom 5))) | |||
(let ((name (get-rotamer-name imol chain-id res-no ins-code))) | |||
(if (not name) | |||
(add-status-bar-text "No name found") | |||
(if (string=? "" name) | |||
(add-status-bar-text "No name for this") | |||
(add-status-bar-text (string-append "Rotamer name: " name)))))))))) | |||
</pre> | </pre> | ||