Lines Matching +defs:dir +defs:indent
840 (defcustom woman-default-indent 5
841 "*Default prevailing indent set by -man macros -- default is 5.
1038 (defvar woman-left-margin woman-default-indent
1040 (defvar woman-prevailing-indent woman-default-indent
1041 "Current prevailing indent.")
1053 (defvar woman-RS-prevailing-indent nil
1054 "Prevailing indent stack for nested use of `.RS/.RE'.")
1188 (dolist (dir woman-manpath (nreverse lst))
1189 (when (consp dir)
1193 (setq dir (and (member (car dir) path) (cdr dir))))
1194 (when dir (add-to-list 'lst (substitute-in-file-name dir)))))
1326 (defun woman-file-readable-p (dir)
1328 (or (file-readable-p dir)
1329 (WoMan-warn "Ignoring unreadable `manpath' directory tree `%s'!" dir)))
1331 (defun woman-directory-files (head dir)
1339 (file-name-nondirectory dir))
1340 (WoMan-warn "No directories match `woman-path' entry `%s'!" dir)))
1342 (defun woman-file-accessible-directory-p (dir)
1344 (or (file-accessible-directory-p dir)
1345 (WoMan-warn "Ignoring inaccessible `man-page' directory `%s'!" dir)))
1355 (let (dir head dirs path)
1357 (setq dir (car woman-manpath)
1359 (when (consp dir)
1362 (setq dir (and (member (car dir) path)
1363 (cdr dir))))
1364 (if (and dir (woman-file-readable-p dir))
1367 ;; If does not actually matter here if dir ends with `/'.
1369 (setq dir (woman-canonicalize-dir dir)
1371 dir t woman-manpath-man-regexp)))))
1373 (setq dir (car woman-path)
1375 (if (or (null dir)
1376 (null (setq dir (woman-canonicalize-dir dir)
1377 head (file-name-directory dir)))
1380 (if dir
1381 (nconc dirs (woman-directory-files head dir))
1387 (defun woman-canonicalize-dir (dir)
1390 (setq dir (expand-file-name (substitute-in-file-name dir)))
1393 (if (string= (substring dir -1) "/")
1394 (setq dir (substring dir 0 -1)))
1397 (setq dir (concat (file-name-directory dir)
1398 (file-name-nondirectory dir))))
1399 dir)
1401 (defsubst woman-not-member (dir path)
1404 (not (member dir path)))
1413 (let (dir files (path-index 0)) ; indexing starts at zero
1415 (setq dir (pop path))
1416 (if (woman-not-member dir path) ; use each directory only once!
1417 (push (woman-topic-all-completions-1 dir path-index)
1426 (defun woman-topic-all-completions-1 (dir path-index)
1439 (let (newlst (lst (directory-files dir nil woman-file-regexp t))
1502 dir files)
1508 (setq dir (nth (car (car path-info)) path)
1514 (list (concat dir "/" filename))
1515 (directory-files dir t topic-regexp)
1519 (setq dir (car path)
1521 (if (woman-not-member dir path) ; use each directory only once!
1523 (directory-files dir t topic-regexp))))
2254 (setq woman-left-margin woman-default-indent
2255 woman-prevailing-indent woman-default-indent
2259 woman-RS-prevailing-indent nil
2283 (setq woman-fill-column (- (window-width) woman-default-indent)))
3493 (".i" left-margin) ; current indent
3818 \(Should set prevailing indent and tabs to 5.)"
3843 (setq woman-left-margin woman-default-indent)
3844 (setq woman-prevailing-indent woman-default-indent)
3849 Format paragraphs upto TO. Set prevailing indent to 5."
3862 (setq woman-left-margin woman-default-indent
3864 (setq woman-prevailing-indent woman-default-indent)
3868 ".SS -- Sub-sub-head. Like .SH but indent heading 3 spaces.
3877 ".LP,.PP -- Begin paragraph. Set prevailing indent to 5.
3881 (setq woman-prevailing-indent woman-default-indent)
4141 (defvar woman-temp-indent nil)
4146 If `woman-nofill' is non-nil then indent without filling or adjusting."
4165 (cond (woman-temp-indent
4166 (indent-to woman-temp-indent)
4168 (indent-rigidly (point) to left-margin)
4181 (indent-to (or woman-temp-indent left-margin))
4216 (if (and woman-temp-indent (< woman-temp-indent left-margin))
4217 (let ((left-margin woman-temp-indent))
4230 (setq woman-temp-indent nil)
4240 ".TP i -- Set prevailing indent to i. Format paragraphs upto TO.
4243 (let ((i (woman2-get-prevailing-indent)))
4251 ;; Like LP without resetting prevailing indent
4253 woman-prevailing-indent))
4255 (let ((i (woman2-get-prevailing-indent 'leave-eol)))
4289 Format paragraphs upto TO. Set prevailing indent to I."
4314 ;; (indent-to woman-left-margin)
4346 ".HP i -- Set prevailing indent to i. Format paragraphs upto TO.
4347 Begin paragraph with hanging indent."
4348 (let ((i (woman2-get-prevailing-indent)))
4350 (setq woman-temp-indent woman-left-margin)
4354 (defun woman2-get-prevailing-indent (&optional leave-eol)
4355 "Set prevailing indent to integer argument at point, and return it.
4356 If no argument then return the existing prevailing indent.
4363 ;; FIXME should this be >= 0? How else to reset to 0 indent?
4364 (if (> i 0) (setq woman-prevailing-indent i))))
4365 woman-prevailing-indent)
4379 ".RS i -- Start relative indent, move left margin in distance i.
4380 Set prevailing indent to 5 for nested indents. Format paragraphs upto TO."
4382 (woman-push woman-prevailing-indent woman-RS-prevailing-indent)
4384 (woman2-get-prevailing-indent))
4385 woman-prevailing-indent woman-default-indent)
4389 ".RE -- End of relative indent. Format paragraphs upto TO.
4390 Set prevailing indent to amount of starting .RS."
4392 (woman-pop woman-prevailing-indent woman-RS-prevailing-indent)
4430 ".in +/-N -- Set, increment or decrement the indent.
4436 ".ti +/-N -- Temporary indent. Format paragraphs upto TO."
4438 ;; Indent next output line only wrt current indent.
4439 ;; Current indent is not changed.
4440 (setq woman-temp-indent left-margin)
4441 (woman-set-arg 'woman-temp-indent)
4479 ;; Based on tab-to-tab-stop in indent.el.