addCodeTextureToLib :: TextRenderer -> TextureLibrary -> TextureLibrary
addCodeTextureToLib tr tlib =
  let (Savebuffer _ text _ _ _) = outbuffer tr
   in addTexture tlib "code" text
addCodeTextureToLib :: TextRenderer -> TextureLibrary -> TextureLibrary
addCodeTextureToLib tr tlib =
  let (Savebuffer _ text _ _ _) = outbuffer tr
   in addTexture tlib "code" text
addCodeTextureToLib tr tlib =
  let (Savebuffer _ text _ _ _) = outbuffer tr
   in addTexture tlib "code" text