yazilan.org

Wp Cumulus Eklentisi sağdaki sütünda gördündüğü gibi flash içinde haraketli olarak etiketlerinizi gösteriyor. Flash tabanlı olduğundan seo olarak bir katkıda bulunmasada ziyaretçilerin sitede daha uzun vakit geçirmesini sağlayacaktır.

Bu eklenti wordpress eklenti dizininden indirilip kullanılabilir fakat türkçe karakterleri desteklemediğinden pek bir işimize yaramayacaktır (yazının sonundaki notu okuyun). Eklenti yapımcısı Roy Tanck ın yardımlarıyla eklentiyi türkçe karakterlere uyumlu hale getirdim. Türkçe desteği eklemişken eklentiyi bütünüyle türkçeye çevirdim. Wp Cumulus eklentisi türkçe olarak 1.18 versiyonu şuradan indirilebilir.

Eklentinin kullanımı oldukça kolay. Genel olarak kullanımı şurada anlatılmış. Sitenin herhangi bir yerinde gösterilmek için şu kod kullanılabilir.

<?php wp_cumulus_insert(); ?>

Widgest desteği olan temalarda çok daha rahat bir kullanımı mevcut.

Bayram hediyesi olarak görülebilir :)

Düzenleme linkteki dosyalar 1.16 sürümüne güncellendi.

Düzenleme 2 linkteki dosyalar 1.17 sürümüne güncellendi.

Düzenleme 3 linkteki dosyalar 1.18 sürümüne güncellendi.

Not: Eklenti yeni sürümlerinde Roy sayesinde türkçe karakter desteğine otomatik sahip olacak. yalnız eklenti ayarları ingilizce olarak karşınıza çıkacak. fakat ayarlar çok basit olduğundan çoğu kişinin altından kalkabileceğini düşünüyorum… yine de sorun yaşayanlara yardımcı olmaya çalışacağım

Bazıları neden program yerine proğram yazmayı tercih ediyor. Program zaten türkçe bir kelime değil ki! TDK‘nın internet sitesinden bakınca fransızca programme kelimesinden geldiği yazıyor ayrıca başka hiç bir sözlükte de proğram olarak göremedim bu kelimeyi.

program : isim Fransızca programme

Eğer türkçe konuşulmak isteniyorsa neden daha uygun, türkçe kökenli bir kelime aranmıyor?

Ben gerçekten öğrenmek istiyorum.

Türkçenin yanlış kullanıldığı için kızmıyorum mesela eğlence yerine eylence, Herkes yerine herkez yazanların nedenini merak etmiyorum. “Öyle duyuyor, öyle yazıyor” ama program yerine proğram yazmak özel bir ilgi gerektiriyor bi yerden doğrusu bu diye duymak gerekli. En son bir öğretmenin blogunda gördükten sonra aklıma takıldı nerden geliyor bu proğram.

çok önceden delphi ile yaptığım bir heceleme algoritması. uzun zaman sonra görünce buraya da yazmak istedim.
programın algoritmasını yazarken nasıl hecelediğimizi keşfetmiştim o nedenle severim bu algoritmayı.
ayrıca bu ve benzeri kodları yayınlarken kodları renklendirebileceğim bi wp plugini bilen var mı?

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ALScrollingText;

type
TForm1 = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
function sesli(harf:string):boolean;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.dfm}

function tform1.sesli(harf:string):boolean;
begin
result:=false;
if harf='a'then result:=true;
if harf='e'then result:=true;
if harf='ı'then result:=true;
if harf='i'then result:=true;
if harf='o'then result:=true;
if harf='ö'then result:=true;
if harf='u'then result:=true;
if harf='ü'then result:=true;
if harf='A'then result:=true;
if harf='E'then result:=true;
if harf='I'then result:=true;
if harf='İ'then result:=true;
if harf='O'then result:=true;
if harf='Ö'then result:=true;
if harf='U'then result:=true;
if harf='Ü'then result:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Memo2.Text := EmptyStr;
for i := 1 to length(Memo1.Text) do
begin
if
not sesli(copy(Memo1.Text,i,1))
and sesli(copy(Memo1.Text,i+1,1))
and not (copy(Memo1.Text,i,1)=' ')
and not (copy(Memo1.Text,i-1,1)=' ')
and not (copy(Memo1.Text,i+1,1)=' ')
then
begin
Memo2.text := Memo2.text+'-';
end;
if sesli(copy(memo1.Text,i,1))
and sesli(copy(memo1.Text,i-1,1))
then
begin
Memo2.text := Memo2.text+'-';
end;
Memo2.Text := Memo2.Text + copy(Memo1.Text,i,1);
end;

if copy(Memo2.Text,1,1) = '-' then
begin
Memo2.Text := copy(Memo2.Text,2,length(Memo2.text)-1);
end;
end;
end.