Show a random tip from Pragmatic Thinking & Learning

1 files changed, 53 insertions, 1 deletions

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)