Lines Matching +defs:suffix +defs:string
186 (defvar date-string)
190 "Convert string ATTRVALUE to TYPE appropriate for a face description.
191 Valid TYPEs are: string, symbol, int, stringtnil, tnil."
193 (setq ret (cond ((eq type 'string) attrvalue)
195 ((eq type 'int) (string-to-number attrvalue))
197 (cond ((string= "t" attrvalue) t)
198 ((string= "nil" attrvalue) nil)
201 (cond ((string= "t" attrvalue) t)
202 ((string= "nil" attrvalue) nil)))))
233 (setq attrvalue (match-string-no-properties regnum)))
250 (if (string-match regexp entry)
252 (setq attrvalue (match-string-no-properties regnum entry))
286 '(:eval (calendar-string-spread
351 (defvar diary-modify-entry-list-string-function nil
352 "Function applied to entry string before putting it into the entries list.
354 org.el and planner.el) to modify the string or add properties to it.
355 The function takes a string argument and must return a string.")
357 (defun add-to-diary-list (date string specifier &optional marker
371 (when (and date string)
375 (or (string= prefix "")
376 (setq string (format "[%s] %s" prefix string)))))
377 (and diary-modify-entry-list-string-function
378 (setq string (funcall diary-modify-entry-list-string-function
379 string)))
382 (list (list date string specifier
397 is t, this list includes a dummy diary entry consisting of the empty string
430 (date-string (calendar-date-string date))
483 (month (concat "\\*\\|0*" (int-to-string month)))
484 (day (concat "\\*\\|0*" (int-to-string day)))
487 "\\*\\|0*" (int-to-string year)
568 are obeyed. You can change the `#include' to some other string by
569 changing the variable `diary-include-string'."
574 (regexp-quote diary-include-string)
578 (match-string-no-properties 1)))
603 (hol-string (format "%s%s%s"
604 date-string
607 (msg (format "No diary entries for %s" hol-string))
611 (calendar-set-mode-line (format "Diary for %s" hol-string))
614 (string-equal (car (cdr (car diary-entries-list))) "")))
619 (calendar-set-mode-line date-string)
626 (message "No diary entries for %s" date-string))
678 (string-equal (car (cdr (car diary-entries-list))) "")))
682 (concat date-string (if holiday-list ":" ""))
694 (message "No diary entries for %s" date-string)))
730 (let* ((date-string (calendar-date-string date))
740 (insert (if (= (point) (point-min)) "" ?\n) date-string)
749 (concat "\n" (make-string l ? ))))
750 (insert ?\n (make-string (+ l longest) ?=) ?\n)))))
799 (calendar-set-mode-line date-string)
836 (string-match "^-*\\([^-].*[^-]\\)-*$" mode-line-format)
837 (match-string 1 mode-line-format)))
854 (make-string (length heading) ?=) "\n")
878 :type 'string
913 (if (string-equal diary-mail-addr "")
919 (calendar-date-string (calendar-current-date))))
922 (with-current-buffer fancy-diary-buffer (buffer-string))
926 (defun diary-name-pattern (string-array &optional abbrev-array paren)
933 (regexp-opt (append string-array
936 string-array))
939 string-array
1012 (match-string-no-properties d-name-pos)))
1015 (match-string-no-properties m-name-pos)))
1016 (mm (string-to-number
1018 (match-string-no-properties m-pos)
1020 (dd (string-to-number
1022 (match-string-no-properties d-pos)
1025 (match-string-no-properties y-pos)))
1033 (y (+ (string-to-number y-str)
1041 (string-to-number y-str)))))
1049 (cdr (assoc-string
1056 (if (string-equal mm-name "*") 0
1057 (cdr (assoc-string
1117 (while (string-match "[\^M]" entry)
1139 are obeyed. You can change the `#include' to some other string by
1140 changing the variable `diary-include-string'."
1145 (regexp-quote diary-include-string)
1149 (match-string-no-properties 1)))
1222 (string-lessp ts1 ts2)))))))
1235 "Return time at the beginning of the string S as a military-style integer.
1243 (cond ((string-match ; Military time
1246 (+ (* 100 (string-to-number (match-string 1 s)))
1247 (string-to-number (match-string 2 s))))
1248 ((string-match ; Hour only XXam or XXpm
1250 (+ (* 100 (% (string-to-number (match-string 1 s)) 12))
1253 ((string-match ; Hour and minute XX:XXam or XX:XXpm
1255 (+ (* 100 (% (string-to-number (match-string 1 s)) 12))
1256 (string-to-number (match-string 2 s))
1276 string, that string will be the diary entry in the fancy diary display.
1296 MARK specifies a face or single-character string to use
1308 string to use when highlighting the day in the calendar.
1315 or single-character string to use when highlighting the
1328 string to use when highlighting the day in the calendar.
1338 parameter MARK specifies a face or single-character string
1460 (while (string-match "[\^M]" entry)
1489 (eval (car (read-from-string sexp))))
1491 (eval (car (read-from-string sexp)))
1511 An optional parameter MARK specifies a face or single-character string to
1541 An optional parameter MARK specifies a face or single-character string to
1563 Optional MARK specifies a face or single-character string to use when
1631 An optional parameter MARK specifies a face or single-character string to
1645 (cons mark (format entry diff (diary-ordinal-suffix diff))))))
1655 An optional parameter MARK specifies a face or single-character string to
1668 (cons mark (format entry cycle (diary-ordinal-suffix cycle))))))
1670 (defun diary-ordinal-suffix (n)
1671 "Ordinal suffix for N. (That is, `st', `nd', `rd', or `th', as appropriate.)"
1679 (calendar-day-of-year-string date))
1684 (concat (int-to-string (/ days 7)) (if (= 7 days) " week" " weeks"))
1685 (concat (int-to-string days) (if (= 1 days) " day" " days")))
1693 month, day, year), and `diary-entry' (a string)."
1742 (defun make-diary-entry (string &optional nonmarking file)
1762 string " "))
1768 (make-diary-entry (calendar-date-string (calendar-cursor-to-date t) t t)
1786 (make-diary-entry (calendar-date-string (calendar-cursor-to-date t) t)
1797 (make-diary-entry (calendar-date-string (calendar-cursor-to-date t) t)
1811 (calendar-date-string (calendar-cursor-to-date t) nil t))
1835 (calendar-date-string start nil t)
1836 (calendar-date-string end nil t))
1852 (calendar-date-string (calendar-cursor-to-date t) nil t))
2026 (concat "^" (regexp-quote diary-include-string) ".*$")
2087 template. If the template is a string, it should be suitable for
2095 body text as argument, and may use `match-string' etc. to make a
2099 (string :tag "Template for entry")
2111 Assumes `body' is bound to a string comprising the body of the message and
2112 `subject' is bound to a string comprising its subject.
2116 (let (format-string)
2118 (when (eq 0 (string-match (car (nth i diary-outlook-formats))
2121 (setq format-string (cdr (nth i diary-outlook-formats)))
2126 ;; string. I think this is an Emacs bug.
2128 (format (replace-match (if (functionp format-string)
2129 (funcall format-string body)
2130 format-string)
2131 t nil (match-string 0 body))
2176 (buffer-string)))))