0 - God 1 - Being 2 - Places 3 - Powers 4 - Injunctions 5 - Subjects 6 - Media
classes ::: attribute") ;; gets objects names and makes class/info bar , wordlist ,
children ::: wordlist (defs)
branches :::
bookmarks : Instances - Definitions - Quotes - Chapters - Wordnet - Webgen
object:wordlist (defs)
object:WLD
--- TYPES OF DEFINITIONS
System stuff
sav system result to racket var?
--- UNSORTED LIST
(define (a ARG1) '(system "grep object:ARG1 /home/j/Documents/Code/KEYS/wordlist"))
(define (ADDMORE obj)
(define (app text)
(define BARALIGN (cons "left" "bottom"))
(define barbar 0)
(define (BARBAR TEXT)
(define BAR (overlay/align/offset "left" "bottom" new INPUTBAR 0 0 inputFRAME))
(define BG 'black)
(define (BREAK line) (set! GTEXT (string-split line "
")))
(define (br x) (set! x (string-replace x "
" "\n")))
(define CARET 'blue)
(define caret (line 0 13 (pen CARET 3 "solid" "round" "bevel")))
(define caretlocx (- (sub1 (- (/ WIDTH 2) (image-width (MAKETEXT "A")))) caretxoffset))
(define caretlocy 3)
(define caretxoffset 0)
(define (cd foldername) (current-directory foldername))
(define cin close-input-port)
(define classes instancebarFRAMEE THER)
(define (CLEAN line mess) (string-replace line mess ""))
(define clear (and (set! TEXT "")(set! FULLOFTEXT 0)(set! WORLD ETHER)))
(define (click ws x y event) ; convert mouse to grid?
(define CLIPBOARD "")
(define clip '(system "xclip -o"))
(define cl '(set! mainFRAME mainFRAMEE THER))
(define (cMAKETEXT x COLOR) (text x TEXTSIZE COLOR))
(define codeprocess 0)
(define configloc "/home/j/Documents/Code/KEYS/wordlist-config")
(define CONFIG (port->string (open-input-file configloc)))
;(define confile (port->string (open-input-file "reader.conf")))
(define container "")
(define COUNT 1)
(define cout close-output-port)
;(define (CROP mainFRAME) (set! mainFRAME (overlay/align/offset "left" "top" (crop 0 0 WIDTH (image-height mainFRAMEE THER) mainFRAME) 0 0 mainFRAMEE THER)))
(define (cTEXT x color) (text x TEXTSIZE color))
(define curOUT "")
(define CURSORC (sqrt (* 2 CURSORR CURSORR)))
(define CURSORR (/ CURSORSIZE 2))
(define CURSORSIZE 32)
(define (cwidth n) (image-width (MAKETEXT (substring INPUT n (add1 n)))))
(define diff 0)
(define (draw-world w) MANIFEST)
(define (echoinfo txt Q)
(define (echoinstance txt Q)
(define (echo txt) (set! mainFRAME (overlay/align/offset "left" "top" (crop 0 0 WIDTH (image-height mainFRAMEE THER) (MAKETEXT txt)) 0 0 mainFRAMEE THER)))
(define (eh string)
(define (END line) (string-replace line (regexp ".*:") ""))
(define entries-counter 0)
(define (er1 text) (with-handlers ([exn:fail:contract?
(define (er text) (pTEXT (eval (read (open-input-string text)) ns)))
(define ESI empty-image) ;;EMPTYSTACKEDIMG)
(define etest '(echo GREPPED))
(define ETHER (empty-scene WIDTH HEIGHT BG))
(define EVENT "")
(define event "")
(define (e x) (echo x)) ;; ECHO shortcut
(define (extract s e TEXT) (and
(define FG 'yellow)
(define FINAL_BAR_TOP (beside (cTEXT (portion MODES 0 MODE_INDEX) "gray") (cTEXT MODE BG) (MAKETEXT " ") (cTEXT (portion MODES (add1 MODE_INDEX) (length MODES)) "gray")))
(define (find arg) (regexp-match-positions arg WORDLIST))
(define (first list) (list-ref list 0))
(define FRAMEHEIGHT (- HEIGHT (* (image-height inputFRAMEE THER) 4)))
(define (FRAME img) (set! IMAGE (overlay (rectangle (image-width img) (image-height img) "outline" (pen "Corn Flower Blue" 1 "solid" "round" "bevel")) img)))
(define (FRONT line) (string-replace line (regexp ":.*") ""))
(define FULLOFTEXT 0)
(define (GETOBJ line) ;; GET OBJECT FROM QUERY >> PRODUCES GTEXT THEN GREPPED
(define (GETOBJS text) ;; "subject:Game Dev"
(define (GETSIZE img) (cons (image-width img) (image-height img)))
(define GREPPED STRING)
(define GTEXT "")
(define (G x)
(define (g x) (and ;;; targets TEXT (str)
(define (handle-pad-events x k)
(define HEIGHT (* TILE TILECOUNT))
(define home (find-system-path 'home-dir))
(define iC (circle 4 "solid" "black"))
(define IMAGE empty-scene)
(define imgLAYER invCIRCLE)
(define infobar "")
(define infobarFRAMEE THER instancebarFRAMEE THER)
(define infobarFRAME instancebarFRAMEE THER)
(define (info x) ;;; (info "class:attribute") ;; gets objects names and makes class/info bar
(define INPUT "")
(define INPUTBAR (rectangle WIDTH (image-height (MAKETEXT "textheight")) "outline" BG))
(define inputFRAME? 1)
(define inputFRAMEE THER (empty-scene WIDTH (image-height (MAKETEXT "textheight")) BG))
(define inputFRAME inputFRAMEE THER)
(define INPUT_IMG_LEN 0)
(define INPUT_LEN 0)
(define INPUT_LOC 0)
(define instancebarFRAMEE THER (empty-scene (image-width (MAKETEXT "I WANT IT TO BE THIS WIDE")) FRAMEHEIGHT BG))
(define instancebarFRAME instancebarFRAMEE THER)
(define instancebartext "")
(define instances instancebarFRAMEE THER) ;; for repl
(define instancetitle "")
(define invCIRCLE (circle 0 "outline" "white"))
(define (isdir? path) (if (directory-exists? path) path ""))
(define (jay x) (regexp-match (regexp ".*joshua.*") x))
(define jlist '(system "grep --ignore-case 'ARG1' /home/j/Documents/Code/KEYS/wordlist"))
(define KEYCOMBO "")
(define (key-processor w ke)
(define KEYSTACK "")
(define lastFRAME mainFRAMEE THER)
(define (LAST item) (cond
(define lastlastFRAME mainFRAMEE THER)
(define lastlastlastFRAME mainFRAMEE THER)
(define (last list) (list-ref list (- (length list) 1)))
;(define (lfind JLIST) (set! JLIST (list-ref (ormap RX JLIST) 0))) ;; find firstance instance of RX?
(define LOG_INDEX 0)
(define log (make-hash))
(define LOGPOS 0)
(define ls directory-list)
(define lsdir (remove-duplicates (map isdir? (ls))))
(define mainFRAME? 1)
(define mainFRAMEE THER (empty-scene WIDTH mainFRAMEE THERHEIGHT BG))
(define mainFRAMEE THERHEIGHT (- HEIGHT (* 4 SIZEMOD TILE)))
(define mainFRAME mainFRAMEE THER)
(define (MAINMAIN INPUT)
(define (main n)
(define (main n)
; (define (MAKETEXT x) (text x TEXTSIZE FG))
(define (MAKETEXT x) (text x TEXTSIZE FG))
(define MANIFEST ETHER)
(define MIDHEIGHT (/ HEIGHT 2))
(define MIDWIDTH (/ WIDTH 2))
(define MODE_INDEX 0)
(define MODE (list-ref MODES MODE_INDEX))
(define MODES (list "main" "bash" "repl" "special" "edit-self" "wordlist"))
;(define MODES (list "test" "keys" "text_editor" "repl" "subprocess" "amain.rkt" "todo" "config" "reader" "draw" "codebank" "log"))
(define mouseMOVE? 1)
(define MOUSEOVER "")
(define MOUSEX 0)
(define MOUSEY 0)
(define (mRX STR) (regexp (string-append ".*" STR ".*")))
(define n 0) clear
(define-namespace-anchor anc) (define ns (namespace-anchor->namespace anc))
(define (newapp text fn)
;; (define (newfind arg) (and (print arg) (system "grep object:arg /home/j/Documents/Code/KEYS/wordlist" )))
(define (newfind arg) (and (print arg) (system "grep object:arg /home/j/Documents/Code/KEYS/wordlist" )))
(define new INPUTBAR INPUTBAR)
(define (newreplace ARG2)
(define (newrep text fn)
(define (newTEXT x) (text (~r x) TEXTSIZE "olive"))
(define (NEWTEXT x) (text x TEXTSIZE FG))
(define newWORLD WORLD)
(define (ng x TEXT) ;; see also G (around line 125)
(define NL '(set! TEXT (string-append TEXT "\n")))
(define (np linenum) (ss linenum (+ linenum 110)))
(define (nreplace x)(string-replace (list-ref jlist 1) "ARG1" x))
(define n start)
(define (ntest TEXT) (set! TEXT (list-ref (ormap RX (string-split TEXT "\n")) 0))) ;; apply regex to each line
(define objectLABEL 'red)
(define objectlistFRAMEE THER (empty-scene (image-width (MAKETEXT "I WANT IT TO BE THIS WIDE")) (/ FRAMEHEIGHT 2) BG))
(define objectlistFRAME objectlistFRAMEE THER)
(define (objectlist Q)
(define objectlisttext "")
(define objects instancebarFRAMEE THER)
(define OFFSET (/ TILE 2))
(define OUTLINE 'gray)
(define PAGE 0)
(define PAGELEN 45)
(define PAGEMAX (ceiling (/ TEXTLEN PAGELEN)))
;(define (p IMG img) (set! imgLAYER (overlay img ETHER)))
(define (p IMG img) (set! imgLAYER (place-image img MIDWIDTH MIDHEIGHT imgLAYER)))
(define PMOUSEX 0)
(define PMOUSEY 0)
(define (pop FUNC) (eval FUNC ns))
(define (portion list start pos)
(define (PP string)
(define (pp x c) (text x TEXTSIZE c))
(define pre "")
(define (printhere lfile)
(define (p stuff) (display stuff) (display "~\n"))
(define (pTEXT text) (set! TEXT (string-append TEXT (~a text) "\n")))
(define (pushtext FN) (set! TEXT (with-output-to-string (lambda () FN))))
(define pwd current-directory)
(define Q ".")
(define (query2 ARG2)
(define (query ARG2)
;; (define (query ARG2) (system (string-replace "grep -i 'object:ARG1' /home/j/Documents/Code/KEYS/wordlist | sed 's/$/
* *
* * *
* *
/g'" "ARG1" ARG2)))
(define (remove n) (and (set! TEXT (substring TEXT 0 (cdr (last (take (regexp-match-positions* "\n" TEXT) (sub1 (length (regexp-match-positions* "\n" TEXT)))))))))(display TEXT))
(define (rep text)
;(define (r n) (and (newrep (substring TEXT 0 (cdr (last (take (regexp-match-positions* "\n" TEXT) (- (length (regexp-match-positions* "\n" TEXT)) n))))) "windowed-test")(display TEXT)))
(define (r n) (newrep (substring TEXT 0 (cdr (last (take (regexp-match-positions* "\n" TEXT) (- (length (regexp-match-positions* "\n" TEXT)) n))))) (string-append "windowed-" MODE)))
;(define (r n) (set! TEXT (substring TEXT 0 (cdr (last (take (regexp-match-positions* "\n" TEXT) (- (length (regexp-match-positions* "\n" TEXT)) n)))))))
(define (RX LINE) (regexp-match (regexp (string-append ".*" Q ".*")) LINE)) ;; make and apply REGEXP
;(define (RXL x) (set! RXQ (regexp-match (regexp (NG Q)) x))) ;; make REGEXP com
(define RXQ "")
(define (s2l string) (regexp-split "\n" (substring string 0 (string-length string)))) ;string2list
(define secondFRAME (above objectlistFRAME seealsolistFRAME))
(define (second list) (list-ref list 1))
(define see_also instancebarFRAMEE THER)
(define seealsolistFRAMEE THER (empty-scene (image-width (MAKETEXT "I WANT IT TO BE THIS WIDE")) (/ FRAMEHEIGHT 2) BG))
(define seealsolistFRAME seealsolistFRAMEE THER)
(define (seealsolist Q)
(define seealsolisttext "")
;(define SETINPUTBAR '(set! new INPUTBAR (overlay/align "left" "bottom" (MAKETEXT INPUT) INPUTBAR)))
(define SETINPUTBAR '(set! new INPUTBAR (overlay/align "left" "bottom" (NEWTEXT INPUT) INPUTBAR)))
;(define sfile (port->string (open-input-file "reader-log")))
(define showhowmany 3)
(define (show image) (set! mainFRAME image))
(define SIZEMOD 1)
(define (sNUMBER? schar) (and (>= (bytes-ref (string->bytes/utf-8 schar) 0) 49) (<= (bytes-ref (string->bytes/utf-8 schar) 0) 59) ))
;(define sortbynum 0)
(define sortbynum 0)
;(define (sortby num text)
;(define sortbyoptions '("newest" "alpha"))
(define sortbyoptions '("newest" "alpha"))
(define (sortby option text)
(define sortedtext "")
(define (ss s f) (substring WORDLIST s f)) ;substring
(define (SSTATS stat) (text (~a stat) 20 "blue"))
(define (STATS stat) (text (~r stat) 20 "blue"))
(define str2 "")
; (define STRING "welcome to the program\nthis may become todo") moved up for clip
(define STRING "welcome to the program\nthis may become todo") ;; not immutable.
(define (subprocessor pair)
(define temp "")
(define TEMPVAR (with-output-to-string (lambda () (system (string-append "grep -ne '" GREPPED "<' /home/j/Documents/Code/KEYS/wordlist | cut -f1 -d: | head -n 1 | perl -pe 'chomp'")))))
;(define tempWORLD ETHER)
(define teststr "Savitri ::: The Symbol Dawn")
(define TEXT "")
(define TEXT4DRAW "")
(define TEXTLEN (length (string-split TEXT "\n")))
;(define TEXT "") moved up for clipboard
(define TEXTSIZE 15)
(define TEXT (text (~r COUNT) TEXTSIZE "olive"))
(define thisfile (port->string (open-input-file "wordlist-terminal.rkt")))
(define TILE 16) ;; SIZE? (size is font size)
(define TILECOUNT 64)
(define TILEWIDTHCOUNT 118)
(define TIME 0)
(define (timer w)
;(define TL (string-split TEXT "\n"))
(define (TONUM line) (string->number line))
(define (trim-height s)
(define (trimspace txt) (string-trim txt (regexp "^ +")))
;(define (trim-split s) (string-split s
(define (trim-STR s) (substring s 0 (min trim-width (string-length s)))) ;;; WIDTH TRIM
(define trim-width 220)
(define VERTOFFSET 0)
(define WIDTH (* TILE TILEWIDTHCOUNT))
(define wordlist "/home/j/Documents/Code/KEYS/wordlist")
(define WORDLIST (port->lines (open-input-file wordlist)))
(define WORDSTRING (port->string (open-input-file wordlist)))
(define WORLD mainFRAMEE THER)
(define WRAPPED '())
(define (WRAP text) (wrap-line text 220))
[(eq? MODE "log") (define logfile
class:wordlist
see also :::
questions, comments , suggestions/feedback, take-down requests, contribute, etc
contact me @ integralyogin@gmail.com or
join the integral discord server (chatrooms)
if the page you visited was empty, it may be noted and I will try to fill it out. cheers
now begins generated list of local instances , definitions , quotes , instances in chapters , wordnet info if available and instances among weblinks
OBJECT INSTANCES [0] - TOPICS - AUTHORS - BOOKS - CHAPTERS - CLASSES - SEE ALSO - SIMILAR TITLES
TOPICS
SEE ALSO
AUTH
BOOKS
IN CHAPTERS TITLE
IN CHAPTERS CLASSNAME
IN CHAPTERS TEXT
PRIMARY CLASS
wordlist
SIMILAR TITLES
wordlist (defs)
DEFINITIONS
TERMS STARTING WITH
TERMS ANYWHERE
QUOTES [0 / 0 - 0 / 0]
IN CHAPTERS [0/0]
WORDNET
IN WEBGEN [10000/0]
convenience portal: recent: Section Maps - index table - favorites
Savitri -- Savitri extended toc
Savitri Section Map -- 1 2 3 4 5 6 7 8 9 10 11 12
authors -- Crowley - Peterson - Borges - Wilber - Teresa - Aurobindo - Ramakrishna - Maharshi - Mother
places -- Garden - Inf. Art Gallery - Inf. Building - Inf. Library - Labyrinth - Library - School - Temple - Tower - Tower of MEM
powers -- Aspiration - Beauty - Concentration - Effort - Faith - Force - Grace - inspiration - Presence - Purity - Sincerity - surrender
difficulties -- cowardice - depres. - distract. - distress - dryness - evil - fear - forget - habits - impulse - incapacity - irritation - lost - mistakes - obscur. - problem - resist - sadness - self-deception - shame - sin - suffering
practices -- Lucid Dreaming - meditation - project - programming - Prayer - read Savitri - study
subjects -- CS - Cybernetics - Game Dev - Integral Theory - Integral Yoga - Kabbalah - Language - Philosophy - Poetry - Zen
6.01 books -- KC - ABA - Null - Savitri - SA O TAOC - SICP - The Gospel of SRK - TIC - The Library of Babel - TLD - TSOY - TTYODAS - TSZ - WOTM II
8 unsorted / add here -- Always - Everyday - Verbs
change css options:
change font "color":
black
red
blue
Cyan1
AliceBlue
green
DarkOliveGreen2
gray
yellow
white
change "background-color":
white
AntiqueWhite1
black
DarkSlateGray
darkgray
red
blue
AliceBlue
green
change "font-family":
Alice
Arial
cursive
Helvetica
Times New Roman
Courier New
sans-serif
change "padding":
20%
0%
5%
10%
15%
25%
30%
35%
40%
table special
change "table font size":
15px
5px
7px
10px
12px
last updated: 2022-05-07 09:17:05
325254 site hits