rulinux.net - Форум - Rulinux.net - Просба потестить TeX теги еще раз. http://rulinux.net/ rulinux.net - Форум - Rulinux.net - Просба потестить TeX теги еще раз. http://rulinux.net/ http://rulinux.net/rss_icon.png Re: Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23669 https://rulinux.net/message.php?newsid=4301&page=1#23669 Wed, 09 Sep 2009 17:50:13 +0400
diff
@@ -1,17 +1,7 @@
 void
-tag(Arg *arg)
-{
-   unsigned int i;
-
-   if(!sel)
-       return;
-
-   for(i = 0; i < ntags; i++)
-       sel->tags[i] = False;
-   sel->tags[arg->i] = True;
-   settitle(sel);
-   if(!isvisible(sel))
-       arrange(NULL);
-   else
-       drawstatus();
+tag(const Arg *arg) {
+   if(sel && arg->ui & TAGMASK) {
+       sel->tags = arg->ui & TAGMASK;
+       arrange();
+   }
 }
 

]]> Re: Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23668 https://rulinux.net/message.php?newsid=4301&page=1#23668 Wed, 09 Sep 2009 17:38:05 +0400
lisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(declaim (inline update-crc8-ibutton))
(defun update-crc8-ibutton (current-crc-value current-data-byte)
  "Пример из документации к avr-libc (crc16.h - crc_ibutton_update)"
  (declare (type (unsigned-byte 8) current-crc-value current-data-byte)
           (optimize (speed 3) (safety 0)))
  (setf current-crc-value (logxor current-crc-value current-data-byte))
  (dotimes (i 8 current-crc-value)
    (declare (type fixnum i))
    (if (logbitp 0 current-crc-value)
        (setf current-crc-value (logxor (ash current-crc-value -1) #x8c))
        (setf current-crc-value (ash current-crc-value -1)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun crc8-ibutton (data)
  "data:                                crc:
   #(#x02 #x1c #xb8 #x01 0 0 0 #xa2) ->  0
   #(0 1 2 3 4 5 6 7)                ->  15
   #(8 7 6 5 4 3 2 1)                -> 220
  "
  (declare (type (simple-array (unsigned-byte 8) (*)) data)
           (optimize (speed 3) (safety 0)))
  (let ((crc 0))
    (declare (type (unsigned-byte 8) crc))
    (dotimes (i (length data) crc)
      (declare (type fixnum i))
      (setf crc (update-crc8-ibutton crc (aref data i))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 

]]> Re: Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23667 https://rulinux.net/message.php?newsid=4301&page=1#23667 Wed, 09 Sep 2009 14:50:20 +0400 разве?

vim
" Общий модуль Vim для исправления опечаток
" Последнее изменение: 2000 Oct 15
" Автор: Bram Moolenaar <Bram@vim.org>
" Лицензия: Этот файл является общественным достоянием.

if exists("loaded_typecorr")
finish
endif
let loaded_typecorr = 1
let s:save_cpo = &cpo
set cpo&vim
iabbrev teh the
iabbrev otehr other
iabbrev wnat want
iabbrev synchronisation
\ synchronization
let s:count = 4
if !hasmapto('<Plug>TypecorrAdd')
map <unique> <Leader>a <Plug>TypecorrAdd
endif
noremap <unique> <script> <Plug>TypecorrAdd <SID>Add
noremenu <script> Модули.Добавить\ исправление <SID>Add
noremap <SID>Add :call <SID>Add(expand("<cword>"), 1)<CR>
function s:Add(from, correct)
let to = input("type the correction for " . a:from . ": ")
exe ":iabbrev " . a:from . " " . to
if a:correct | exe "normal viws\<C-R>\" \b\e" | endif
let s:count = s:count + 1
echo s:count . " corrections now"
endfunction
if !exists(":Correct")
command -nargs=1 Correct :call s:Add(<q-args>, 0)
endif
let &cpo = s:save_cpo
 

]]> Re: Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23666 https://rulinux.net/message.php?newsid=4301&page=1#23666 Wed, 09 Sep 2009 14:28:03 +0400 Что-то этот код с подсветкой не фирычит.

  1.  " Общий модуль Vim для исправления опечаток
  2.  " Последнее изменение: 2000 Oct 15
  3.  " Автор: Bram Moolenaar <Bram@vim.org>
  4.  " Лицензия: Этот файл является общественным достоянием.
  5.  
  6.  if exists("loaded_typecorr")
  7.   finish
  8.  endif
  9.  let loaded_typecorr = 1
  10.  
  11.  let s:save_cpo = &cpo
  12.  set cpo&vim
  13.  
  14.  iabbrev teh the
  15.  iabbrev otehr other
  16.  iabbrev wnat want
  17.  iabbrev synchronisation
  18.   \ synchronization
  19.  let s:count = 4
  20.  
  21.  if !hasmapto('<Plug>TypecorrAdd')
  22.   map <unique> <Leader>a <Plug>TypecorrAdd
  23.  endif
  24.  noremap <unique> <script> <Plug>TypecorrAdd <SID>Add
  25.  
  26.  noremenu <script> Модули.Добавить\ исправление <SID>Add
  27.  
  28.  noremap <SID>Add :call <SID>Add(expand("<cword>"), 1)<CR>
  29.  
  30.  function s:Add(from, correct)
  31.   let to = input("type the correction for " . a:from . ": ")
  32.   exe ":iabbrev " . a:from . " " . to
  33.   if a:correct | exe "normal viws\<C-R>\" \b\e" | endif
  34.   let s:count = s:count + 1
  35.   echo s:count . " corrections now"
  36.  endfunction
  37.  
  38.  if !exists(":Correct")
  39.   command -nargs=1 Correct :call s:Add(<q-args>, 0)
  40.  endif
  41.  
  42.  let &cpo = s:save_cpo

]]> Re: Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23665 https://rulinux.net/message.php?newsid=4301&page=1#23665 Wed, 09 Sep 2009 14:25:53 +0400 \begin[vimhighlight " Общий модуль Vim для исправления опечаток " Последнее изменение: 2000 Oct 15 " Автор: Bram Moolenaar <Bram@vim.org> " Лицензия: Этот файл является общественным достоянием.

if exists("loaded_typecorr") finish endif let loaded_typecorr = 1

let s:save_cpo = &cpo set cpo&vim

iabbrev teh the iabbrev otehr other iabbrev wnat want iabbrev synchronisation \ synchronization let s:count = 4

if !hasmapto('<Plug>TypecorrAdd') map <unique> <Leader>a <Plug>TypecorrAdd endif noremap <unique> <script> <Plug>TypecorrAdd <SID>Add

noremenu <script> Модули.Добавить\ исправление <SID>Add

noremap <SID>Add :call <SID>Add(expand("<cword>"), 1)<CR>

function s:Add(from, correct) let to = input("type the correction for " . a:from . ": ") exe ":iabbrev " . a:from . " " . to if a:correct | exe "normal viws\<C-R>\" \b\e" | endif let s:count = s:count + 1 echo s:count . " corrections now" endfunction

if !exists(":Correct") command -nargs=1 Correct :call s:Add(<q-args>, 0) endif

let &cpo = s:save_cpo \end{highlight

]]> Re: Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23664 https://rulinux.net/message.php?newsid=4301&page=1#23664 Wed, 09 Sep 2009 14:23:24 +0400 \begin[vimhighlight " Общий модуль Vim для исправления опечаток " Последнее изменение: 2000 Oct 15 " Автор: Bram Moolenaar <Bram@vim.org> " Лицензия: Этот файл является общественным достоянием.

if exists("loaded_typecorr") finish endif let loaded_typecorr = 1

let s:save_cpo = &cpo set cpo&vim

iabbrev teh the iabbrev otehr other iabbrev wnat want iabbrev synchronisation \ synchronization let s:count = 4

if !hasmapto('<Plug>TypecorrAdd') map <unique> <Leader>a <Plug>TypecorrAdd endif noremap <unique> <script> <Plug>TypecorrAdd <SID>Add

noremenu <script> Модули.Добавить\ исправление <SID>Add

noremap <SID>Add :call <SID>Add(expand("<cword>"), 1)<CR>

function s:Add(from, correct) let to = input("type the correction for " . a:from . ": ") exe ":iabbrev " . a:from . " " . to if a:correct | exe "normal viws\<C-R>\" \b\e" | endif let s:count = s:count + 1 echo s:count . " corrections now" endfunction

if !exists(":Correct") command -nargs=1 Correct :call s:Add(<q-args>, 0) endif

let &cpo = s:save_cpo \end{highlight

]]> Re: Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23663 https://rulinux.net/message.php?newsid=4301&page=1#23663 Wed, 09 Sep 2009 14:07:49 +0400 >Регексп мудренный получится. К тому-же закрывающая скобка может содержаться и в коде. и получится такая-же байда как http://www.lor-ng.org/message.php?newsid=4300&amp;fid=5#26577 тут.
но ведь на http://freecr.ru/ же сделали, и такой байды там не получается, и регексп не мудреный, разве только на js. исходники: http://habrahabr.ru/blogs/javascript/67388/

]]> Re: ✡ Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23662 https://rulinux.net/message.php?newsid=4301&page=1#23662 Wed, 09 Sep 2009 13:12:23 +0400 Чуть позже запилю bbcode

]]> Re: ✡ Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23661 https://rulinux.net/message.php?newsid=4301&page=1#23661 Wed, 09 Sep 2009 13:11:20 +0400 А нах нам тих когда на дворе уже 21й век наступил.

]]> Re: ✡ Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23660 https://rulinux.net/message.php?newsid=4301&page=1#23660 Wed, 09 Sep 2009 12:47:20 +0400 ну и какой-же это тогда TeX?

]]> ✡ Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23659 https://rulinux.net/message.php?newsid=4301&page=1#23659 Wed, 09 Sep 2009 12:44:49 +0400 Ну щначит скобки надо заменить на какой-нить символ, обычно в коде не валяющийся, типа такого: ✍

]]> Re: Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23658 https://rulinux.net/message.php?newsid=4301&page=1#23658 Wed, 09 Sep 2009 12:09:54 +0400 Регексп мудренный получится. К тому-же закрывающая скобка может содержаться и в коде. и получится такая-же байда как http://www.lor-ng.org/message.php?newsid=4300&amp;fid=5#26577 тут.

]]> Re: Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23657 https://rulinux.net/message.php?newsid=4301&page=1#23657 Wed, 09 Sep 2009 12:09:39 +0400 > переименовать "begin[lang]{highlight}" в "code[lang]{}"
+много

]]> Re: Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23656 https://rulinux.net/message.php?newsid=4301&page=1#23656 Wed, 09 Sep 2009 12:04:47 +0400 >Кто за то чтоб переименовать тег code в quot? Чтобы не путаться, а для кода тег begin[lang]{highlight}
у меня предложение переименовать "begin[lang]{highlight}" в "code[lang]{}". :)

]]> Re: Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23655 https://rulinux.net/message.php?newsid=4301&page=1#23655 Wed, 09 Sep 2009 11:36:10 +0400 > использовать по дефолту C/C++ или php можно
и на всякий случай проверять на что из них код больше похож - на цэ или на пых. Например по форме выражения include %)

]]> Re: Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23654 https://rulinux.net/message.php?newsid=4301&page=1#23654 Wed, 09 Sep 2009 11:33:36 +0400 А bbcode можно будет сделать опционально.

]]> Re: Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23653 https://rulinux.net/message.php?newsid=4301&page=1#23653 Wed, 09 Sep 2009 11:32:28 +0400 автодетект наврядли, а вот использовать по дефолту C/C++ или php можно.

]]> Re: Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23652 https://rulinux.net/message.php?newsid=4301&page=1#23652 Wed, 09 Sep 2009 11:28:07 +0400 Предложенное переименование не вызвает у меня неприятия, но воще бибикод имхо логичнее смотрелся бы чем тих:

[code lang="цэ"]тут код[/code]

кстати, наверное можно и автодетект какой-нить присобачить на случай если lang не указан.

]]> Re: Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23651 https://rulinux.net/message.php?newsid=4301&page=1#23651 Wed, 09 Sep 2009 11:02:30 +0400 Кто за то чтоб переименовать тег code в quot? Чтобы не путаться, а для кода тег begin[lang]{highlight}

]]> Просба потестить TeX теги еще раз. https://rulinux.net/message.php?newsid=4301&page=1#23650 https://rulinux.net/message.php?newsid=4301&page=1#23650 Wed, 09 Sep 2009 10:59:00 +0400 сабж

  1.  
  2.  test

}

]]>