A terminal-only Bluesky / AT Protocol client written in Fortran, with a asm/Rust native firehose decoder for the relay-raw stream. DM slide support. Dither image composer. Yes, that Fortran
www.patreon.com/FormerLab
rust
atproto
fun
fortran
assembly
Bump version string to v1.3
+2
-2
+2
-2
src/ui/tui.f90
+2
-2
src/ui/tui.f90
···
57
57
58
58
subroutine draw_header(state)
59
59
type(app_state), intent(in) :: state
60
-
write(*,'(a)') 'Fortransky v1.1 - TUI only'
60
+
write(*,'(a)') 'Fortransky v1.3 - TUI only'
61
61
write(*,'(a)') repeat('=', 28)
62
62
write(*,'(a)') 'View : ' // trim(state%view_title)
63
63
if (len_trim(state%session%identifier) > 0) write(*,'(a)') 'User : ' // trim(state%session%identifier)
···
184
184
character(len=*), intent(in) :: message
185
185
integer :: i
186
186
call clear_screen()
187
-
write(*,'(a)') 'Fortransky v1.1 - stream tail'
187
+
write(*,'(a)') 'Fortransky v1.3 - stream tail'
188
188
write(*,'(a)') repeat('=', 28)
189
189
write(*,'(a)') trim(message)
190
190
write(*,'(a)') ''