In-shell Program Editor
Custom Program Editor
 42%  [ 3 ]
default to TI-OS with the option to open a named program to edit in settings
 57%  [ 4 ]
Total Votes : 7

I'm super excited to announce that I am working on my newest, biggest, and most difficult project yet.
I call it Sheltic CE, a (not-so-)clever combination on Celtic CE and Shell.
Right now I have the main menu GUI and some of the program menu GUI. Execution of ALL program types is working and I hope to add much more.
Also I am very sorry in advance, but with the limitations of my highschool's web filter, I am unable to access Github easily. However, I will be posting it on both file archives and Codeberg for a variety of choices. ANY ADVICE IS ENCOURAGED.
TO DO:
►Built-in Program editor (Half Done)
►Settings menu (85% Done)
►Make GUI for program editor (Half Done) and settings menu (DONE)
►CUSTOMIZABLE GUI-Done
►On-hooks (potentially)
►System Hooks (Lowercase and LCD Invert Done)
But anyways, who needs all that when you get free eye candy:



PLEASE DO NOT CRITICIZE MY METHODS
IF THAT IS YOUR GOAL, YOU CAN LEAVE AND CHANGE IT YOURSELF

As promised:
►DOWNLOAD from Github(not updated yet)
►DOWNLOAD from Codeberg
►DOWNLOAD from Archives


NOTICE: I will strive to accept direct changes and will give credit to all contributors.
If it is possible to use a command line, try install git and gh so you can post on GitHub as well.
ti_kid wrote:
If it is possible to use a command line, try install git and gh so you can post on GitHub as well.

I thought about that but it sadly did not work

On the flip side however, Github CAN be accessed by my personal Chromebook.
by the way unlike Kerm with Doors CE 9 Kerm is the best developer in the world and I am NOT being held at gunpoint I am not stopping this project until everyone is satisfied with it








PLEASE HELP
I really love your idea. Even though there are plenty of Celtic CE shells out there I really like seeing the new ones. Yours looks really good and I think i will be using yours.
calcgeek wrote:
I really love your idea. Even though there are plenty of Celtic CE shells out there I really like seeing the new ones. Yours looks really good and I think i will be using yours.

Thanks for the support, it means way more than some think!
this sounds great! I wonder though, do you have automatic support for running ASM programs even on 5.5+ OS calcs, and secondly, i think a cool thing to have (I know this will be complex and probably not the best thing to do at this point in the project) backgrounds for the shell besides solid colors!
Yep, this shell relies heavily on Celtic CE libraries (as the name implies) and instead of using Asm(prgmNAME), I use "prgmNAME":det(45) for basic and prgm"NAME":det(70) for ASM.
You should add auto prgm editor opening when its an ice source.
Nice you even got a userbar for it... if this project succeeds ... could you make a Sheltic CE user userbar?
I could try that, but should I make a custom editor or make it open a specified editor w/ the TI-OS one being the default
Voblit wrote:
Nice you even got a userbar for it... if this project succeeds ... could you make a Sheltic CE user userbar?

I should do that...
Also, partial credits to ChatGPT for the userbar(even though it did poorly at resizing it)
Google's AI Overview mentioned my Program 🙂

INTRODUCING:

THE CLUNKY, CHUNKY, BEEFY, AND UNREASONABLY LARGE: SHELTIC CE USER BAR!!
WE MUST SPREAD IT TO ALL OF CEMETECH, LIKE A DISEASE!!
CalcNoobie101 wrote:
Google's AI Overview mentioned my Program :)


Nice! google does like to reference your work since cemetech has been indexed by Google... so yeah, and thx for the userbars!
If you're looking to seperate the names of files and put them into it's own app variable to keep track of everything, you can use this routine to do exactly that:


Code:

