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

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

517 bytes added , 25 September 2008

no edit summary

37

edits

@@ Line 93: / Line 93: @@
 		       (add-status-bar-text "No name for this")
 		       (add-status-bar-text (string-append "Rotamer name: " name))))))))))
+(add-key-binding "Add Terminal Residue" "bar"
+		 (lambda ()
+		   (let ((active-atom (active-residue)))
+		     (if (not active-atom)
+			 (format #t "No active atom~%")
+			 (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)))
+			   (add-terminal-residue imol chain-id res-no "auto" 1))))))
 </pre>