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]


KEYS (10k)


NEW FULL DB (2.4M)


*** WISDOM TROVE ***

*** NEWFULLDB 2.4M ***


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":
change "background-color":
change "font-family":
change "padding":
change "table font size":
last updated: 2022-05-07 09:17:05
325254 site hits