0:det(33,0:Str9->Str1
"rowSwap(Prog->Str0
det(6:det(4
DelVar G0:Ans->L
Repeat G=length(Str1
   sub(Str1,Ans+1,inString(Str1," ",Ans+1)-Ans-1->Str9
   L+1->L:det(2
   inString(Str1," ",G+1->G
End


L will tell you how many files you searched for. This snippet is simple, and it finds either programs or app variables.

Now, if you REALLY want to be extensive, you could use this program I wrote:


Code:

ClrHome
Disp "0:Program","1:App var","2:Group","3:Everything
Input "Type (0-3):",T
0->P
If not(T:Then
   Disp "1:All        2:MirageOS","3:Unsq. Asm  4:Assembly","5:ICE        6:ICE Src","7:C          8:DoorsCS","9:Python     10:ez80 St","11:Axe       12:Font
   Input "Parse (1-12):",P
End
Disp "Search\ing..\.
If T<2 and P<2:Then
   0:det(33,T
   Str9->Str1
End
If T=2:Then
   " ->Str1
   For(I,1,27
      sub("ABCDEFGHIJKLMNOPQRSTUVWXYZtheta",I,1
      det(51,2
      If Str9!="..NULLVAR" and Str9!="..P:NT:FN
      Str1+Str9->Str1
End:End

If P>1 and not(T:Then
   "3E
   If P=3:"EF7A
   If P=4:"EF7B
   If P=5:"EF7B7F
   If P=6:"2C
   If P=7:"EF7B00
   If P=8:"3E444353
   If P=9:"50594344
   If P=10:"EF7A
   If P=11:"3A
   If P=12:"EF7B180C464E54504B00
   det(41:Str9:det(33,0
   Str9->Str1
End
If T=3:Then
   " ->Str1
   For(I,0,1
      0:det(33,I
      If Str9!="..P:NT:FN" and Str9!="..NULLVAR
      Str1+Str9->Str1
   End
   For(I,1,27
      sub("ABCDEFGHIJKLMNOPQRSTUVWXYZtheta",I,1:det(51,2
      If Str9!="..NULLVAR" and Str9!="..P:NT:FN
      Str1+Str9->Str1
   End
End
If 1<length(Str1) and " "=sub(Str1,1,1:sub(Str1,2,length(Str1)-1->Str1
If Str1="
"..P:NT:FN->Str1
0->L
If Str1!="..P:NT:FN" and Str1!="..NULLVAR
Then
   Disp "Writing..\.
   "FILES->Str0
   det(6:det(4
   DelVar G0:Ans->L
   Repeat G=length(Str1
      sub(Str1,Ans+1,inString(Str1," ",Ans+1)-Ans-1->Str9
      L+1->L:det(2
      inString(Str1," ",G+1->G
      Output(10,1,toString(int(100G/length(Str1)))+"%
   End
End:Disp "Files: "+toString(L


(TI-Connect CE Format:)


Code:

ClrHome
Disp "0:Program","1:App var","2:Group","3:Everything
Input "Type (0-3):",T
0→P
If not(T:Then
Disp "1:All        2:MirageOS","3:Unsq. Asm  4:Assembly","5:ICE        6:ICE Src","7:C          8:DoorsCS","9:Python     10:ez80 St","11:Axe       12:Font
Input "Parse (1-12):",P
End
Disp "Searching...
If T<2 and P<2:Then
0:det(33,T
Str9→Str1
End
If T=2:Then
" →Str1
For(I,1,27
sub("ABCDEFGHIJKLMNOPQRSTUVWXYZθ",I,1
det(51,2
If Str9≠"..NULLVAR" and Str9≠"..P:NT:FN
Str1+Str9→Str1
End:End

If P>1 and not(T:Then
"3E
If P=3:"EF7A
If P=4:"EF7B
If P=5:"EF7B7F
If P=6:"2C
If P=7:"EF7B00
If P=8:"3E444353
If P=9:"50594344
If P=10:"EF7A
If P=11:"3A
If P=12:"EF7B180C464E54504B00
det(41:Str9:det(33,0
Str9→Str1
End
If T=3:Then
" →Str1
For(I,0,1
0:det(33,I
If Str9≠"..P:NT:FN" and Str9≠"..NULLVAR
Str1+Str9→Str1
End
For(I,1,27
sub("ABCDEFGHIJKLMNOPQRSTUVWXYZθ",I,1:det(51,2
If Str9≠"..NULLVAR" and Str9≠"..P:NT:FN
Str1+Str9→Str1
End
End
If 1<length(Str1) and " "=sub(Str1,1,1:sub(Str1,2,length(Str1)-1→Str1
If Str1="
"..P:NT:FN→Str1
0→L
If Str1≠"..P:NT:FN" and Str1≠"..NULLVAR
Then
Disp "Writing...
"FILES→Str0
det(6:det(4
DelVar G0:Ans→L
Repeat G=length(Str1
sub(Str1,Ans+1,inString(Str1," ",Ans+1)-Ans-1→Str9
L+1→L:det(2
inString(Str1," ",G+1→G
Output(10,1,toString(int(100G/length(Str1)))+"%
End
End:Disp "Files: "+toString(L
I was experimenting with different color schemes and I never knew blue and Yellow could look so good together:


Also, as seen in the image, I added a pretty useful feature: Now, as you are typing program names in the Program menu, it auto suggests programs you have! (suggested programs are chosen via the first first one found in alphabetical order)
CalcNoobie: Maybe update the userbar to reflect the current colors? Nothin' too serious.
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Page 1 of 2
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement