diff --git a/inkplate-display b/inkplate-display index 6ad7f03..8105d3c 100755 --- a/inkplate-display +++ b/inkplate-display @@ -20,6 +20,56 @@ (srfi srfi-19) (srfi srfi-1)) +(define tips + '("Always consider the context." + "Use rules for novices, intuition for experts." + "Know what you don't know." + "Learn by watching and imitating." + "Keep practicing in order to remain expert." + "Avoid formal methods if you need creativity, intuition, or inventiveness." + "Learn the skill of learning." + "Capture all ideas to get more of them." + "Learn by synthesis as well as by analysis." + "Strive for good design; it really works better." + "Rewire your brain with belief and constant practice." + "Add sensory experience to engage more of your brain." + "Lead with R-mode; follow with L-mode." + "Use metaphor as the meeting place between L-mode and R-mode." + "Cultivate humor to build stronger metaphors." + "Step away from the keyboard to solve hard problems." + "Change your viewpoint to solve the problem." + "Watch the outliers: \"rarely\" doesn't mean \"never.\"" + "Be comfortable with uncertainty." + "Trust ink over memory; every mental read is a write." + "Hedge your bets with diversity." + "Allow for different bugs in different people." + "Act like you've evolved: breathe, don't hiss." + "Trust intuition, but verify." + "Create SMART objectives to reach your goals." + "Plan your investment in learning deliberately." + "Discover how you learn best." + "Form study groups to learn and teach." + "Read deliberately." + "Take notes with both R-mode and L-mode." + "Write on: documenting is more important than documentation." + "See it. Do it. Teach it." + "Play more in order to learn more." + "Learn from similarities; unlearn from differences." + "Explore, invent, and apply in your environment--safely." + "See without judging and then act." + "Give yourself permission to fail; it’s the path to success." + "Groove your mind for success." + "Learn to pay attention." + "Make thinking time." + "Use a wiki to manage information and knowledge." + "Establish rules of engagement to manage interruptions." + "Send less email, and you’ll receive less email." + "Choose your own tempo for an email conversation." + "Mask interrupts to maintain focus." + "Use multiple monitors to avoid context switching." + "Optimize your personal workflow to maximize context." + "Grab the wheel. You can’t steer on autopilot.")) + (define (my-wrap text max-length) (reverse (map string-trim @@ -117,7 +167,9 @@ (inkplate:set-text-size my-dev 3) (inkplate:set-text-wrap my-dev #f) - (let loop ((lines (my-wrap "Give yourself permission to fail; it's the path to success" 29)) + (let loop ((lines (my-wrap (list-ref tips (random (length tips) + (random-state-from-platform))) + 29)) (x 265) (y 15)) (inkplate:set-cursor my-dev x y)