Lines Matching +defs:rate +defs:string
218 (defcustom strokes-modeline-string " Strokes"
220 :type 'string
442 See also `strokes-global-set-stroke-string'."
451 (defun strokes-global-set-stroke-string (stroke string)
454 is a string to be inserted by the stroke. STROKE is a list of
464 (read-string "String to map stroke to: ")))
465 (strokes-define-stroke strokes-global-map stroke string))
651 (defun strokes-rate-stroke (stroke1 stroke2)
709 (let ((score (strokes-rate-stroke stroke (caar stroke-map)))
713 (let ((newscore (strokes-rate-stroke stroke (caar map))))
1126 (format-time-string "%B %e, %Y" nil)))
1209 (put-image (create-image (buffer-string) 'xpm t :ascent 100)
1251 ;; ;; (define-key map "D" 'strokes-doc-string)
1305 ;; [string :data "[Stroke]"]))
1345 (prin1-to-string (cdr def)))))
1355 (buffer-string))
1376 (string-lessp command-name-1 command-name-2)))
1399 nil strokes-modeline-string strokes-mode-map
1528 (defsubst strokes-xpm-encode-length-as-string (length)
1536 (defun strokes-xpm-to-compressed-string (&optional xpm-buffer)
1537 "Convert XPM in XPM-BUFFER to compressed string representing the stroke.
1547 (let ((compressed-string "+/") ; initialize the output
1564 (setq compressed-string
1565 (concat compressed-string
1571 (strokes-xpm-encode-length-as-string 0))
1572 (strokes-xpm-encode-length-as-string 61))
1592 (setq compressed-string
1593 (concat compressed-string
1599 (strokes-xpm-encode-length-as-string 0))
1600 (strokes-xpm-encode-length-as-string count))
1607 (concat compressed-string
1612 (strokes-xpm-encode-length-as-string 0))
1613 (strokes-xpm-encode-length-as-string count)))
1633 (let (ext string image)
1637 ;; `strokes-xpm-to-compress-string' to deal with the newline,
1642 (setq string (match-string 1))
1646 (strokes-xpm-for-compressed-string string " *strokes-xpm*")
1648 (buffer-string))
1654 'data string))))
1700 (list 'type 'stroke-string
1706 (defun strokes-xpm-for-compressed-string (compressed-string &optional bufname)
1713 (insert compressed-string)
1743 (insert (strokes-xpm-to-compressed-string " *strokes-xpm*"))