(defun info-toc-to-org () "Info buferining tarkib jadvalini org-mode daraxtiga aylantiring. " (interaktiv) (let ((tree nil)) ;; TOC boshlanishiga o'tish. (goto-char (point-min)) ;; sarlavha va bo'lim sarlavhalarini o'tkazib yuboring. (re-search-forward "^Table of Contents$") (re-search-forward "^* ") ;; Daraxtni tahlil qiling. (while (re-search-forward "^\\(*+\\) \\(\\) nil) t) (let ((level (length (match-string 1))) (text (match-string 2))) ;; Joriy daraxtni daraxtga qo'shing. (setqapp (appendlist
spam fails_task lang_mismatch pii not_appropriate hate_speech sexual_content quality toxicity humor helpfulness creativity violence